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??