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