Macro that creates separate .pdfs

[ficktd]

Hi all,

I am looking to create a macro that takes each sheet I have selected and turns it into a separate .pdf, and also names the .pdf.

For example, if there are five sheets in my workbook, but I only have three sheets selected, I would want those three sheets to be created into three separate .pdfs. The name of each .pdf would be located in one cell on each respective sheet.

Here is what I have so far. It currently works, but I can only do one sheet at a time. If I select multiple sheets, it only creates one .pdf and I would like each sheet to be its own .pdf. Any help would be appreciated!

Sub Macro3()


Dim wsA As Worksheet
Dim wbA As Workbook
Dim strName As String
Dim strPath As String
Dim strFile As String
Dim strPathFile As String
Dim myFile As Variant
Dim pdfName As String
On Error GoTo errHandler


Set wbA = ActiveWorkbook
Set wsA = ActiveSheet
pdfName = Range("O13").Text




'get active workbook folder, if saved
strPath = wbA.Path
If strPath = "" Then
  strPath = Application.DefaultFilePath
End If
strPath = strPath & "\"


'create default name for savng file
strFile = pdfName & strTime & ".pdf"
strPathFile = strPath & strFile


'use can enter name and
' select folder for file
myFile = Application.GetSaveAsFilename _
    (InitialFileName:=strPathFile, _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="Select Folder and FileName to save")


'export to PDF if a folder was selected
If myFile <> "False" Then
    wsA.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=myFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    'confirmation message with file info
    MsgBox "PDF file has been created: " _
      & vbCrLf _
      & myFile
End If


exitHandler:
    Exit Sub
errHandler:
    MsgBox "Could not create PDF file"
    Resume exitHandler
    
    
End Sub

 

[veyselemre]

Try;

Sub Macro3()

    Dim wsA As Worksheet
    Dim wbA As Workbook
    Dim strName As String
    Dim strPath As String
    Dim strFile As String
    Dim strPathFile As String
    Dim myFile As Variant
    Dim pdfName As String
    On Error GoTo errHandler


    Set wbA = ActiveWorkbook


    'get active workbook folder, if saved
    strPath = wbA.Path
    If strPath = "" Then
        strPath = Application.DefaultFilePath
    End If
    strPath = strPath & "\"


    For Each wsA In ActiveWindow.SelectedSheets


        pdfName = wsA.Range("O13").Text


        'create default name for savng file
        strFile = pdfName & strTime & ".pdf"
        strPathFile = strPath & strFile


        'use can enter name and
        ' select folder for file
        myFile = Application.GetSaveAsFilename _
                 (InitialFileName:=strPathFile, _
                  FileFilter:="PDF Files (*.pdf), *.pdf", _
                  Title:="Select Folder and FileName to save")


        'export to PDF if a folder was selected
        If myFile <> "False" Then
            wsA.ExportAsFixedFormat _
                    Type:=xlTypePDF, _
                    Filename:=myFile, _
                    Quality:=xlQualityStandard, _
                    IncludeDocProperties:=True, _
                    IgnorePrintAreas:=False, _
                    OpenAfterPublish:=False
            'confirmation message with file info
            MsgBox "PDF file has been created: " _
                   & vbCrLf _
                   & myFile
        End If


    Next
exitHandler:
    Exit Sub
errHandler:
    MsgBox "Could not create PDF file"
    Resume exitHandler
End Sub

 

[ficktd]

Thanks for the reply. This gets me closer to what I need, but each .pdf created contains the information for all tabs I have selected. I need each .pdf to contain only the information from its respective tab. Any ideas on how to update the macro to get each .pdf to contain only its respective information?

 

[veyselemre]

I do not know English much. Codes make only one page pdf at a time. Could you be looking at the wrong PDFs?
https://yadi.sk/d/73oquilRa85gUw

 

[ficktd]

It looks like the code makes two .pdfs if I have two sheets selected. When I look at the two .pdfs, they both contain two pages at at time. I am hoping to get it so each .pdf contains one page at a time.

I hope that makes sense.

 

[DanteAmor]

Download the following app, it has several options to print, pdf and excel.
You have to create an argument sheet "set" and a userform.

Run the userform, select the sheets, check Pdf, check create separate pdf, select path and press ok

https://www.dropbox.com/s/58dkte1leqrq2t4/Send multiple sheets to PDF-Print-File v5.xlsm?dl=0