Accessing Printer Properties (Excel 2000 print quality questions)

Topic

New Reply

Here’s my scenario (sorry about the length). I’ve put it under VBA ‘cos I think my solution is in this
New PC with Windows 2000 / Office 2000 and a HP Laserjet 4000. From the control panel settings the default print quality is set to “Faster Printing”. For new models (ie File / New) this is fine – models print at this setting.
But, if I open one of my older (pre this PC) models or if I get a model from someone else then the print quality setting switches to a Custom setting that is at the highest quality. This is much slower to print. I have hundreds of models and I receive hundreds of models from other people. Each of these comes in and I have been going to file / page setup / options and change the quality setting to “Faster Printing”. And this has to be done for every sheet because doing it in group mode doesn’t seem to work.
Is there any setting I’m missing to make the faster printing the default for models? I looked at the printquality(1) setting and it’s -4 on the problem models, 600 on the working ones. Is the only (best) way to code a toolbar button in my personal.xls file which flips the printquality to 600 on all sheets?
Thanks

Reply | Quote

Replies

I looked in help, and it seems that this should work:

Sub PrintQual600()
Dim aSheet As Worksheet
Set aSheet = Excel.ActiveSheet
aSheet.PageSetup.PrintQuality = 600
Set aSheet = Nothing
End Sub

Hope this helps.

Reply | Quote

Thanks, I’d already done that and put it on the toolbar in a button.
I suppose I was hoping for some “miracle” way of making Excel use the fast speed as a default instead of using code to change it.
You see, the “problem” sheets are all set to a printquality of -4 which seems to be an invalid number. I say it’s invalid because if you try and set a sheet to it using code it gives an error. So, if it’s invalid why does Excel change the resolution to highest quality instead of default quality? Even if I change a sheet to highest quality using the menus the printquality returns 1200 – not -4.
Oh well, I took the opportunity to make it change all page sizes back to A4 (UK printers) as well so that’s two manual steps I’ve done on one button! My code also iterates through all worksheets in the active workbook while it’s at it..

Reply | Quote

I don’t know the event names in Excel, but maybe you can create something like a WorkSheet_Open() procedure that will make these changes automatically when you open the file.

Reply | Quote