Dim basef As BaseFont = BaseFont.CreateFont(fontPath, BaseFont.IDENTITY_H, True) Dim arabicfont As New iTextSharp.text.Font(basef, 24, iTextSharp.text.Font.NORMAL, iTextSharp.text.BaseColor.BLACK) Dim el As New Chunk() Dim arabicfont2 As New iTextSharp.text.Font(basef, 16, el.Font.Style, el.Font.Color) el.Font = arabicfont2 Dim doc As Document = New Document(PageSize.A4) Dim wri As PdfWriter = PdfWriter.GetInstance(doc, fs) wri.RunDirection = iTextSharp.text.pdf.PdfWriter.RUN_DIRECTION_LTR doc.Open() Dim txe As iTextSharp.text.Paragraph = New TextSharp.text.Paragraph(StrReverse("الملف"), el.Font) doc.Add(txe) doc.Close()
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)