printing in Draft (part 2)

  • Thread starter Thread starter Jean-Paul De WInter
  • Start date Start date
J

Jean-Paul De WInter

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

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Printing in Draft mode 2
Page Breaks in VBA Q 6
Printing Setup help 9
Printing-don't need half this code but which half?:-) 5
Printing a Dynamic Range 2
Print specific pages of a Database 2
How to set Printing quality to Draft? 4
Print Macro runs "V E R Y S L O W" 3

Back
Top