Sub DruckTabelleAlle()
Call DruckTabelle1
Call DruckTabelle2
Call DruckTabelle3
End Sub
GrußSub erstellen .Sub AlleAufrufen() Call DruckTabelle1() Call DruckTabelle2() Call DruckTabelle3() End SubGruß
Oraculix
Sub DruckTabelleAlle() Call Tabelle1.DruckTabelle1 Call Tabelle2.DruckTabelle2 Call Tabelle3.DruckTabelle3 End Subund 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ß GerdDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen