Hi all,
Just a quick one. When rng.value is greater than 0, it prints page one. However, when rng1.value is greater than 0, it doesn't print page 2 or 3.
Sorry about the poor explanation - but the dog really needs a walk....
Public Sub Tester002()
Dim rng As Range
Dim rng1 As Range
Set rng = ActiveWorkbook.Sheets("STATEMENTS").Range("N46")
Set rng1 = ActiveWorkbook.Sheets("STATEMENTS").Range("A52")
If rng.Value > 0 Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
ElseIf rng = 0 Then
Exit Sub
If rng1.Value > 0 Then
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate _
:=True
Else
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate _
:=True
End If
End If
End Sub
Bookmarks