Printing PDF File - lost fonts

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Hi,

i try to print a pdf file with this kind VBScript:
-------------------------------
Set QP = CreateObject("DebenuPDFLibrary64AX0913.PDFLibrary")

Call QP.UnlockKey("XXXXXXXXXXXXXXXXX")

Call QP.LoadFromFile("pro_2013_0000_2658116.pdf","")
'CALL qp.SetPageSize("A4")
CustomPrinter = QP.NewCustomPrinter("DEBRE01PR025")

Call QP.SetupCustomPrinter(CustomPrinter, 1, 9)

' Print Qualtiy high

 Call QP.SetupCustomPrinter(CustomPrinter, 5, 1)
' Color printing
 Call QP.SetupCustomPrinter(CustomPrinter, 6, 2)
' select tray 1

iPrintOptions = QP.PrintOptions(1, 0, filepdf)

Call QP.PrintDocument(CustomPrinter, 1, qp.Pagecount, iPrintOptions)
Set QP = Nothing
-----------------------------------

But it seems, that print out lost the original fonts ARIAL and ARIAL Bold. What can i do ?

Thanks !

BEst regards,
Marcus

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
marcus Members Profile Find Members Posts Beginner Joined: 03 Apr 13 Status: Offline Points: 5	Post Options Post Reply Quote marcus Report Post Thanks(0) Quote Reply Topic: Printing PDF File - lost fonts Posted: 11 Jun 13 at 2:26PM
	Hi, i try to print a pdf file with this kind VBScript: ------------------------------- Set QP = CreateObject("DebenuPDFLibrary64AX0913.PDFLibrary") Call QP.UnlockKey("XXXXXXXXXXXXXXXXX") Call QP.LoadFromFile("pro_2013_0000_2658116.pdf","") 'CALL qp.SetPageSize("A4") CustomPrinter = QP.NewCustomPrinter("DEBRE01PR025") Call QP.SetupCustomPrinter(CustomPrinter, 1, 9) ' Print Qualtiy high Call QP.SetupCustomPrinter(CustomPrinter, 5, 1) ' Color printing Call QP.SetupCustomPrinter(CustomPrinter, 6, 2) ' select tray 1 iPrintOptions = QP.PrintOptions(1, 0, filepdf) Call QP.PrintDocument(CustomPrinter, 1, qp.Pagecount, iPrintOptions) Set QP = Nothing ----------------------------------- But it seems, that print out lost the original fonts ARIAL and ARIAL Bold. What can i do ? Thanks ! BEst regards, Marcus

AndrewC Members Profile Find Members Posts Moderator Group Joined: 08 Dec 10 Location: Geelong, Aust Status: Offline Points: 841	Post Options Post Reply Quote AndrewC Report Post Thanks(0) Quote Reply Posted: 04 Jul 13 at 11:11AM
	Marcus, You would need to create a case in the official support system. There are so many strange PDF's out there that we can't tell what is wrong until we look at the PDF file. http://www.debenu.com/support/contact/ Andrew.