Save Excel document -Add statement and only save first page.

[Livin404]

Greetings, I have a Macro and it works great as it saves my excel document as a PDF document, I would love to increase it's potential. I would like it to save only the first page, and have the words. "Pleasure ensure to reconcile activities with the previous month". If I can choose font 12 Times New Roman, and placed around the footer.

The macros is

Sub save_for_WRS()
Dim saveLocation As String
saveLocation = "X:\2. (CUI) Activities Drop Box\05. (CUI) Logistics\Logistic Reports.PDF"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=saveLocation

End Sub

 

[John_w]

Try this macro:

Public Sub Save_First_Page_As_PDF()

    Dim currentSelection As Range
    Dim currentView As XlWindowView
    Dim saveLocation As String
    
    saveLocation = "X:\2. (CUI) Activities Drop Box\05. (CUI) Logistics\Logistic Reports.PDF"
    
    Application.ScreenUpdating = False
    
    Set currentSelection = Application.Selection
    With ActiveWindow
        currentView = .View
        .View = xlPageBreakPreview
    End With

    With ActiveWorkbook.ActiveSheet
        .Rows("1:" & .HPageBreaks(1).Location.Row - 1).EntireRow.Select
        .PageSetup.CenterFooter = "&""Times New Roman,Regular""&12Please ensure to reconcile activities with the previous month"
    End With

    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=saveLocation
        
    ActiveWorkbook.ActiveSheet.PageSetup.CenterFooter = ""
    
    ActiveWindow.View = currentView
    currentSelection.Select
    
    Application.ScreenUpdating = False

End Sub