Excel'de yalnızca son sayfaya nasıl alt bilgi yazdırılır?

Varsayılan olarak, Excel'in yerleşik "Başlık ve Alt Bilgi" özelliği ile bir çalışma sayfasındaki her yazdırılan sayfanın alt kısmına kolayca alt bilgiler ekleyebilirsiniz. Eğer bir çalışma sayfasında yalnızca son yazdırılan sayfaya bir alt bilgi eklemek istiyorsanız, bunu nasıl yapabilirsiniz? Bu öğretici, size bu görevi adım adım gerçekleştirmenize yardımcı olmak için bir VBA betiği sunmaktadır.

VBA kodu ile yalnızca son sayfaya alt bilgi yazdırma

Lütfen aşağıdaki VBA kodunu yalnızca Excel'deki son yazdırılan sayfaya özel bir alt bilgi yazdırmak için çalıştırın.

1. Yazdırmak istediğiniz çalışma sayfasını açın ve yalnızca son sayfada görünecek özel bir alt bilgi ayarlayın.

2. "Alt" + "F11" tuşlarına basarak "Microsoft Visual Basic for Applications" penceresini açın.

3. "Microsoft Visual Basic for Applications" penceresinde "Ekle" > "Modül" seçeneğine tıklayın. Ardından aşağıdaki VBA kodunu "Modül (Kod)" penceresine kopyalayın.

VBA Kodu: Yalnızca son sayfaya alt bilgi yazdırma

Sub SetFooterOnLastPage()
'Updated by Extendoffice 20221024
    Dim xCount As Long
    Dim xWSh
    xCount = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
    Set xWSh = Application.ActiveSheet
    With Application.ActiveSheet
    .PageSetup.RightFooter = ""
        If xCount > 1 Then
            .PrintOut From:=1, To:=xCount - 1
        End If
            .PageSetup.RightFooter = "Type your footer information here"
            .PrintOut From:=xCount, To:=xCount
    End With
End Sub

Not: Kodda, bu içeriği "Buraya alt bilgi bilginizi yazın" ifadesini kendi alt bilgi bilginizle değiştirin.

4. Kodu çalıştırmak için "F5" tuşuna basın.

Daha sonra aktif çalışma sayfası, yalnızca son yazdırılan sayfaya özel alt bilgi eklenerek yazdırılacaktır.