ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Test printer parameter before continuing with macro (https://www.excelbanter.com/excel-programming/368757-test-printer-parameter-before-continuing-macro.html)

Chris Salcedo

Test printer parameter before continuing with macro
 
I have a macro that one of the things it does is set the page size to
11x17.

This works great on HP printers (that support that size of course) but
there are some users that use a konica printer that uses tabloid
instead of 11x17. (same size, its just the printer driver recognizes
one and not the other)


to set one up would be

..PaperSize = xlPaper11x17

and for the other one it would be

..PaperSize = xlPaperTabloid

Now my question,

Is there a way that I can test first if the printer driver supports
Tabloid or 11x17??

something like

if ActiveSheet.PageSetup.PaperSize = xlPaper11x17 returns error then
ActiveSheet.PageSetup.PaperSize = xlPaperTabloid



Thanks

Chris


Tom Ogilvy

Test printer parameter before continuing with macro
 
mayber something here you can use:

http://support.microsoft.com/kb/244639/en-us
OFF2000: Macro to Obtain a List of Paper Names Supported by the Active
Printer

--
Regards,
Tom Ogilvy


"Chris Salcedo" wrote in message
oups.com...
I have a macro that one of the things it does is set the page size to
11x17.

This works great on HP printers (that support that size of course) but
there are some users that use a konica printer that uses tabloid
instead of 11x17. (same size, its just the printer driver recognizes
one and not the other)


to set one up would be

.PaperSize = xlPaper11x17

and for the other one it would be

.PaperSize = xlPaperTabloid

Now my question,

Is there a way that I can test first if the printer driver supports
Tabloid or 11x17??

something like

if ActiveSheet.PageSetup.PaperSize = xlPaper11x17 returns error then
ActiveSheet.PageSetup.PaperSize = xlPaperTabloid



Thanks

Chris





All times are GMT +1. The time now is 04:12 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com