How to set Printing quality to Draft?

[Fries]

Hi everybody,

I want to write some code that sets all the sheets´ Printing Quality
to Draft. I have a HP Deskjet 1220.

I tried PageSetup.Prinquality.Draft = True, but that just turns off
ChartPrinting and division lines. I am looking for something to change
the Print-> Preferences to Draft.

BTW, creating an extra printer with standard preferences set to draft
does not work for me: as soon as I open a file that has been saved
with "normal" print quality, excel "inherits" the quality from the
file.

anyone?

Fries

 

[Lonnie M.]

Hi, have you tried opening a blank workbook and recording a macro and
performing the task you describe?
This should provide you with the necessary code.

Regards--Lonnie M.

 

[Fries]

Yes, I´ve tried that, but nothing appears in the recorded macro.

Fries

 

[Guest]

use this part of the code and change accordingly to get the desired result

With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.75)
.RightMargin = Application.InchesToPoints(0.75)
.TopMargin = Application.InchesToPoints(1)
.BottomMargin = Application.InchesToPoints(1)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False ' Here you say .Draft = True
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
End With

 

[Guest]

Use this link to get a bigger picture...

http://support.microsoft.com/default.aspx?scid=kb;en-us;213654

HTH
clionton