Code to Set Printer Properties?
 

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.

Code to Set Printer Properties?
 

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.

Code to Set Printer Properties?
 

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.

Code to Set Printer Properties?
 

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.

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.

Code to Set Printer Properties?
 

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" wrote in message ...
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.

Code to Set Printer Properties?
 

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

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" wrote in message ...
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.

Code to Set Printer Properties?
 

Hi Joyce,
Do you have administrator rights?

John


"Joyce" wrote in message ...
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" wrote:

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" wrote in message ...
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.

Code to Set Printer Properties?
 

Yes, I do.


"jaf" wrote:

Hi Joyce,
Do you have administrator rights?

John


"Joyce" wrote in message ...
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" wrote:

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" wrote in message ...
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.

Code to Set Printer Properties?
 

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" wrote in message ...
Yes, I do.


"jaf" wrote:

Hi Joyce,
Do you have administrator rights?

John


"Joyce" wrote in message ...
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" wrote:

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" wrote in message ...
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.

Code to Set Printer Properties?
 

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

"jaf" wrote:

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" wrote in message ...
Yes, I do.


"jaf" wrote:

Hi Joyce,
Do you have administrator rights?

John


"Joyce" wrote in message ...
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" wrote:

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" wrote in message ...
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.