Printing in Draft mode

  • Thread starter Thread starter Jean-Paul De Winter
  • Start date Start date
J

Jean-Paul De Winter

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
 
Try setting Draft to True.

--
Jim Rech
Excel MVP
| 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
|
|
 
Back
Top