save as pdf

[dpaton05]

I need a procedure to save a document as pdf. The default file name needs to be the value that is entered in cell G7 + value entered in H5 as one word.

Could someone help me with this please?

 

[Logit]

.

Option Explicit


Sub Export_Worksheet_to_PDF()
   
    Dim currentSheet As Worksheet, fname As String
    fname = ActiveSheet.Range("G7").Value & ActiveSheet.Range("H5").Value    '" for " & ActiveSheet.Range("H5").Value
    
    With ThisWorkbook
        Set currentSheet = .ActiveSheet
        .ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & fname & ".pdf", _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
    End With


End Sub

Saves the PDF file to the same location as the workbook. It selects the ACTIVE SHEET to convert to PDF.

 

[DanteAmor]

Try

Sub savepdf()
Dim sPath As String, sFile As string
sPath = ThisWorkbook.Path & "\"
sFile = range("g7") & range("h5")
Activeworkbook.ExportAsFixedFormat _
    Type:=x1typePDF, _
    Filename:=spath & sFile, _
    Quality:=xlQualityStandard, _
    Includedocproperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=false
End Sub

 

[dpaton05]

Logit, your code just seems to work, but I need it to ask you where the file is to be saved instead of just being saved in the directory that the spreadsheet is located it.

 

[DanteAmor]

if you do not indicate it is not possible to guess. in the forum there are many similar answers:

https://www.mrexcel.com/forum/excel-questions/698654-using-vba-export-worksheet-pdf-file.html

 

[DanteAmor]

https://www.mrexcel.com/forum/excel-questions/602262-folder-picker-save-file.html