vfp report to pdf printer

* vfp report to pdf printer

* try ok ,but error on first run

 

lcOldPrinter = SET("printer",2)
oPDFC  = Createobject("PDFCreator.clsPDFCreator","pdfcreator")
oPDFC.cStart("/NoProcessingAtStartup")
oPDFC.cOption("UseAutosave") = 1
oPDFC.cOption("UseAutosaveDirectory") = 1
oPDFC.cOption("AutosaveFormat") = 0            
DefaultPrinter = oPDFC.cDefaultprinter
oPDFC.cDefaultprinter = "pdfcreator"
oPDFC.cClearCache
ReadyState = 0
oPDFC.cOption("AutosaveFilename") = "myPdf"
oPDFC.cOption("AutosaveDirectory") = "c:\temp\"
oPDFC.cprinterstop=.F.
Report Form rep2.frx To Printer
INKEY(5)
Set Printer To  Name (lcoldPrinter)
oPDFC.cDefaultprinter = DefaultPrinter
oPDFC.cClearCache
Release oPDFC