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
"Jean-Paul De Winter" wrote in message
...
| 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
|
|

Of course... which I did without succes.
JP
"Jim Rech" schreef in bericht
...
Try setting Draft to True.

--
Jim Rech
Excel MVP
"Jean-Paul De Winter" wrote in message
...
| 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
|
|