Macro to print mutliple sheets i choose to PDF

[tonywatsonhelp]

Hi Everyone,
Maybe you can help?

I have a document

I want to print out the sheets i select

all pages are set up with print areas etc.

so heres what i need?

I have a list of all my sheet names down column H

In column J I have have all the sheets i want to print maked with an "a"

so i need a macro that can go down column H and if Column J of that row is an "a" mark it to be printed

then once it has all the sheets it wants to print selected, it create a PDF call "value of K12" and saved in the same folder we are currently in.

please help if you can thanks

Tony

 

[DanteAmor]

Change in the macro "Master" by the name of your sheet with the names of all the sheets.

Try this:

Sub SavePdf()
  Dim sName As String, sPath As String
  Dim i As Long, sh As Worksheet, bSel As Boolean
  
  Set sh = Sheets("Master")
  bSel = True
  For i = 1 To sh.Range("H" & Rows.Count).End(3).Row
    If LCase(sh.Range("J" & i).Value) = LCase("a") Then
      sName = sh.Range("H" & i).Value
      If Evaluate("ISREF('" & sName & "'!A1)") Then
        Sheets(sName).Select Replace:=bSel
        bSel = False
      End If
    End If
  Next
  
  sPath = ThisWorkbook.Path & "\" & "value of K12.pdf"

  ActiveSheet.ExportAsFixedFormat xlTypePDF, sPath, xlQualityStandard, True, False, , , False
  Sheets(1).Select
End Sub