I have a process that scans down a database, calls crystal reports, and prints a pdf using pdfwriter. The end result (ideally) is several thousand pdf files. Problem is, using pdfwriter, the report always opens within reader and system resouces get taxed after serveral hundred open files.
Within distiller, there is a check box to keep the report from opening in acrobat and to turn off the prompt for file name. Originally the pgmr who set this up implied it was a much more difficult to use distiller. I am beginning to wonder....
I created a dummy print driver that had the open distiller and prompt for filenme boxes checked off. Changed the crystal report to print to dummy print driver. Process seems to work except that the "pdfwriter way" for naming the file does not seem to work with distiller. Here is the pdfwriter code that is being used:
CRApplication = createobject("CrystalRuntime.Application"
CRReport = createobject("CrystalRuntime.Report"
CRReport = CRApplication.OpenReport("n:\crystal.rpt",1)
STORE -2147483647 TO nHKEY_CURRENT_USER
form_name.registry1.SetRegKey("PDFFileName", pdf_only_path + variable + '.pdf', 'Software\Adobe\Acrobat PDFWriter\', nHKEY_CURRENT_USER)
CRReport.PrintOut (.F.)
CRReport=''
where pdf_only_path and variable have been previously defined as the directory structure and pdf save filename, respectively.
Anyone have an idea how I could change the above code to incorporate a changing save file name with distiller?
Thanks
Greg
Within distiller, there is a check box to keep the report from opening in acrobat and to turn off the prompt for file name. Originally the pgmr who set this up implied it was a much more difficult to use distiller. I am beginning to wonder....
I created a dummy print driver that had the open distiller and prompt for filenme boxes checked off. Changed the crystal report to print to dummy print driver. Process seems to work except that the "pdfwriter way" for naming the file does not seem to work with distiller. Here is the pdfwriter code that is being used:
CRApplication = createobject("CrystalRuntime.Application"
CRReport = createobject("CrystalRuntime.Report"
CRReport = CRApplication.OpenReport("n:\crystal.rpt",1)
STORE -2147483647 TO nHKEY_CURRENT_USER
form_name.registry1.SetRegKey("PDFFileName", pdf_only_path + variable + '.pdf', 'Software\Adobe\Acrobat PDFWriter\', nHKEY_CURRENT_USER)
CRReport.PrintOut (.F.)
CRReport=''
where pdf_only_path and variable have been previously defined as the directory structure and pdf save filename, respectively.
Anyone have an idea how I could change the above code to incorporate a changing save file name with distiller?
Thanks
Greg