Snasui Excel Forum

Code: Select all

Sub SaveAsPDF()
Dim sv As String
sv = "D:\code SAVE as PDF.pdf" '<== Path and file name
    ActiveSheet.PageSetup.PrintArea = "$B$1:$K$40"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sv
End Sub

Code: Select all

Sub Macro1()
Dim sv As String
sv = Application.GetSaveAsFilename(filefilter:="PDF Files (*.pdf), *.pdf")
    With ActiveSheet.PageSetup
        .PrintArea = "$B$1:$K$40"
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sv
End Sub