Hi -
I have multiple workbooks containing 60 printable graph pages each. In the
front of each workbook I have a "table of contents" worksheet where a user
can click a check box for whichever of the 60 graphs they need to print at a
given time. This works great except that the way I've written the macro,
each selection goes to the printer individually. Is there a way to group the
numerous selections a user may have checked and send them to the printer as
just one print job? Here's an example of the working macro as currently
written--

Print Graphs Macro:

Dim Copies As Integer

Dim TOC As String, R12G As String, PVCG As String, M36G As String
TOC = "Table of Contents"
R12G = "Rolling 12 Graphs"
PVCG = "Premium_vs_Claims_Graphs"
M36G = "Monthly_36_Graphs"

If Application.Dialogs(xlDialogPrinterSetup).Show = False Then Exit Sub

Application.ScreenUpdating = False

With Sheets(TOC)
Copies = .CopyCount.Value
If .P1RT.Value = True Then
Sheets(R12G).Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1,
Copies:=Copies, Collate:=True
End If
If .P1PC.Value = True Then
Sheets(PVCG).Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1,
Copies:=Copies, Collate:=True
End If

Note: The "P1RT" and "P1PC" represent names given to the check boxes. I
have 60 checkboxes and am only showing the commands for two of them here, to
save space.

Thanks in advance for any ideas!
Susan