Gruppe
Druck
Problem
Nur die letzte Seite soll gedruckt werden.
StandardModule: Modul1
Sub PrintLastSite()
Dim iSite As Integer
iSite = ExecuteExcel4Macro("INDEX(GET.DOCUMENT(50),1)")
ActiveSheet.PrintOut from:=iSite, to:=iSite
End Sub