G
geraintthomas
Guest
Hello,
I am using a database report with print button.
The database is used at different sites by numerous users who use different printers.
Unfortunately the reports all print on the same printer.
I have used the following code:
Private Sub Command14_Click()
On Error Resume Next
DoCmd.OpenReport "MRCD No End", acPreview
DoCmd.SelectObject acReport, "MRCD No End"
DoCmd.RunCommand acCmdPrint
If Err.Number <> 0 And Err.Number <> 2501 Then
MsgBox Err.Number & ":" & Err.Description, vbCritical
End If
End Sub
as discribed in a prev thread. This works, though does not follow the printer I choose.......
Please help
I am using a database report with print button.
The database is used at different sites by numerous users who use different printers.
Unfortunately the reports all print on the same printer.
I have used the following code:
Private Sub Command14_Click()
On Error Resume Next
DoCmd.OpenReport "MRCD No End", acPreview
DoCmd.SelectObject acReport, "MRCD No End"
DoCmd.RunCommand acCmdPrint
If Err.Number <> 0 And Err.Number <> 2501 Then
MsgBox Err.Number & ":" & Err.Description, vbCritical
End If
End Sub
as discribed in a prev thread. This works, though does not follow the printer I choose.......
Please help