Print hidden sheets

[Ravi Kumar]

I have designed a workbook containing several sheets. The sheet1 contains
all input data that will be entered by the user and other sheets are meant
for giving output. The information entered in 1st sheet will be manipulated
and spread across all other sheets. I do not want the user to access other
sheets and disturb the formulas, formats and design. So, I want them to be
hidden. However, when the user chooses to print the output, I want the hidden
sheets printed directly on printer without displaying on the screen. Help
Please.

 

[john]

someone kindly responded to your earlier post on this subject.
See if following does what you want.

Sub PrinHiddenSheet()
Application.ScreenUpdating = False
With ThisWorkbook.Sheets(2) '<change as required
.Visible = True
.PrintOut Copies:=1, Collate:=True
.Visible = xlHidden
End With
Application.ScreenUpdating = True
End Sub

 

[Ravi Kumar]

John, I am sorry I was not sure whether my question was posted or not 1st
time. It gave some error message 1st time which made me repost my question.
Thank u for the help rendered.