Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Setting Print Size for varying Printer use
I have a workbook with about 20 tabs and would like them all to prin
out one page tall, one page wide on 11 x 17 paper. I can highlight al tabs and change the setting to 11 x 17, but if I access the file o another computer with a different printer, it resets th configuration. Is there a way to push a command button that changes the print size t 11 x 17 and prints the page on the default printer? Need help with th code -- Message posted from http://www.ExcelForum.com |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Setting Print Size for varying Printer use
You can get the code by turning on the macro recorder and making the change
to one sheet. this will record all settings, even though you only change one. You don't need to do all settings. Select the subset you need and put this in the BeforePrint Event of the workbook http://www.cpearson.com/excel/events.htm -- Regards, Tom Ogilvy "indigo " wrote in message ... I have a workbook with about 20 tabs and would like them all to print out one page tall, one page wide on 11 x 17 paper. I can highlight all tabs and change the setting to 11 x 17, but if I access the file on another computer with a different printer, it resets the configuration. Is there a way to push a command button that changes the print size to 11 x 17 and prints the page on the default printer? Need help with the code! --- Message posted from http://www.ExcelForum.com/ |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Setting Print Size for varying Printer use
Dear Indigo;
Use the following macro that will run automatically when they open the work book. You will need to modify it to run for each page. Sub Auto_Open() With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With ActiveSheet.PageSetup.PrintArea = "" With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.75) .RightMargin = Application.InchesToPoints(0.75) .TopMargin = Application.InchesToPoints(1) .BottomMargin = Application.InchesToPoints(1) .HeaderMargin = Application.InchesToPoints(0.5) .FooterMargin = Application.InchesToPoints(0.5) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = -3 .CenterHorizontally = False .CenterVertically = False .Orientation = xlPortrait .Draft = False .PaperSize = xlPaperLetter .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 .PrintErrors = xlPrintErrorsDisplayed End With End Sub Thanks, Greg -----Original Message----- I have a workbook with about 20 tabs and would like them all to print out one page tall, one page wide on 11 x 17 paper. I can highlight all tabs and change the setting to 11 x 17, but if I access the file on another computer with a different printer, it resets the configuration. Is there a way to push a command button that changes the print size to 11 x 17 and prints the page on the default printer? Need help with the code! --- Message posted from http://www.ExcelForum.com/ . |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Setting Print Size for varying Printer use
This will do one page, and take a long time. It does represent what you get
when you record a macro, but not sure how .PaperSize = xlPaperLetter would set it to 11 x 17 This part does do the fitting: .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 all three lines are needed. So as I said, you need to trim out command that are not needed such as the headers and margins. -- Regards, Tom Ogilvy "Gjones" wrote in message ... Dear Indigo; Use the following macro that will run automatically when they open the work book. You will need to modify it to run for each page. Sub Auto_Open() With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With ActiveSheet.PageSetup.PrintArea = "" With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.75) .RightMargin = Application.InchesToPoints(0.75) .TopMargin = Application.InchesToPoints(1) .BottomMargin = Application.InchesToPoints(1) .HeaderMargin = Application.InchesToPoints(0.5) .FooterMargin = Application.InchesToPoints(0.5) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = -3 .CenterHorizontally = False .CenterVertically = False .Orientation = xlPortrait .Draft = False .PaperSize = xlPaperLetter .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 .PrintErrors = xlPrintErrorsDisplayed End With End Sub Thanks, Greg -----Original Message----- I have a workbook with about 20 tabs and would like them all to print out one page tall, one page wide on 11 x 17 paper. I can highlight all tabs and change the setting to 11 x 17, but if I access the file on another computer with a different printer, it resets the configuration. Is there a way to push a command button that changes the print size to 11 x 17 and prints the page on the default printer? Need help with the code! --- Message posted from http://www.ExcelForum.com/ . |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Setting Print Size for varying Printer use
Ok, I think I understand. Let me give it a shot.
Thank you both -- Message posted from http://www.ExcelForum.com |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Setting Print Size for varying Printer use
I posted this under "ThisWorkbook" and it to test it changed the paper
size to legal. When I printed the document, it was not reset to 11 x 17. I did something wrong. ! --- Message posted from http://www.ExcelForum.com/ |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Setting Print Size for varying Printer use
I will assume you didn't do what I said. You didn't record a macro where
you actually selected 11 x 17 as the paper size, then used the recorded value in your macro. -- Regards, Tom Ogilvy "sowetoddid " wrote in message ... I posted this under "ThisWorkbook" and it to test it changed the paper size to legal. When I printed the document, it was not reset to 11 x 17. I did something wrong. ! --- Message posted from http://www.ExcelForum.com/ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
members on my network printer not able to print to default printer | Excel Discussion (Misc queries) | |||
Default printer setting | Excel Discussion (Misc queries) | |||
Printer Multiple Worksheets with a particular Printer Setting | Excel Worksheet Functions | |||
Macro: how to set a print area of varying size? | Excel Discussion (Misc queries) | |||
Setting printer paper | Excel Programming |