Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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! |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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! |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
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! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Help! Draft Watermark Won't Go Away | Excel Discussion (Misc queries) | |||
Auction Style Draft | Excel Discussion (Misc queries) | |||
Print as draft | Excel Discussion (Misc queries) | |||
printing in Draft (part 2) | Excel Programming | |||
Printing in Draft mode | Excel Programming |