How to set Printing quality to Draft?
 

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

How to set Printing quality to Draft?
 

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.

How to set Printing quality to Draft?
 

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

Fries

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

How to set Printing quality to Draft?
 

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

"Fries" wrote:

Yes, I4ve tried that, but nothing appears in the recorded macro.

Fries

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

How to set Printing quality to Draft?
 

Use this link to get a bigger picture...

http://support.microsoft.com/default...b;en-us;213654

HTH
clionton

"Fries" wrote:

Yes, I4ve tried that, but nothing appears in the recorded macro.

Fries

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!