Vba Code Excel Khmer Pdf File

' Export to PDF Dim pdfPath As String pdfPath = ThisWorkbook.Path & "\Invoice_" & Format(Now, "yyyymmdd_hhnnss") & ".pdf"

Range("A1").Value = khmerString Range("A1").Font.Name = "Khmer OS" ' Apply Khmer font End Sub Function ReadUTF8File(filePath As String) As String Dim adoStream As Object Set adoStream = CreateObject("ADODB.Stream") adoStream.Open adoStream.Type = 2 ' adTypeText adoStream.Charset = "utf-8" adoStream.LoadFromFile filePath ReadUTF8File = adoStream.ReadText adoStream.Close Set adoStream = Nothing End Function Sub ImportKhmerAndPDF() Dim khmerText As String Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) vba code excel khmer pdf

' Define PDF output path pdfPath = ThisWorkbook.Path & "\Khmer_Report.pdf" ' Export to PDF Dim pdfPath As String pdfPath = ThisWorkbook