Need Macro to print selected area(s) to PDF using a file name in cell

[rcicconetti]

I have created a scheduling sheet.

I would like to select (days of the week) X3:AC52, AE3:AJ52, AL3:AQ52, AS3:AX52, AA59:AF111, AH59:AM111 and AO59:AT111 to save as a PDF.

I want to name the PDF whatever value is currently located in AE2 (ie Week of Jan1).

I would like to save it to a folder "Schedules" in C:\User\Owner\Documents\Schedules.

The PDF should save as 7 pages in the PDF file (one for each selection).

Thanks for any help

 

[John_w]

Try this:

Public Sub Create_PDF()
     
    Dim saveFileName As String
    Dim PDFranges As Range
    
    With ActiveSheet
        saveFileName = "C:\User\Owner\Documents\Schedules\" & .Range("AE2").Value & ".pdf"
    
        Set PDFranges = .Range("X3:AC52,AE3:AJ52,AL3:AQ52,AS3:AX52,AA59:AF111,AH59:AM111,AO59:AT111")
    End With
    
    PDFranges.ExportAsFixedFormat Type:=xlTypePDF, Filename:=saveFileName, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
     
End Sub

I'm not sure if you want the save folder to depend on the user (computer) running the code, in which case use the path returned by CreateObject("WScript.Shell").SpecialFolders("MyDocuments") instead of the ""C:\User\Owner\Documents" part of the file name.

 

[rcicconetti]

I got a Run-time error'1004':
"Document not saved. The document may be open, or an error may have been encountered when saving."

Debugger highlighted line:
"PDFranges.ExportAsFixedFormat Type:=xlTypePDF, Filename:=saveFileName, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True"

 

[Kenneth Hobson]

Did you change the code as shown after the code block?

 

[rcicconetti]

Awesome!! Changing the code worked!!!
You guys are Great!!!! Thanks!!