Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Amyuni PDF Converter Not Working in VFP9.
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Problèmes
Versions des environnements
Visual FoxPro:
VFP 9
OS:
Windows XP SP2
Network:
Windows 2000 Server
Database:
Oracle
Divers
Thread ID:
00975602
Message ID:
00976306
Vues:
71
This message has been marked as a message which has helped to the initial question of the thread.
Hi Tim !
My code assumes simple scenario that locking is not needed so I did not have to use "lock", "unlock" and "SetDocFileProps" methods

Here you are more detailed code
...
goPDFPrinter = CREATEOBJECT( "CDINTFEX.CDINTFEX")
goPDFPrinter.DriverInit( lcPDFPrinterName )
...
goPDFPrinter.DefaultFileName = lcPDFfileName
goPDFPrinter.resolution = 600
goPDFPrinter.SetDefaultConfig() && update driver info with resolution info
goPDFPrinter.FileNameOptions = 1 + 2 + 16 + 128 && (no prompt, use filename,embed fonts, multilingual, fullEmbed)
goPDFPrinter.SetDefaultPrinter() && Save the current Windows default printer goPDFPrinter.EnablePrinter( pdf_AmyuniLicenseCompany, pdf_AmyuniLicenseCode)

set printer to name (lcPDFPrinterName)
REPORT FORM ( tcReportName) NOEJECT NOCONSOLE TO PRINTER
set printer to name (lcPrinterName)
goPDFPrinter.RestoreDefaultPrinter() &&Restore the Windows default printer.





>Hi,
>
>How do you setup the pdf filename in your code? For example in mine it looks like:
>
>lcReport="c:\develop\questpdm.ora\test pdf\testpdf.frx"
>lcPDFFile="c:\develop\questpdm.ora\test pdf\test_output.pdf"
>lcDocName=JUSTFNAME(lcReport)
>
>oPdf = CreateObject("CDINTFEx.CDINTFEx")
>oPdf.DriverInit("QuestPDM PDF Printer Driver 436")
>oPDF.EnablePrinter("RUNTIME A/S","07EFCDAB010001008602E4C7974525251D4095A21ADD3E8889CECA88BE533A716594EFB5BCFFCFFF5531DF37E220083E6C335C9096957B1B3D30829FF48BE06B2A7627525D37B1891F79935F22D3B59FC57BA975E4EB672AB32000")
>SET PRINTER TO NAME "QuestPDM PDF Printer Driver 436"
>
>oPdf.JPEGCompression=.T.
>oPdf.JPegLevel=7
>
>oPdf.SetDefaultConfig()
>oPDF.Lock(lcDocName)
>				
>oPdf.FileNameOptionsEx= 1 + 2 + 4
>		
>oPDF.SetDocFileProps(lcDocName,28672,"",ALLTRIM(lcPDFFile))
>		
>oPDF.EnablePrinter("RUNTIME A/S","CodeHere")
>		
>REPORT FORM (lcReport) TO PRINTER NOCONSOLE
>
>oPDF.UnLock(lcDocName,5)
>
>
>
>It seems the SetDocFileProps causes problems with the changes to the print job name, So how do you do that in your code?
>
>Thanks
>Tim
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform