Printing Sheets in Single PDF Error

[Zathlas]

Hi all!
I have this problem trying to print multiple sheets in a single pdf. Browsing online and in the forum i found this code but when i use it i get the ERROR 9 "Subscript out of range" and i dont understand why. I tried in a new workbook the code and it works properly. Can someone help me?

Private Sub cmd_PrintPDF_Click()

ThisWorkbook.Sheets(Array("Costs", "Cars")).Select

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "/" & "Cost&Car", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

 

[timfritsch]

Replace "/" with "\" in the thisworkbook.path statement

 

[Zathlas]

Thank you for the answer tim. I chenged what you told me, but i still have the same Error#9 "subscript out of range". The debugger underline this line in particular.

ThisWorkbook.Sheets(Array("Costs", "Cars")).Select

This macro runs from the main panel of my workbook, where there are various Command buttons that direct you in requested sheets.When i run this macro the sheet "Cars" is hidden, may be is this the problem? I tried with an .Activate before the code but it still doesn't work.

Thank you

 

[timfritsch]

Yes, the hidden sheet is likely causing the error. In testing, I was able to create a PDF using your code.

Hope this helps.


Tim