run-time error 1004--macro help

[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 message was edited by royhern on 2002-09-25 18:07

 

[Colo]

Hi royhern,
Please show us your code, I guess you have to make sheets visible before print method.

 

[royhern]

The steps i took were first record the macro having the sheets visible and i used ASAP utilities to hide the sheets. The macro works great when the sheets are visible but the error is generated after i make the sheets invisible and run the macro for printing.

Hope this info helps!!

 

[DonkeyOte]

Sheets must be visible - do print, then hide

 

[Andrew Poulsom]

You can prevent the user from seeing what's happening by using:

Application.ScreenUpdating = False

before you do your stuff.

Reset it with:

Application.ScreenUpdating = True

at the end.

 

[royhern]

Well still it doesn't work but i think it is because i could be doing wrong. this is the code ...can anyone tell me how can i fix this to get the printing done.
Sub SM4PGPMPPRINTING()
'
' SM4PGPMPPRINTING Macro
' Macro recorded 9/24/2002 by Administrator
'

'
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
End Sub

Not really sure where Andrews suggestions of entry could go.

Thanks, Roy
This message was edited by royhern on 2002-09-26 15:00

 

[ChrisM]

Recording a macro produces a lot of unnecessary code. You can reduce your code to this:

Sheets(Array("Cover pg 1", "Mg Goal Pg & Mid-Final", _
"Guiding Values Goal & Mid-Final", "Mg Career dev & Final Rating")).PrintOut Copies:=2
End Sub

If you want to include the screen update code, you just turn off updating before your code, then turn it on after your code, like this:

application.screenupdating = false
Sheets(Array("Cover pg 1", "Mg Goal Pg & Mid-Final", _
"Guiding Values Goal & Mid-Final", "Mg Career dev & Final Rating")).PrintOut Copies:=2
application.screenupdating = true
End Sub

 

[royhern]

Team, i think i might be doing something wrong because i am still getting the error when trying to print after the sheets are hidden. This is the code...

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