Need to increase the PDF print area

[Pookiemeister]

Before I convert my chart over to a PDF, I do a print preview to make sure everything is going to fit onto 8.5 inch x 11 inch paper and it looks like it will. That being said, I, when I run the code below, and when it gets to the "openafterpublish", it cuts off the bottom part of my chart. Is there a way to adjust the print area size with VBA code? Here's what I have so far. Thank you in advance.

Private Sub cmdbtnPDF_Save_Click()
    Dim sPath As String
    Dim sFilename As String
    Dim wbAnswer As Integer
        
       
    sPath = "C:\Users\" & Environ("username") & "\Desktop\Save PDF Test\"
        
    sFilename = Range("E2").Text & "_" & Format(Now, "mm.dd.yyyy") & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFilename, IgnorePrintAreas:=True, openafterpublish:=True, IncludeDocProperties:=False
    ActiveWorkbook.Save
    wbAnswer = MsgBox("Are you sure you want to close this workbook and Excel?", vbYesNo + vbDefaultButton1 + vbQuestion, "WORKBOOK: " & ActiveWorkbook.Name)
    If wbAnswer = vbYes Then
        ActiveWorkbook.Save
        Application.Quit
    Else
        Exit Sub
    End If
    
End Sub

 

[DanteAmor]

Try this:

Private Sub cmdbtnPDF_Save_Click()
    Dim sPath As String
    Dim sFilename As String
    Dim wbAnswer As Integer
        
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
    End With
     
    sPath = "C:\Users\" & Environ("username") & "\Desktop\Save PDF Test\"
        
    sFilename = Range("E2").Text & "_" & Format(Now, "mm.dd.yyyy") & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFilename, IgnorePrintAreas:=True, openafterpublish:=True, IncludeDocProperties:=False
    ActiveWorkbook.Save
    wbAnswer = MsgBox("Are you sure you want to close this workbook and Excel?", vbYesNo + vbDefaultButton1 + vbQuestion, "WORKBOOK: " & ActiveWorkbook.Name)
    If wbAnswer = vbYes Then
        ActiveWorkbook.Save
        Application.Quit
    Else
        Exit Sub
    End If
    
End Sub