Help with VBA to Save as PDF

[Kap61]

I want to save certain sheets as a PDF file with a specific path, have a default file name with the option to edit the file name which also opens the PDF file.

Seems to work with desired path and option to change default file name, but the PDF file is never saved and the code continues to the end where the excel file is saved.

Any help to tweak the following would be appreciated.


Sub SavePDF()
'
' SavePDF Macro
'


'
Dim FileAndLocation As Variant
Dim strPathLocation As String
Dim strFilename As String
Dim strPathFile As String


strPathLocation = Worksheets("Master").Range("D3").Value
strFilename = Worksheets("Master").Range("D2").Value
strPathFile = strPathLocation & strFilename


Sheets("DPV Test Log I-1-1 ").Select
ActiveWindow.ScrollWorkbookTabs Sheets:=16
Sheets(Array("DPV Test Log I-1-1 ", "DPV Test Log I-1-1A", "DPV Test Log I-1-2", _
"DPV Test Log I-1-3 #1 ", "DPV Test Log I-1-3 #2 ", "DPV Test Log I-1-3 #3 ", _
"DPV Test Log I-1-12 Lunch room", "DPV Test Log I-1-20", "DPV Test Log I-1-23 #1 " _
, "DPV Test Log I-1-23 #2 ", "DPV Test Log I-1-34", "DPV Test Log I-1-58", _
"DPV Test Log I-1-88", "DPV Test Log I-1-101", "DPV Test Log I-1-134", _
"DPV Test Log F2-10", "DPV Test Log F-6-45", "DPV Test Log P-1-1", _
"DPV Test Log S-3-3", "DPV Test Log T-1-3", "DPV Test Log T-1-9")).Select
Sheets("DPV Test Log I-1-1 ").Activate
FileAndLocation = Application.GetSaveAsFilename _
(InitialFileName:=strPathLocation & strFilename, _
filefilter:="PDF Files (*.pdf), *.pdf", _
Title:="Select Folder and FileName to save")
ActiveWindow.ScrollWorkbookTabs Sheets:=-16
Sheets("Master").Select
ActiveWorkbook.Save
End Sub

 

[jondavis1987]

From what I can tell you never tell it to save it as a pdf

 Dim LocationName As String
     fName = ActiveSheet.Range("A2").Value
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
             "C:\Users\Jdavis\Dropbox\Quality Control\Aggregates\Stockpile Gradation\" & fName, Quality:=xlQualityStandard, _
             includeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

The first code is an example of saving a pdf that I use. Below is a generic vba to save as a pdf

Sheets("Sheet1").Range("A1:H20").ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\Users\marks\Documents\Saved PDF.pdf"

 

[DanteAmor]

Try this

Sub SavePDF()
    Dim FileAndLocation  As Variant
    
'Select sheets
    Sheets(Array("DPV Test Log I-1-1 ", "DPV Test Log I-1-1A", "DPV Test Log I-1-2", _
        "DPV Test Log I-1-3 [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL]  ", "DPV Test Log I-1-3 [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=2]#2[/URL]  ", "DPV Test Log I-1-3 [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=3]#3[/URL]  ", _
        "DPV Test Log I-1-12 Lunch room", "DPV Test Log I-1-20", "DPV Test Log I-1-23 [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL]  ", _
        "DPV Test Log I-1-23 [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=2]#2[/URL]  ", "DPV Test Log I-1-34", "DPV Test Log I-1-58", _
        "DPV Test Log I-1-88", "DPV Test Log I-1-101", "DPV Test Log I-1-134", _
        "DPV Test Log F2-10", "DPV Test Log F-6-45", "DPV Test Log P-1-1", _
        "DPV Test Log S-3-3", "DPV Test Log T-1-3", "DPV Test Log T-1-9")).Select
    
'Select file and location
    FileAndLocation = Application.GetSaveAsFilename(InitialFileName:="new.pdf", FileFilter:="PDF files, *.pdf", Title:="Save PDF File")
    If FileAndLocation = False Then Exit Sub
    
'save file as pdf
    [COLOR=#0000ff]ActiveSheet[/COLOR].ExportAsFixedFormat Type:=xlTypePDF, Filename:=[COLOR=#0000ff]FileAndLocation[/COLOR], Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    Sheets("Master").Select
End Sub