Export multiple sheets to PDF simultaneously without using ActiveSheet or Select

by

Hate to dredge up an old question, but I’d hate to see somebody stumbling across this question resort to the code gymnastics in the other answers. The ExportAsFixedFormat method only exports visible Worksheets and Charts. This is much cleaner, safer, and easier:

Sub Sample()

    ToggleVisible False

    ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        "exported file.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

    ToggleVisible True

End Sub

Private Sub ToggleVisible(state As Boolean)
    Dim ws As Object

    For Each ws In ThisWorkbook.Sheets
        Select Case ws.Name
        Case "Sheet1", "Chart1", "Sheet2", "Chart2"
        Case Else
            ws.Visible = state
        End Select
    Next ws
End Sub

More Related Contents:

  1. Sequence of numbers based on start and end value of 2 cells [closed]
  2. Function to convert column number to letter?
  3. Better way to find last used row
  4. How to insert a picture into Excel at a specified cell position with VBA
  5. 2 Dimensional array from range [closed]
  6. Save multiple sheets to .pdf
  7. Having multiple Excel instances launched, how can I get the Application Object for all of them?
  8. How can I create a calendar input in VBA Excel?
  9. Using Google Chrome in Selenium VBA (Installation Steps)
  10. Dir() function not working in Mac Excel 2011 VBA
  11. Merge values of column B based on common values on column A
  12. How to use workbook.saveas with automatic Overwrite
  13. How to import a table from web page (with “div class”) to excel?
  14. Range limit conundrum
  15. How do you run a .exe with parameters using vba’s shell()?
  16. How to determine the last Row used in VBA including blank spaces in between [duplicate]
  17. Passing variable from Form to Module in VBA
  18. How to give a time delay of less than one second in excel vba?
  19. Changing the date format to yyyy-mm-dd
  20. Delete all duplicate rows Excel vba
  21. Excel VBA: Convert a date string to a Unix timestamp
  22. excel to pdf ignores print area and calls printer
  23. Select Newest Record and Create New Table of Unique Values in Excel
  24. Excel VBA – exit for loop
  25. Are ActiveX Controls Disabled?
  26. Excel Date Conversion from yyyymmdd to mm/dd/yyyy
  27. VBA copy rows that meet criteria to another sheet
  28. VBA Dialog box to select range in different workbook
  29. Access files with long paths (over 260)
  30. How to highlight selected text within excel

Leave a Comment