Printing hiddem sheets

[royhern]

I have recorded a macro to print select sheets in a workbook and have hidden the sheets but when i want to print the specified sheets i get this error:

Run-time error '1004'

select method of sheets class failed

Any ideas on how to resolve this error besides having the sheets be visible ?

This is the code that i am using:

Sub SM4PGPMPPRINTING()
'
' SM4PGPMPPRINTING Macro
' Macro recorded 9/24/2002 by Administrator
'

'
Application.ScreenUpdating = False
Sheets(Array("Cover pg 1", "Mg Goal Pg & Mid-Final", _
"Guiding Values Goal & Mid-Final", "Mg Career dev & Final Rating")).Select
Sheets("Cover pg 1").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("Cover pg 1").Select
Range("I42:K42").Select
Application.ScreenUpdating = True
End Sub


Thanks...

 

[Richie(UK)]

Hi Roy,

Use Worksheets("YourSheetName").Visible = True at the start of your code, but after the Screenupdating=False statement. Then at the end, but before the Screenupdating=True statement, reset to False to hide them again.

HTH

 

[stevebausch]

You may still have screen flicker going on, regardless of Application.ScreenUpdating = False. Plan your code carefully.

Printing from a hidden sheet would be nice,but until then, just make sure you have all the cells set up just the way they should be, and make the sheet visible immediately before .Printout.

I have the same issue; decided the easy way to deal with it was to make sure the userform covered the entire screen. Speeded up the code, it seems.


Now considering if the hidden sheets need to be a seperate sheet. The main sheet has the scrollarea restricted as it is, so it might be possible to put the 'scratchpad beyond the scroll boundary.

This is a common challenge, it seems.

 

[royhern]

Richie..either i copy something wrong or i missed a step somewhere. Did all your steps and i got an error " Compile error wrong number of arguments"

this is the code i am using:

Sub SM4PGPMPPRINTING()
'
' SM4PGPMPPRINTING Macro
' Macro recorded 9/24/2002 by Administrator
'

'
Application.ScreenUpdating = False
Worksheets("Cover pg 1", "Mg Goal Pg & Mid-Final", _
"Guiding Values Goal & Mid-Final", "Mg Career dev & Final Rating").Visible = True
Sheets(Array("Cover pg 1", "Mg Goal Pg & Mid-Final", _
"Guiding Values Goal & Mid-Final", "Mg Career dev & Final Rating")).Select
Sheets("Cover pg 1").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("Cover pg 1").Select
Range("I42:K42").Select
Worksheets("Cover pg 1", "Mg Goal Pg & Mid-Final", _
"Guiding Values Goal & Mid-Final", "Mg Career dev & Final Rating").Visible = False
Application.ScreenUpdating = True
End Sub