Save several sheets of the workbook in one sheet in PDF format

[sofas]

Hello.I have a workbook containing 200 Excel sheets, I want to save the papers starting from sheet 50 to the last sheet in the workbook in pdf format
So that they are displayed one sorry the other.

Sub PrintSpecificSheetsToPdfWithLoop()
 
    Dim iSheets() As String
    Dim iCount As Long
    iFolder = ThisWorkbook.Path & "\"
    iFile = "test"
    ReDim iSheets(50To ThisWorkbook.Sheets.Count)
   
    For iCount = LBound(iSheets) To UBound(iSheets)
        iSheets(iCount) = ThisWorkbook.Sheets(iCount).Name
    Next iCount
 
   ThisWorkbook.Sheets(iCount).ExportAsFixedFormat Type:=xlTypePDF, Filename:=iFolder, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
 
End Sub

 

[OaklandJim]

You need to "select" all worksheets to be included. Here is an example.

ThisWorkbook.Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select

ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:="C:\temp.pdf", _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

 

[sofas]

You need to "select" all worksheets to be included. Here is an example.

ThisWorkbook.Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select

ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:="C:\temp.pdf", _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

Thank you, but I was able to find a solution in another way

Print Multiple sheets, based on cell value

I have a report, that is made up of multiple worksheets, I am trying to create a printed report of specific worksheets that print as an individual PDF the following code does this Sub PrintAllSheetToPdf() For Each iSheet In ActiveWorkbook.Worksheets Sheets(Array("Sheet 1", "Sheet...

www.mrexcel.com