Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter drucken

Forumthread: Tabellenblätter drucken

Tabellenblätter drucken
15.04.2005 17:50:09
dobberphul
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
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter drucken
15.04.2005 18:58:32
Frank
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
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige