Reporting to PDF

[Stemdriller]

Try to get a report to save to PDF with Access 2007

Using the code below but it is erroring

DoCmd.OutputTo acOutputReport, "rptMAINREPORT", "PDF Format (*.pdf)", "C:/Transfer/" & PDFLink _
& ".pdf", False


The report I am trying to save as PDF is rptMAINREPORT and within that report is a textbox called PDFLink which has the contract number in.

So I am trying to save the Document as ContractNumber.pdf in a folder called Transfer on C.

Any ideas

Thanks

 

[vbaInet]

This: "PDF Format (*.pdf)"

Should be this: acFormatpdf

No quotes by the way

 

[Stemdriller]

Thanks for responding

So I have amended to thus

DoCmd.OutputTo acOutputReport, "rptMAINREPORT", acFormatPDF, "C:/Transfer/" & PDFLink _
& ".pdf", False

Getting 'Run Time Error 2501' The Output to action was cancelled????

 

[vbaInet]

File paths use a backslash "\" not the forward slash "/"

 

[ghudson]

Thanks for responding

So I have amended to thus

DoCmd.OutputTo acOutputReport, "rptMAINREPORT", acFormatPDF, "C:/Transfer/" & PDFLink _
& ".pdf", False

Getting 'Run Time Error 2501' The Output to action was cancelled????

No need to truncate this little line...

DoCmd.OutputTo acOutputReport, "rptMAINREPORT", acFormatPDF, "C:\Transfer\" & PDFLink & ".pdf", False

 

[boblarson]

Getting 'Run Time Error 2501' The Output to action was cancelled????

Also, are you sure that the report is not empty and the No Data event have something canceling it?

 

[Stemdriller]

Thanks for the responses

Still not happening.

I get the little window telling me it is starting, then the Run Time window comes up

I believe it is the way in which 'PDFLink' gets it value. If I change the line to

DoCmd.OutputTo acOutputReport, "rptMAINREPORT", acFormatPDF, "C:\Transfer\" & "Test" & ".pdf", False

Then a file called %20test.pdf gets produced.

If I wanted the PDF to be called the Sales Number from a form that is currently open, (frm_ContractHeader!SALESORDER) how could I incorporate that into the command line DoCmd.Output etc?

 

[boblarson]

It would be:


DoCmd.OutputTo acOutputReport, "rptMAINREPORT", acFormatPDF, "C:\Transfer\" & Forms!frm_ContractHeader.SALESORDER & ".pdf", False

 

[Stemdriller]

Bob,

You are a Saint. Many Many thanks

vbInet, also many thanks

Best Regards

Gareth

 

[vbaInet]

Glad you got that working

By the way you would need to trap for errors if the user tries to save a report with the same file name twice.

 

[ghudson]

Glad you got that working

By the way you would need to trap for errors if the user tries to save a report with the same file name twice.

I would test if the file already exists and then Kill it before saving the report file.

 

[boblarson]

or ASK if they want to overwrite it if it exists.

 

[vbaInet]

I would test if the file already exists and then Kill it before saving the report file.

There you go. Even better!

 

[Rx_]

FYI : My Access users run via Citrix -
So, I preview the report to them via citrix. When they close the report, they have an option to save the report (from a Citrix network drive) to the location of thier choice (i.e. a shared drive in their regional office).
This requires the Adobe reader to be installed on the server.
Testing this from my development workstation, deploying to a Citrix test server next week. Bob Larson deserves a lot of thanks for the help.

Private Sub Report_Deactivate()
Dim MyFiLeName      As String
    If Not NoData Then  ' checks for no data event to prevent a mis fire
        DoEvents
        MyFiLeName = "C:\Standard_Report " & Format(Now, "mm-dd-yyyy hhnnss") & ".pdf"
        DoEvents
        MsgBox "Please Save Your Adobe File to a network file location", vbOKOnly, "Save Now or loose it"
        DoEvents
        'DoCmd.OutputTo acOutputReport, "Rx_ReportNewAPD", acFormatPDF, MyFiLeName, True ' , , , acExportQualityPrint
        DoCmd.OutputTo acOutputReport, "rptAPD_2010", acFormatPDF, MyFiLeName, True
        ' The Now function just time stamps the file so all files are unique in name on citrix server for a user to save
        DoEvents
    End If
End Sub