Hi (again)
Following code should print every sheet in Draft

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

Alas, every sheet is printed in high quality which takes too much time (an
ink)
What am I doing wrong??

Change With ActiveSheet.PageSetup
To With Sheets(I).PageSetup

Jim Cone
San Francisco, CA

"Jean-Paul De WInter" wrote in message ...
Hi (again)
Following code should print every sheet in Draft

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

Alas, every sheet is printed in high quality which takes too much time (an
ink)
What am I doing wrong??

if I change the code I get a quality printout that is too high... to my
opinion ... no draft
and...
no lines or rectangles are printed
Maybe "draft" isn't the correct word? I don't know but, problem not solved
(yet)
Thanks
JP


"Jim Cone" schreef in bericht
...
Change With ActiveSheet.PageSetup
To With Sheets(I).PageSetup

Jim Cone
San Francisco, CA

"Jean-Paul De WInter" wrote in message
...
Hi (again)
Following code should print every sheet in Draft

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

Alas, every sheet is printed in high quality which takes too much time
(an
ink)
What am I doing wrong??

You can also try setting the "PrintQuality".
According to the help file (try it sometime), the print quality setting
does not work with all printers...
'--------------------------
With Sheets(I).PageSetup
.Draft = True
.PrintQuality = Array(300, 300) 'adjust as desired
.PrintOut
End With
'--------------------------
Jim Cone
San Francisco, CA

"Jean-Paul De WInter" wrote in message ...
if I change the code I get a quality printout that is too high... to my
opinion ... no draft
and...
no lines or rectangles are printed
Maybe "draft" isn't the correct word? I don't know but, problem not solved
(yet)
Thanks
JP


"Jim Cone" schreef in bericht
...
Change With ActiveSheet.PageSetup
To With Sheets(I).PageSetup

Jim Cone
San Francisco, CA

"Jean-Paul De WInter" wrote in message
...
Hi (again)
Following code should print every sheet in Draft

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

Alas, every sheet is printed in high quality which takes too much time
(an
ink)
What am I doing wrong??