Tabellenblätter drucken

Bild

Betrifft: Tabellenblätter drucken
von: dobberphul
Geschrieben am: 15.04.2005 17:50:09
Hallo ihr,
ich suche eine Möglichkeit alle Tabellenblätter mit den Namen "1" bis "99" zu drucken, ohne alle bestätigen zu müssen. Am besten per Buttondruck.
Vielen Dank,
DerTobi

Bild

Betrifft: AW: Tabellenblätter drucken
von: Frank
Geschrieben am: 15.04.2005 18:58:32
Hallo,

Code in Modul (Anpassungen vornehmen) einfügen Schaltfläche zuweisen, sollte gehen

Sub alleBlätterdrucken()
    Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select 'zu druckende Tabellen einfügen
    Application.ActivePrinter = "Acrobat PDFWriter auf LPT1:" 'Drucker anpassen
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "Acrobat PDFWriter auf LPT1:" 'hier auch anpassen
End Sub

Gruß Frank
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Tabellenblätter drucken"