Auf das aktive Blatt können Sie sich mit der ActiveSheet-Eigenschaft beziehen. Im folgenden Beispiel wird die Activate-Methode verwendet, um das Tabellenblatt "Tabelle1" zu aktivieren, die Seitenausrichtung auf Querformat zu setzen und das Tabellenblatt zu drucken.
Worksheets("Tabelle1").Activate
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.PrintOut
Und wenn Du nur Bereiche drucken willst dann so:
Worksheets("Tabelle1").Range("A1:D5").PrintOut
Gruß Thomas
ein Formular mit einer ListBox "lstTable" und einem CommandButton "cmdPrint" erstellen, die Listbox auf
"Multiselect = 1 fmMultiSelectMulti" stellen: