printing in Draft (part 2)
 

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

printing in Draft (part 2)
 

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

printing in Draft (part 2)
 

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

printing in Draft (part 2)
 

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