I need help - I can help - Can't display Arabic font in pdf

Print Page | Close Window

Can't display Arabic font in pdf

Printed From: Debenu Quick PDF Library - PDF SDK Community Forum
Category: For Users of the Library
Forum Name: I need help - I can help
Forum Description: Problems and solutions while programming with the Debenu Quick PDF Library and Debenu PDF Viewer SDK
URL: http://www.quickpdf.org/forum/forum_posts.asp?TID=928
Printed Date: 17 May 24 at 7:11AM
Software Version: Web Wiz Forums 11.01 - http://www.webwizforums.com

Topic: Can't display Arabic font in pdf

Posted By: kyawkoko
Subject: Can't display Arabic font in pdf
Date Posted: 06 Aug 08 at 3:42AM

Hi everyone,

        I export pdf by using ised quick pdf.Below is my first code.

        For index = 0 To DataGridView1.RowCount - 1
            If (index Mod 45) = 0 Then
                If index <> 0 Then
                    PDFnewGen.NewPage()
                End If

                iPage = iPage + 1


            End If


            sTemp = DataGridView1.Rows(index).Cells(0).Value

            PDFnewGen.AddSubsettedFont("Arabic Transparent", 11, sTemp)
            PDFnewGen.SetTextSize(8)
            PDFnewGen.SetTextAlign(0)
            PDFnewGen.DrawTextBox(50, ((index Mod 45) + 6) * 5, 80, 5,   PDFnewGen.GetSubsetString(sTemp), 0)

            sTemp = DataGridView1.Rows(index).Cells(1).Value
            PDFnewGen.AddSubsettedFont("Arabic Transparent", 11, sTemp)
            PDFnewGen.SetTextSize(8)
            PDFnewGen.SetTextAlign(0)
            PDFnewGen.DrawTextBox(140, ((index Mod 45) + 6) * 5, 80, 5, PDFnewGen.GetSubsetString(sTemp), 0)

        Next index

         This code can display Arabic Language correctly but out of memory error in very large report.So i chaged my code to below.

                PDFnewGen.AddTrueTypeFont("Arabic Transparent", 1)
               PDFnewGen.SetTextSize(8)
               PDFnewGen.SetTextAlign(0)

        For index = 0 To DataGridView1.RowCount - 1
            If (index Mod 45) = 0 Then
                If index <> 0 Then
                    PDFnewGen.NewPage()
                End If

                iPage = iPage + 1


            End If


            sTemp = DataGridView1.Rows(index).Cells(0).Value
            PDFnewGen.DrawTextBox(50, ((index Mod 45) + 6) * 5, 80, 5, PDFnewGen.GetSubsetString(sTemp), 0)

            sTemp = DataGridView1.Rows(index).Cells(1).Value
            PDFnewGen.DrawTextBox(140, ((index Mod 45) + 6) * 5, 80, 5, PDFnewGen.GetSubsetString(sTemp), 0)

        Next index

            This code can't display arabic font in correctly.It display ????? only.
Help me.

Thanks
KO KO

Replies:

Posted By: Ingo
Date Posted: 07 Aug 08 at 7:25AM

Hi!

I fear like asiatic charactercodes arabic ones aren#t supported in/with QuickPDF.

br,

Ingo