V
Very Basic User
Hello, Below is the code I use to have one button that prints multiple
reports. This sends each report to my defalut printer, but I need to send it
to a specific computer no matter who is using the file. Can I add a line to
direct the prints to a specific printer.
Private Sub Command84_Click()
On Error GoTo Err_Command84_Click
DoCmd.OpenReport "A_Back Processing Game Plan Report", acNormal
DoCmd.OpenReport "A_Bag packaging Game Plan Report", acNormal
DoCmd.OpenReport "A_Box semi auto Game Plan Report", acNormal
DoCmd.OpenReport "A_Building and Grounds Game Plan Report", acNormal
DoCmd.OpenReport "A_Front Processing Game Plan Report", acNormal
DoCmd.OpenReport "A_lab Game Plan Report", acNormal
DoCmd.OpenReport "A_Print Weigh Game Plan Report", acNormal
DoCmd.OpenReport "A_Sanitation Game Plan Report", acNormal
DoCmd.OpenReport "A_Shipping / Receiving Game Plan Report", acNormal
DoCmd.OpenReport "A_Warehousing Game Plan Report", acNormal
DoCmd.OpenReport "Bulk Game Plan Report", acNormal
Exit_Command84_Click:
Exit Sub
Err_Command84_Click:
MsgBox Err.Description
Resume Exit_Command84_Click
End Sub
reports. This sends each report to my defalut printer, but I need to send it
to a specific computer no matter who is using the file. Can I add a line to
direct the prints to a specific printer.
Private Sub Command84_Click()
On Error GoTo Err_Command84_Click
DoCmd.OpenReport "A_Back Processing Game Plan Report", acNormal
DoCmd.OpenReport "A_Bag packaging Game Plan Report", acNormal
DoCmd.OpenReport "A_Box semi auto Game Plan Report", acNormal
DoCmd.OpenReport "A_Building and Grounds Game Plan Report", acNormal
DoCmd.OpenReport "A_Front Processing Game Plan Report", acNormal
DoCmd.OpenReport "A_lab Game Plan Report", acNormal
DoCmd.OpenReport "A_Print Weigh Game Plan Report", acNormal
DoCmd.OpenReport "A_Sanitation Game Plan Report", acNormal
DoCmd.OpenReport "A_Shipping / Receiving Game Plan Report", acNormal
DoCmd.OpenReport "A_Warehousing Game Plan Report", acNormal
DoCmd.OpenReport "Bulk Game Plan Report", acNormal
Exit_Command84_Click:
Exit Sub
Err_Command84_Click:
MsgBox Err.Description
Resume Exit_Command84_Click
End Sub