Code to Set Printer Properties?

[Joyce]

Hello,

I often need to print in draft mode, black ink only. Then, I go back to
regular mode, color.

I would really like to add one toolbar button with code behind it that sets
the printer properties to black and another to set back to color.

Is it possible to do this? I've tried the recorder, but nothing is captured.

Thanks.

 

[OssieMac]

Hi Joyce,

You should be able to record it. It is in Page Setup on the Sheet tab.
However, the following code should do it. If you record it, you can delete
the rows of code that you don't change the defaults.

With ActiveSheet.PageSetup
.Draft = True
.BlackAndWhite = True
End With

Depending on the printer, draft quality may not work. I think that the
PrintQuality parameter takes precedence and cannot always be changed.

 

[Joyce]

Hi and thanks for your response.

I'm sorry, I should have been a bit more specific.

I actually have a few other settings I want to set that are really
printer-specific, and I'm not able to set in Page Setup.

I guess because the printer resides outside of Excel my code doesn't record?

I'd really like to have one button that sets the actual printer properties
in one way for some jobs and another for other jobs.

Any further help would be appreciated.

Thanks!

 

[jaf]

Hi Joyce,
In Windows Explorer>Control panel>printers you can copy & paste your printer.
You can rename the 2nd copy "Draft" and set its properties anyway you wish.
That will set the default properties for that copy.

In Excel you only need to select the "Draft" printer to get a B&W draft.

John

 

[Joyce]

Hi there,

I tried what you suggested, but Copy isn't available and Ctrl + C and Ctrl +
drag don't work either.

I'd love to be able to do this, though, if you have any other way of doing it.

Thanks!

 

[jaf]

Hi Joyce,
What version of Windows are you running?
In Vista you need to select "add a printer", select the same model, it will make a copy.
Check the port setting one the first printer. USB printer usually have funky settings.


John

 

[Joyce]

I'm using XP. The printer is a network printer. I've tried to add a
printer, selecting the same one, but it doesn't do anything. I'd ideally
really like to use this solution, so if you have any more anwers, I'd really
appreciate them.

Thanks.

 

[jaf]

Hi Joyce,
Do you have administrator rights?

John

 

[Joyce]

Yes, I do.

Hi Joyce,
Do you have administrator rights?

John

 

[jaf]

Hi Joyce,

"I've tried to add a printer, selecting the same one, but it doesn't do anything."

I hope your not navigating to the printer from a list. That will give you the same printer.

Add it as if it were a new printer.

John

 

[Joyce]

Hi John,

I use the wizard and type to path of the printer (I've also tried browing),
click next, it warns me about drivers, etc. and finishes. But a new printer
is not installed.

It's a network printer. I'm obviously missing something.

Thanks