Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Conditional Printing
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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
conditional printing | Excel Discussion (Misc queries) | |||
Conditional Printing | Excel Discussion (Misc queries) | |||
Conditional Printing | Excel Programming | |||
conditional printing | Excel Programming | |||
conditional printing | Excel Programming |