Macro for saveas pdf for specific area in sheet of a workbook

[RYALILAYR]

Sir,

Good evening

am trying to write a macro for saveas a portion of excel worksheet in pdf format, but am unable to do the same since sintax errors coming, can any one can help me in this regard

one more thing is the file created should be name as content in cell "A1" of "sheet1"


Thanks

 

[lrobbo314]

How about this?

Sub SaveAsPDF()
Dim r As Range
Dim ws As Worksheet
Dim strPath As String

Set ws = Sheets("Sheet1")
With ws
    strPath = Environ("UserProfile") & "\Desktop\" & .Range("A1").Value & ".pdf" 'You can modify this to change the save location
    Set r = .Range("$G$13:$L$25") 'Change to Print Area you want to export
    .PageSetup.PrintArea = r.Address
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPath, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=True
End With
End Sub

 

[RYALILAYR]

Sir,


Sub SaveAsPDF()
Dim r As Range
Dim ws As Worksheet
Dim strPath As String

Set ws = Sheets("Sheet1")
With ws
strPath = Environ("UserProfile") & "\Desktop" & .Range("A1").Value & ".pdf" 'You can modify this to change the save location
Set r = .Range("$G$13:$L$25") 'Change to Print Area you want to export
.PageSetup.PrintArea = r.Address
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPath, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End With
End Sub


while running the aforesaid code it showing as error in exportasfixedformat and highlightes the lines as set in bold above.... kindly help me resolve this issue


Thanks

 

[Stiuart_W]

You need to put a valid file name, like "TestFile" in cell A1.

Then modify the code to suit your needs