Print Reports as PDF

[SierraJuliet]

I am interesting to know how to print to a PDF instead of printing to the printer.



The following code prints report to printer, what modifications are necessary to print to PDF.

DoCmd.OpenReport "rptPrintInvoiceInfo", acViewNormal, , "[InvoiceNum] = """ & Me![txtInvoiceNum] & """"

[ranman256]

(make the query in the report look at the form object for the key)

vFile = "c:\my documents\MyFile.pdf

docmd.OutputTo acOutputReport ,"rMyReport",acFormatPDF,vFile

[pbaldy]

You could also do:

DoCmd.OpenReport "rptPrintInvoiceInfo", acViewPreview, , "[InvoiceNum] = """ & Me![txtInvoiceNum] & """"
DoCmd.OutputTo ...
DoCmd.Close...

with the last line closing the report. You can open the report hidden if the flicker bothers you.