AW: mehrere Makros mit einer Schaltfläche
09.02.2023 11:35:25
GerdL
Hallo Andreas!
Da du die Makros im Modul der jeweiligen Tabelle hast,
musst du noch für "Alle" den Blattnamen, hier den Codenamen voranstellen:
Sub DruckTabelleAlle()
Call Tabelle1.DruckTabelle1
Call Tabelle2.DruckTabelle2
Call Tabelle3.DruckTabelle3
End Sub
und im jeweiligen Einzel-Makro kannst du anstatt des von dir mittlerweile geänderten Blattregisternamens den Printview jeweils so aufrufen.
Sub DruckTabelle1()
Dim strDruckerAktiv$, i%, max%, vz%, bz%, sStdDrucker$
sStdDrucker = Application.ActivePrinter
strDruckerAktiv = Application.ActivePrinter
max = Sheets("Druckvorgabe").Range("A1").Value
If max 1 Then max = 1
If max > 15 Then max = 15
For i = 1 To max
vz = i * 40 - 39: bz = i * 40
Me.Range("A" & vz & ":F" & bz).PrintPreview
Next i
Application.ActivePrinter = sStdDrucker
End Sub
Gruß Gerd