Save PDF file in specific drive

[gemini528]

I have here a working code to Print PDF file, but I want the PDF file to be save on specific drive “D:\Report\Report1”.

Below is the working code. Any help would be appreciated.

Option Explicit
Sub PrintPDF()
Dim wsA As Worksheet
Dim wbA As Workbook
Dim strTime As String
Dim strName As String
Dim strPath As String
Dim strFile As String
Dim strPathFile As String
Dim myFile As Variant

On Error GoTo errHandler
Set wbA = ActiveWorkbook
Set wsA = ActiveSheet
strTime = Format(Now(), "mmmm dd yyyy")
strPath = wbA.Path
If strPath = "" Then
  strPath = Application.DefaultFilePath
End If
strPath = strPath & "\"
strName = Replace(wsA.Name, " ", " ")
strName = Replace(strName, ".", "_")
strFile = strName & " as of " & strTime & ".pdf"
strPathFile = strPath & strFile
myFile = Application.GetSaveAsFilename _
    (InitialFileName:=strPathFile, _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="Select Folder and FileName to save")
If myFile <> "False" Then
    wsA.ExportAsFixedFormat _
       Type:=xlTypePDF, _
        Filename:=myFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End If
exitHandler:
    Exit Sub
errHandler:
    MsgBox "Could not create PDF file"
    Resume exitHandler
End Sub

 

[pook_666]

You can just add the folder name within the "Filename" section of the code....remember to add the "\" at the end of the file name otherwise it won't save within the Report1 folder.

Filename:="D:\Report\Report1\" & myFile, _