Gruppe
Druck
Bereich
Seite
Thema
Nur die letzte Seite drucken
Problem
Nur die letzte Seite soll gedruckt werden.
Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.
StandardModule: Modul1
Sub PrintLastSite()
Dim iSite As Integer
iSite = ExecuteExcel4Macro("INDEX(GET.DOCUMENT(50),1)")
ActiveSheet.PrintOut from:=iSite, to:=iSite
End Sub