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