Debenu Quick PDF Library - PDF SDK Community Forum : Problem with SetTextSize

Problem with SetTextSize : Hi Ingo You are right! I moved...

Thu, 21 Jan 2010 10:16:47 +0000

Author: Phil
Subject: 1320
Posted: 21 Jan 10 at 10:16AM

Hi Ingo

You are right! I moved SelectPage and SetOrigin. Now it works!

Thanks very much!

Phil

Problem with SetTextSize : Hi Phil! Call QP.SelectPage(1)...

Thu, 21 Jan 2010 09:11:43 +0000

Author: Ingo
Subject: 1320
Posted: 21 Jan 10 at 9:11AM

Hi Phil!

Call QP.SelectPage(1) and Call QP.SetOrigin(0) should be inserted before SelectFont...
If the AddTrueType returns with a zero then the function already fails - check this please.
What was the returning value from SelectFont... success or not?
Perhaps you should do few samples with the standard-fonts already installed. Does it works with the standard-fonts?

Cheers and welcome here,
Ingo

Problem with SetTextSize : Hello, I want to insert footer...

Thu, 21 Jan 2010 07:05:53 +0000

Author: Phil
Subject: 1320
Posted: 21 Jan 10 at 7:05AM

Hello,

I want to insert footer text (page numbers) in a existing pdf document. But I'm not able to set the text size. Here's my VB code (sample):

Sub DemoSetTextSize()
ClassName = "QuickPDFAX0717.PDFLibrary"
LicenseKey = "..."
Set QP = CreateObject(ClassName)
Result = QP.UnlockKey(LicenseKey)
If Result = 1 Then
    Call QP.LoadFromFile("C:\MyPDF.pdf")
    lngFontID = QP.AddTrueTypeFont("Arial", 1)
    Call QP.SelectFont(lngFontID)
    Call QP.SetTextSize(50)       '<- HAS NO EFFECT!
    Call QP.SelectPage(1)
    Call QP.SetOrigin(0)
    strPageText = "My Footer Text"
    dblTextWidth = QP.GetTextWidth(strPageText)
    Call QP.DrawText((QP.PageWidth() / 2) - dblTextWidth / 2, 30, strPageText)

Call QP.SaveToFile("C:\MyPDF.pdf")
End If
End Sub

Everything works, except setting the text size. Regardless of which font I use. When I don't select the font, the Helvetica 12pt is used, as mentioned in the manual. Even then, I can't set the size. Any idea?

Kind regards,

Phil