At the present moment I use this method to print.
Code: Select all
If CheckBox4.Value = True Then
Sheets("Grounds").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If CheckBox7.Value = True Then
Sheets("Roof").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End Sub