Saving an access report

[dhaveedh]

Can anyone help with code that will save a report to a file?

Basically, I have used an access report to create a letter that will be printed off. Howvere, after printing the letter, I want to save it into a file location on my PC.

Any ideas?

Ta

KISS - Keep It Simple Sugar!

 

[drctx]

Private Sub QoutetoFile_Click()
' saves quote to a file
On Error GoTo Err_QoutetoFile_Click

Dim stDocName As String

stDocName = "PrintFromForm"
DoCmd.OutputTo acReport, stDocName

Exit_QoutetoFile_Click:
Exit Sub

Err_QoutetoFile_Click:
MsgBox Err.Description
Resume Exit_QoutetoFile_Click

End Sub