Print Worksheets function needed.
 

Hi,
am creating a lumber list shpreadhseet for lumber estimating.
Currently the worksheet is set up to make new sheets on button
click...
Now what i need is a function to print only the first page of every
visable sheet. Regardless of the sheet name. But i have a great deal
of formula calculations off to the side, which is why i only want to
print the first page of every sheet.

Anyone help?
Thanks!


--
foxgguy2005
------------------------------------------------------------------------
foxgguy2005's Profile: http://www.excelforum.com/member.php...o&userid=23663
View this thread: http://www.excelforum.com/showthread...hreadid=374460

Try setting a print area for each sheet that just containd the part you want
printed then using a macro (or VBA) you could step through each sheet and
execute a print command to get what you want.

HTH

Neil
www.nwarwick.co.uk

"foxgguy2005" wrote:


Hi,
am creating a lumber list shpreadhseet for lumber estimating.
Currently the worksheet is set up to make new sheets on button
click...
Now what i need is a function to print only the first page of every
visable sheet. Regardless of the sheet name. But i have a great deal
of formula calculations off to the side, which is why i only want to
print the first page of every sheet.

Anyone help?
Thanks!


--
foxgguy2005
------------------------------------------------------------------------
foxgguy2005's Profile: http://www.excelforum.com/member.php...o&userid=23663
View this thread: http://www.excelforum.com/showthread...hreadid=374460

First, do as Neil suggested - seet a print range on each sheet

Then, to print all the sheets, simply use FilePrintEntire Workbook

"foxgguy2005" wrote:


Hi,
am creating a lumber list shpreadhseet for lumber estimating.
Currently the worksheet is set up to make new sheets on button
click...
Now what i need is a function to print only the first page of every
visable sheet. Regardless of the sheet name. But i have a great deal
of formula calculations off to the side, which is why i only want to
print the first page of every sheet.

Anyone help?
Thanks!


--
foxgguy2005
------------------------------------------------------------------------
foxgguy2005's Profile: http://www.excelforum.com/member.php...o&userid=23663
View this thread: http://www.excelforum.com/showthread...hreadid=374460

Try this macro


Sub Macro1()
For Each w In Worksheets
If w.Visible = True Then
w.Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1,
Collate _
:=True

End If
Next
End Sub


--
anilsolipuram
------------------------------------------------------------------------
anilsolipuram's Profile: http://www.excelforum.com/member.php...o&userid=16271
View this thread: http://www.excelforum.com/showthread...hreadid=374460