Subscript out of range

[thewiseguy]

Can someone tell me what this means:

Sub Print_to_PDF_Installer_Docs()
'
' Print_to_PDF Macro
'

'
Sheets(Array("Project Detail (install)", "Checklist (Install)", "BOM (Install)", "LxL (Install)", "DamagedFixture (Install)", "RecycleRequest (Install)", "Labor Budget (Install)")).Select
Sheets("Project Detail (install)").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub

 

[Jon Peltier]

It's almost self-explanatory.

A group of sheets is selected, and one of these is made the active sheet.
One copy of each selected sheet is printed (to the default printer) as a collated document, using each sheet's defined print area.

 

[thewiseguy]

It's almost self-explanatory.

A group of sheets is selected, and one of these is made the active sheet.
One copy of each selected sheet is printed (to the default printer) as a collated document, using each sheet's defined print area.

sorry i should have been more clear. why am I getting a "subscript out of range" error? Im new to VBA.

thanks

 

[dreid1011]

sorry i should have been more clear. why am I getting a "subscript out of range" error? Im new to VBA.

thanks

More than likely it is trying to select a sheet name that doesn't exist. I would double check all your sheet names spelling in the code and make sure they are accurate.

 

[thewiseguy]

More than likely it is trying to select a sheet name that doesn't exist. I would double check all your sheet names spelling in the code and make sure they are accurate.

any other ideas? i just changed each sheet name to have no spaces then amedned the code and still getting the error

 

[dreid1011]

any other ideas? i just changed each sheet name to have no spaces then amedned the code and still getting the error

Nope. Maybe post a screen shot with all your sheet names and the code exactly as it is now so we can look at it.

 

[thewiseguy]

Nope. Maybe post a screen shot with all your sheet names and the code exactly as it is now so we can look at it.

Sub Print_to_PDF_Installer_Docs()
'
' Print_to_PDF Macro
'

'
Sheets(Array("ProjectDetail(install)", "Checklist(Install)", "BOM(Install)", "LxL(Install)", "DamagedFixture(Install)", "RecycleRequest(Install)", "LaborBudget(Install)")).Select
Sheets("ProjectDetail(install)").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub

 

[Jon Peltier]

"ProjectDetail(Install)" may be different from "ProjectDetail(install)", though a quick test shows it should still work.

One by one, test each sheet name in the Immediate Window:

Worksheets(actual_sheet_name).Activate

And I might be showing my OCD here, I always say Worksheets and not Sheets. Always be as specific as possible in VBA. (Also, Worksheets has IntelliSense and Sheets does not.)

 

[dreid1011]

Sub Print_to_PDF_Installer_Docs()
'
' Print_to_PDF Macro
'

'
Sheets(Array("ProjectDetail(install)", "Checklist(Install)", "BOM(Install)", "LxL(Install)", "DamagedFixture(Install)", "RecycleRequest(Install)", "LaborBudget(Install)")).Select
Sheets("ProjectDetail(install)").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub


View attachment 100749

You have an extra ")" on sheet name "BOM(Install))".