Prev Previous Post   Next Post Next
  #4   Report Post  
David McRitchie
 
Posts: n/a
Default

Hi Michelle,

If you receive a workbook via email it will already be set up for printing so you
would have to override with a macro.

If not familiar with macros see my page on Getting Started with macros
http://www.mvps.org/dmcritchie/excel/getstarted.htm

The following macro will lettersize all sheets in the active workbook.
It could perhaps be made more foolproof by checking first if the sheetsize had been
set to legal. Debug statements could also be added with the checking to indicate
what was changed.

Anything preceded by a single quote is commented out,

Sub Lettersize_allsheets()
Dim wkSheet As Worksheet
For Each wkSheet In Application.ActiveWorkbook
With wkSheet.PageSetup
.PaperSize = xlPaperLetter
' .FitToPagesWide = 1
' .FitToPagesTall = False
End With
Next wkSheet
End Sub

Here is a different macro to Change all selected (Grouped) sheets to
lettersize and Fit to pagesWide = 1 and PagesTall to 1
I don't recommend doing this to a workbook so have purposely limited
it to Grouped sheets.i

Sub FitSheets_1_Tall()
Dim wkSheet As Worksheet
' For Each wkSheet In Application.ActiveWorkbook
'- change to the ones that are grouped
For Each wkSheet In Application.ActiveWorkbook. _
Windows(1).SelectedSheets
With wkSheet.PageSetup
PaperSize = xlPaperLetter
.FitToPagesWide = 1 'or use = False
.FitToPagesTall = 1 'or use = False
End With
Next wkSheet
If Application.ActiveWorkbook. _
Windows(1).SelectedSheets.Count 1 Then
MsgBox "Please UNGROUP sheets to avoid damaging workbook"
End If
End Sub.

Possibly you could make the top and bottom margins smaller.
---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

"Michelle - BR" wrote ...
Is there anyway to have all workbooks AUTOMATICALLY print to fit 1 page.
Mainly when I open spreadsheets that are emailed to me. Most people email me
a legal size spreadsheet and I need to shrink it to fit a letter size page.
Maybe a global setting in the program or something?



 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Global Macro Bo Rasmussen New Users to Excel 4 September 12th 05 03:48 PM
Training via excel via Global Knowledge,Inc.? Effie New Users to Excel 0 May 24th 05 03:43 PM
How do you change sort defaults for combined text number & hyphen. Anna Excel Discussion (Misc queries) 1 April 8th 05 05:01 AM
How to reset Excel 2000 toolbars to "factory defaults"? [email protected] Excel Discussion (Misc queries) 3 March 28th 05 10:39 PM
GLOBAL search and replace Rebecca New Users to Excel 2 February 26th 05 12:30 AM


All times are GMT +1. The time now is 05:00 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"