I have this code located under  ThisWorkbook to intercept a print request,
and run my code to print multiple copies. Now I know most of you will say
"why not just set the #of copies" well the problem is when I do that our
Color Laser will print lines in the merged cells where the boarder would be
if the cells were not merged, but if I print one at a time it does not do it
(very strange behavior, but IT will not replace my print just for that). I
am at a loss here. So how can I loop through the multiple print routines
without triggering the BeforePrint code?

Private Sub Workbook_BeforePrint(Cancel As Boolean)

On Error GoTo EndPoint

Printing.Show

'EndPoint:
   Cancel = True

EndPoint:

End Sub

---------------------------------------------------------

This code is in it's own module (not located under  ThisWorkbook )

Private Sub CommandButton1_Click()

SortRoutesToCover.SortRoutesToCover

If OptionButton1.Value = True Then

   ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
       "Paratransit_Color_Laser on Ne01:", Collate:=True

   Unload Printing

ElseIf OptionButton2.Value = True Then

   ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
       "Paratransit_Color_Laser on Ne01:", Collate:=True

   ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
       "Paratransit_Color_Laser on Ne01:", Collate:=True

   Unload Printing

End If

End Sub