Hi when I print a sheet in my workbook it takes several minutes to calculate
before printing. Since I regularly print a report that contains the 1st page
of multiple sheets in the workbook it becomes time consuming just to print.
Is there a way to auto print the first page of several sheets at the same
time so it only calculates 1 time?

Thanks, in advance Ben

If i understand correctly,

If you right click the first sheet, and select all sheets, then print.
It should start printing the first page though to the last page.

Hope this helps


--
harpscardiff
------------------------------------------------------------------------
harpscardiff's Profile: http://www.excelforum.com/member.php...o&userid=25960
View this thread: http://www.excelforum.com/showthread...hreadid=489409

Yes & No, that prints everything on every sheet that is highlighted but I
only want the 1st page on every sheet.

Thanks,

Ben

"harpscardiff" wrote:


If i understand correctly,

If you right click the first sheet, and select all sheets, then print.
It should start printing the first page though to the last page.

Hope this helps


--
harpscardiff
------------------------------------------------------------------------
harpscardiff's Profile: http://www.excelforum.com/member.php...o&userid=25960
View this thread: http://www.excelforum.com/showthread...hreadid=489409

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

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

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

You can set the print area of each sheet to whatever dimensions you need,
then group the sheets and each time it will only print what you have set in
the print area of each sheet in the group.

Jeremy