View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
Joyce Joyce is offline
external usenet poster
 
Posts: 106
Default Code to Set Printer Properties?

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" wrote:

Hi Joyce,
In Windows ExplorerControl panelprinters 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" wrote in message ...
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!

"OssieMac" wrote:

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.


--
Regards,

OssieMac


"Joyce" wrote:

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.