J
JohnLute
I would like to create a button to print to my Acrobat Distiller. I know this
can be done through the Report's Page Setup however I don't always want the
report to print to the Acrobat Distiller. I figure the easiest solution is to
have a "Print" button that sends to the default printer and a "Print to .pdf"
that sends to the Acrobat Distiller.
I currently use this Print button:
Private Sub Print_Click()
On Error GoTo Err_Print_Click
Dim stDocName As String
Dim strWhere As String
strWhere = "[txtProfileID] = """ & _
Forms![frmFinishedGoods].Form![txtProfileID] & """"
DoCmd.OpenReport Me!cbSelectReport, acNormal _
, , strWhere
Exit_Print_Click:
Exit Sub
Err_Print_Click:
MsgBox Err.Description
Resume Exit_Print_Click
End Sub
How can I modify this in order to create the "Print to .pdf" button?
As always, your help is greatly appreciated!
can be done through the Report's Page Setup however I don't always want the
report to print to the Acrobat Distiller. I figure the easiest solution is to
have a "Print" button that sends to the default printer and a "Print to .pdf"
that sends to the Acrobat Distiller.
I currently use this Print button:
Private Sub Print_Click()
On Error GoTo Err_Print_Click
Dim stDocName As String
Dim strWhere As String
strWhere = "[txtProfileID] = """ & _
Forms![frmFinishedGoods].Form![txtProfileID] & """"
DoCmd.OpenReport Me!cbSelectReport, acNormal _
, , strWhere
Exit_Print_Click:
Exit Sub
Err_Print_Click:
MsgBox Err.Description
Resume Exit_Print_Click
End Sub
How can I modify this in order to create the "Print to .pdf" button?
As always, your help is greatly appreciated!