J
JR_06062005
I'm trying to automate the process of creating a PDF file from an Access
report. By automate I mean the user clicks on a button or menu choice.
Assume Acrobat (and thus Acrobat Distiller and Acrobat Writer) are
installed. I use the following code:
Dim prtFirst As Printer, stName As String
Dim rptCurrentReport As Report
stName = Printer.DeviceName
Set Printer = Printers("Acrobat PDFWriter")
Set rptCurrentReport = Screen.ActiveReport
Application.CurrentUser
DoCmd.PrintOut acPrintAll
When the code executes, the process appears to work, but then the output
disappears. Acrobat does not open as it would if I manually printed to
PDFWriter and a PDF output is no where to be found.
Is there a way to get the same results of manully printing to PDFWriter;
getting a dialog box which gives me the opportunity to designate a file name
and where the file is to be saved, and then opening the document in Acrobat?
report. By automate I mean the user clicks on a button or menu choice.
Assume Acrobat (and thus Acrobat Distiller and Acrobat Writer) are
installed. I use the following code:
Dim prtFirst As Printer, stName As String
Dim rptCurrentReport As Report
stName = Printer.DeviceName
Set Printer = Printers("Acrobat PDFWriter")
Set rptCurrentReport = Screen.ActiveReport
Application.CurrentUser
DoCmd.PrintOut acPrintAll
When the code executes, the process appears to work, but then the output
disappears. Acrobat does not open as it would if I manually printed to
PDFWriter and a PDF output is no where to be found.
Is there a way to get the same results of manully printing to PDFWriter;
getting a dialog box which gives me the opportunity to designate a file name
and where the file is to be saved, and then opening the document in Acrobat?