Is there any way to cause something to print to the default printer for the
computer from which it is printed? The code works great for printing to my
network printer but this document could be printed by anyone in the building
and they are not going to want to come down to my work area to retrieve
their printout.

Private Sub CommandButton1_Click()
If CheckBox1 = True Then
Sheets("January").PrintOut Copies:=1, ActivePrinter:= _
"Paratransit_Color_Laser on Ne01:"

End If
End Sub

Found my solution. Just eliminated the reference to the active printer.


"Patrick C. Simonds" wrote in message
...
Is there any way to cause something to print to the default printer for
the computer from which it is printed? The code works great for printing
to my network printer but this document could be printed by anyone in the
building and they are not going to want to come down to my work area to
retrieve their printout.

Private Sub CommandButton1_Click()
If CheckBox1 = True Then
Sheets("January").PrintOut Copies:=1, ActivePrinter:= _
"Paratransit_Color_Laser on Ne01:"

End If
End Sub