xlAtom Nr. 000004

Der über das folgende Makro gesteuerte Audruck druckt nur auf der ersten Seite eine Fußzeile:

Sub Drucken()
   Dim iPage As Integer
   For iPage = 1 To ExecuteExcel4Macro("GET.DOCUMENT(50)")
      With Worksheets("Tabelle1")
         If iPage = 1 Then
            .PageSetup.LeftHeader = "Mein Dokument"
         Else
            .PageSetup.LeftHeader = ""
         End If
         .PrintOut from:=iPage, To:=iPage
      End With
   Next iPage
End Sub