Print Worksheets function needed.

[foxgguy2005]

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!

[Neil]

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
>
>

[Duke Carey]

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

Then, to print all the sheets, simply use File>Print>Entire 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
>
>

[anilsolipuram]

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