How do you print pages 1 AND 3 in a worksheet?

[SirLoin]

Am I being silly?
In Word, it is easy and obvious, but in excel there is no function t
print a range.

Putting "1,3" gives a "bad integer" message.

Please help the noob.

Le

 

[Don Guillett]

try this
Sub printsheets()
ma = Array("Sheet1", "Sheet3", "Sheet5")
For x = LBound(ma) To UBound(ma)
Sheets(ma(x)).PrintPreview
Next x
End Sub

 

[Ron de Bruin]

Or in one line
Sheets(Array("Sheet1", "Sheet3", "Sheet5")).PrintOut

More one liners
http://www.rondebruin.nl/print.htm#Print


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

try this
Sub printsheets()
ma = Array("Sheet1", "Sheet3", "Sheet5")
For x = LBound(ma) To UBound(ma)
Sheets(ma(x)).PrintPreview
Next x
End Sub

 

[Ron de Bruin]

I see you want something else

Sub Test()
ActiveSheet.PrintOut From:=1, To:=1
ActiveSheet.PrintOut From:=3, To:=3
ActiveSheet.PrintOut From:=5, To:=5
End Sub


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

Or in one line
Sheets(Array("Sheet1", "Sheet3", "Sheet5")).PrintOut

More one liners
http://www.rondebruin.nl/print.htm#Print