Hi,
I created a pushbutton with following code:

Sub printfile()
Dim I As Integer
For I = 2 To Sheets.Count
With ActiveSheet.PageSetup
.Draft = False
End With
Sheets(I).PrintOut
Next I
End Sub

The idea is to print sheets in draft mode... however, I doubt if this is the
correct code since it doesn't seem to work...
Any idea?
Thanks