Try this

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
End If

If rng1.Value 0 Then
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate:=True
End If

If rng.Value 0 Then
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate:=True
End If

End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"chris100" wrote in message
...

Not quite Ron, I'll explain properly now that i have more time:

The worksheet "statements" has three pages.
Page one is always printed if "N46" is greater than zero.
Page two prints if "A52" is greater than zero.
Page 3 always prints if "N46" is greater than zero.

What you can see happening here is that page 1 is printed if the
customer has an outstanding balance, then page two prints if there is
more to the statement history. Page three is a Statement summary and
prints if there is something to print i.e when the first page prints.
Obviously they have to print in that order.

Phew! Hope i explained that a bit better.

Thanks for helping,

Chris


--
chris100
------------------------------------------------------------------------
chris100's Profile: http://www.excelforum.com/member.php...o&userid=25166
View this thread: http://www.excelforum.com/showthread...hreadid=511312