Ben
Will the print range(page 1) on each sheet be the same?
Unfortunately setting the print area on grouped sheets is not an option
without using VBA.
Code from Bob Flanagan for setting same print area on grouped sheets.
NOTE: Set the print area on ActiveSheet then Group the sheets and run the
macro.
Note: after print area is set you will most likely have to re-group to set
margins.
Sub Set_Print_Area_On_All_Selected_Sheets()
Dim tempS As String, oSheets As Object
Dim curSheet As Worksheet, oSheet As Worksheet
Dim iResponse
Application.ScreenUpdating = False
iResponse = MsgBox(prompt:= _
"Select OK to set the print area on all " & _
"selected sheets the same as the print " & _
"area on this sheet. If you have not selected " & _
"any sheets, then all worksheets will be set.", _
Buttons:=vbOKCancel)
If iResponse = vbCancel Then End
'store info
tempS = ActiveSheet.PageSetup.PrintArea
'set an object variable to refer to the sheets to be set
If ActiveWindow.SelectedSheets.Count = 1 Then
'if no sheets selected, select all worksheets
Set oSheets = ActiveWorkbook.Worksheets
Else
'set variable to select sheets
Set oSheets = ActiveWindow.SelectedSheets
End If
'store the current sheet and then rotate through each
'sheet and set the print area
Set curSheet = ActiveSheet
For Each oSheet In oSheets
If oSheet.Type = xlWorksheet Then
'set print area only if a worksheet
oSheet.PageSetup.PrintArea = tempS
End If
Next
'return to the original worksheet
curSheet.Select
MsgBox "All print areas on the selected sheets have " & _
"been set to the same as this sheet."
End Sub
Gord Dibben Excel MVP
On Thu, 1 Dec 2005 06:57:03 -0800, "Ben Dummar"
wrote:
26 Sheets (or tabs) in the Workbook, if you print each sheet it would print
out several pages for each sheet. There are 8 sheets that I want to print
out only the first page then combine into a report. Currenlty I have the
option of clicking on each sheet one at a time and printing the first page
only. This is time consuming becuase it takes a few minutes to calculate the
workbook before it prints. The other option I have is to right click on each
sheet or tab and print this only calculates once but then prints extra pages
that I don't want since it prints all the pages in each sheet.
Ben
"harpscardiff" wrote:
I obviously misunderstood, sorry
how many sheets in your workbook?
It s just one workbook?
What do you mean first page? Surley thats just the first tab?
More info please???
--
harpscardiff
------------------------------------------------------------------------
harpscardiff's Profile: http://www.excelforum.com/member.php...o&userid=25960
View this thread: http://www.excelforum.com/showthread...hreadid=489409