Sub Print ()
Dim lvis as Long
Application.ScreenUpdating = False
With Sheets("Report_To_Print")
lVis = .visible
.Visible = True
.PrintOut Copies:=1, Collate:=True
.visible = lVis
End With
Application.ScreenUpdating = True
End Sub

Is a possibility

--
Regards,
Tom Ogilvy


"Todd" wrote in message
...
Hi,

I have a project that includes one main sheet used to
collect necessary data and then a number of other sheets
that calculate and display the data in reports.

I would like to keep all of the report sheets hidden and
then be able to print from the main sheet by clicking a
command button relating to the sheet.

I've tried

Sub Print ()
Sheets("Report_To_Print").PrintOut Copies:=1,
Collate:=True
End Sub

However I get a compile error.

Is it possible to print a hidden sheet without making it
visible first? Can anybody offer a solution?

Thanks for your help,
Todd