Set Gridlines when Exporting Data as a PDF

[howard]

I have the following code below

I need the code amended to show Grindlines on the Range of Data saved as a PDF

Sub Export_Summary_as_PDF()
    
    Application.ScreenUpdating = False
    Range("Summary").Select
   

    Dim filePath As String
    filePath = "C:\My Documents\" & "\" & ActiveSheet.Range("E825").Value & ".pdf"

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:= _
        filePath, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

    Application.ScreenUpdating = True
End Sub

 

[howard]

I managed to correct this -see below

Sub Export_Summary_as_PDF() Application.ScreenUpdating = False Dim summaryRange As Range ' Change to suit needs Set summaryRange = ActiveSheet.Range("Summary") ' Change to suit needs With summaryRange .Worksheet.PageSetup.PrintGridlines = True .ExportAsFixedFormat Type:=xlTypePDF, fileName:= _ "C:\My Documents\" & ActiveSheet.Range("E825").Value & ".pdf", Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False End With Application.ScreenUpdating = True End Sub