Hi. You're asking an Access forum and you specifically chose the Form section. Exactly what sort of "document" are you sending to the printer and how exactly are you doing it? Just wondering if you're looking for an Access-related solution.
It will be if you select the printer Microsoft Print To PDF before you open the report for printing.
Do you want to print the report OR save it as a PDF?
Sub PrintReportToPDF()
Dim currentPrinter As String
Dim reportName As String
Dim pdfFileName As String
' Save the current printer name
currentPrinter = Application.Printer.DeviceName
' Specify the report name and the desired PDF file path
reportName = "YourReportName" ' Replace with your report name
pdfFileName = "C:\path\to\your\output\file.pdf" ' Replace with your desired file path
' Set the printer to "Microsoft Print to PDF"
Application.Printer = Application.Printers("Microsoft Print to PDF")
' Set the file path to save the PDF
' We need to use the Printer object's properties to save the file
Application.Printer.DefaultFileName = pdfFileName
' Print the report
DoCmd.OpenReport reportName, acViewNormal
' Wait until the report is printed before restoring the printer
DoEvents
' Restore the original printer
Application.Printer = Application.Printers(currentPrinter)
MsgBox "Report printed to PDF successfully!"
End SubThanks, but that's still a bit confusing. Printers don't produce PDF files; rather, they produce hard copy printouts on paper. To create a PDF means you end up with a file, and you won't need an actual printer then; instead, all you need is a printer driver to produce the PDF file.
Private Sub cmdShip_Click()
On Error GoTo Err_cmdShip_Click
Dim stRptName As String, stParam As String, stLinkCriteria As String, stDBpath As String, stFTPpath As String
Dim iPreview As Integer, iDialog As Integer, blnPrintIt As Boolean
stDBpath = CurrentProject.Path & "\"
stFTPpath = stDBpath & "Gazette\"
iPreview = acViewPreview
If Me.ChkPreview Then
' iPreview = 2
iDialog = acWindowNormal
Else
iDialog = acHidden
End If
stRptName = "Main_by_Ship"
stParam = Replace(LCase(Me.cboShip.Value), " ", "_")
stLinkCriteria = "[Ship] = '" & Me.cboShip.Value & "'"
'DoCmd.CopyObject , stParam, acReport, stRptName
If Me.ChkPreview Then
DoCmd.OpenReport stRptName, iPreview, , stLinkCriteria, iDialog
Else
DoCmd.OpenReport stRptName, iPreview, , stLinkCriteria, iDialog
DoCmd.OutputTo acOutputReport, stRptName, acFormatPDF, stFTPpath & stParam & ".pdf", False
DoCmd.Close acReport, stRptName
End If
'DoCmd.DeleteObject acReport, stParam
Exit_cmdShip_Click:
Exit Sub
Err_cmdShip_Click:
MsgBox Err.Description
Resume Exit_cmdShip_Click
End Sub
