I have a macro that saves the print area to a pdf file and automatically names it according to the company naming convention that is required. I did not realize that the saving was not taking up the page. I would like the print area to be one full page wide.

I'm thinking that if I go to the print menu while recording a macro that I can capture the code to make it do as I need. But, I thought I would check with some experts beforehand. I use this sheet about a hundred times a day give or take.

Here is my macro: 

Sub SaveAsPDF()
    'Publish file as a custom pdf
    '(ThisWorkbook.Path &
    'Sub SaveToRelativePath()
    'Dim relativePath As String
    'relativePath = ThisWorkbook.Path & "\" & ActiveWorkbook.Name
    'ActiveWorkbook.SaveAs filename:=relativePath
    'ChDir "C:\Users\phillip.gwinn\Desktop"
    Application.Goto Reference:="Print_Area"
    ChDir ThisWorkbook.Path
    Selection.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
        Range("r7"), Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub