Saving a report to PDF format

[Musicguy2112]

Hi everyone. i tried searching for a similar problem on this site with no luck. Basically, I have report based on a query that I would like to save to PDF format. It works but saves all the data from my table. Here is my code:

Private Sub ReportToFile_Click()
On Error GoTo Err_ReportToFile_Click
Dim stDocName As String


stDocName = "RequisitionPrintOut_rpt"
DoCmd.OutputTo acReport, stDocName
Exit_ReportToFile_Click:
Exit Sub
Err_ReportToFile_Click:
MsgBox Err.Description
Resume Exit_ReportToFile_Click
End Sub

Any Help greatly appreciated

Thanks in advance!!

[TheShabz]

Check out the third reply on this link
http://social.msdn.microsoft.com/For...5-2984825a60be

[Musicguy2112]

This works great!! Thank you very much for finding this!!