Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
CUSTOM PRINTING !
This macro will set the page up such that the page will print as two pages... Range("A1:N50") will print as one page, and Range("A51:N90") will print as the second page. **Please, I will NEED a macro for numerous reasons. Any help will be appreciated! Thanks Jay *** Sent via Developersdex http://www.developersdex.com *** |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
CUSTOM PRINTING !
I find tools /macro /record new macro very useful.
Here is what it gives for a similar problem Range("A1:B2").Select Selection.PrintOut Copies:=1, Collate:=True Range("A3:E5").Select Selection.PrintOut Copies:=1, Collate:=True This can be simplified to Range("A1:N50").PrintOut Copies:=1, Collate:=True Range("A51:N90").PrintOut Copies:=1, Collate:=True "jay dean" wrote: This macro will set the page up such that the page will print as two pages... Range("A1:N50") will print as one page, and Range("A51:N90") will print as the second page. **Please, I will NEED a macro for numerous reasons. Any help will be appreciated! Thanks Jay *** Sent via Developersdex http://www.developersdex.com *** |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
CUSTOM PRINTING !
Don:
What if either range "extends beyond one page due to column-width settings being changed"? Is there a way to set each to Auto FitToOnePage? Thanks, Jim May "Don Guillett" wrote in message : Or even Range("A1:N50").PrintOut Range("A51:N90").PrintOut -- Don Guillett SalesAid Software "Gleam" wrote in message ... I find tools /macro /record new macro very useful. Here is what it gives for a similar problem Range("A1:B2").Select Selection.PrintOut Copies:=1, Collate:=True Range("A3:E5").Select Selection.PrintOut Copies:=1, Collate:=True This can be simplified to Range("A1:N50").PrintOut Copies:=1, Collate:=True Range("A51:N90").PrintOut Copies:=1, Collate:=True "jay dean" wrote: This macro will set the page up such that the page will print as two pages... Range("A1:N50") will print as one page, and Range("A51:N90") will print as the second page. **Please, I will NEED a macro for numerous reasons. Any help will be appreciated! Thanks Jay *** Sent via Developersdex http://www.developersdex.com *** |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
CUSTOM PRINTING !
Here is some code which works but not not be the most elegant solution:
Range("A1:N50").Select With ActiveSheet.PageSetup .FitToPagesWide = 1 .FitToPagesTall = 1 End With Selection.PrintOut Preview:=True Note: the preview option can be deleted if not required. "JMay" wrote: Don: What if either range "extends beyond one page due to column-width settings being changed"? Is there a way to set each to Auto FitToOnePage? Thanks, Jim May "Don Guillett" wrote in message : Or even Range("A1:N50").PrintOut Range("A51:N90").PrintOut -- Don Guillett SalesAid Software "Gleam" wrote in message ... I find tools /macro /record new macro very useful. Here is what it gives for a similar problem Range("A1:B2").Select Selection.PrintOut Copies:=1, Collate:=True Range("A3:E5").Select Selection.PrintOut Copies:=1, Collate:=True This can be simplified to Range("A1:N50").PrintOut Copies:=1, Collate:=True Range("A51:N90").PrintOut Copies:=1, Collate:=True "jay dean" wrote: This macro will set the page up such that the page will print as two pages... Range("A1:N50") will print as one page, and Range("A51:N90") will print as the second page. **Please, I will NEED a macro for numerous reasons. Any help will be appreciated! Thanks Jay *** Sent via Developersdex http://www.developersdex.com *** |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
CUSTOM PRINTING !
|
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
VBA Printing Custom Footer on all but last page | Excel Discussion (Misc queries) | |||
Custom Printing in a Macro | Excel Discussion (Misc queries) | |||
printing on custom paper | New Users to Excel | |||
printing custom copies | Excel Discussion (Misc queries) | |||
Printing Custom Header | Excel Discussion (Misc queries) |