Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
How do I fit to 1 page on entire workbook
I have approx. 200 sheets in my workbook and I need to fit each sheet to one
page. I can do it individually ( ie. page set up or format painter) but it takes time. Can I convert the entire workbook to print to 1 page? |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
How do I fit to 1 page on entire workbook
You can try out the below macro. If you are new to macros..
--Set the Security level to low/medium in (Tools|Macro|Security). --From workbook launch VBE using short-key Alt+F11. --From menu 'Insert' a module and paste the below code. --Get back to Workbook. --Run macro from Tools|Macro|Run <selected macro() Sub FitWorkbookToOneOne() Dim intTemp As Integer For Each sh In ActiveWorkbook.Sheets With sh.PageSetup .Orientation = xlPortrait .PaperSize = xlPaperA4 .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With Next End Sub If this post helps click Yes --------------- Jacob Skaria "Val Mc" wrote: I have approx. 200 sheets in my workbook and I need to fit each sheet to one page. I can do it individually ( ie. page set up or format painter) but it takes time. Can I convert the entire workbook to print to 1 page? |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
How do I fit to 1 page on entire workbook
You should be able to select all 200 sheets at once (select the first one,
then "Shift-Click" on the last one to select them all). Then go into Page Setup and select the "Fit to 1 page tall by 1 page wide" option, and set any other options you desire to have in common amongst those sheets. HTH, Eric "Val Mc" wrote: I have approx. 200 sheets in my workbook and I need to fit each sheet to one page. I can do it individually ( ie. page set up or format painter) but it takes time. Can I convert the entire workbook to print to 1 page? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
can I change page layout in an entire existing Excel workbook? | Excel Discussion (Misc queries) | |||
How can I apply print area and page setup to entire workbook? | Excel Discussion (Misc queries) | |||
how can we set page margins for the entire workbook? | Excel Discussion (Misc queries) | |||
How to apply page number continous for entire workbook | Excel Discussion (Misc queries) | |||
Copy page format into an entire workbook | Excel Worksheet Functions |