3 Tabellen aus Arbeitsmappe drucken

Moin zusammen,

ich möchte meinem Excel97 sagen, daß es nach
Druck auf eine Schaltfläche 3 bestimmte Tabellen
drucken soll.

Hat vielleicht jemand einen VBA-Ansatz für mich?

Danke für Eure Hilfe.

Gruß

Rolf

Hi !

Wenn es immer die gleichen drei Tabellen sind, dürfte dies doch ziemlich einfach mit dem Makrorekorder zu lösen sein.

Über Extras --> Makros --> Aufzeichnen

die Schritte durchgehen (Tabellen markieren und drucken). Habe fertig.
Die Profis schauen sich dann den durch den Rekorder generierten Buchstabensalat an und sagen „Ja. Stimmt. So gehts.“ Der Laie guckt sich den Buchstabensalat an uns sagt „Mhmmm.“ Und läßt Weiteres bleiben.

BARUL76

Ja stimmt, so gehts :smile:)

Die Profis schauen sich dann den durch den Rekorder
generierten Buchstabensalat an und sagen „Ja. Stimmt. So
gehts.“ Der Laie guckt sich den Buchstabensalat an uns sagt
„Mhmmm.“ Und läßt Weiteres bleiben.

Hi Barul76,
ich fühl mich nicht angesprochen, hänge da irgendwie dazwischen*g
Aber der Ansatz ist richtig, erst Makro1 dann Drucken3…

Sub Makro1()
' Makro1 Makro
' Makro am 16.05.2006 von r aufgezeichnet
 ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

Sub Drucken3()
Dim n As Integer, Blätter
Blätter = Array("Tabelle1", "Tabelle2", "Tabelle3")
For n = 0 To UBound(Blätter)
 Worksheets(Blätter(n)).PrintOut
Next n
End Sub

Gruß
Reinhard

Sub PrintTab()
 Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select
 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Hallo zusammen,

Das klappt. *artigdankesag*

Gruß

Rolf :smile: