Hi

Do you ojnly want to print the rng.value page ??
Then use this

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


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


"chris100" wrote in message
...

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


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