Druckaufträge
09.12.2021 20:40:16
Thomas
ich möchte gern mit diesem Makro
'-------------------------------------------------------------------------------------------------
Dim wksTab1 As Worksheet, wksTab2 As Worksheet
Dim intAnzahl As Integer, intZeilen As Integer
Dim DruckerAktiv As String
Set wksTab1 = Worksheets("tabelle2")
Set wksTab2 = Worksheets("tabelle1")
DruckerAktiv = Application.ActivePrinter ' aktuellen Drucker merken
For intZeilen = 8 To wksTab1.Cells(Rows.Count, 3).End(xlUp).Row
If wksTab1.Cells(intZeilen, 3) "" Then
wksTab2.Range("d5") = wksTab1.Cells(intZeilen, 3)
wksTab2.Range("b8") = wksTab1.Cells(intZeilen, 5)
intAnzahl = 1 'wksTab2.Range("E7")
wksTab2.PrintPreview
End If
Next
Application.ActivePrinter = DruckerAktiv ' Drucker zurücksetzen
'-------------------------------------------------------------------------------------------------------------------------
Eine unterschiedliche Anzahl von Tabellenblättern drucken. ( Dies ist so eine Art Seriendruck in Excel)
Kennt jemand einen Trick wie ich die einzelnen zu druckenden Blätter sammeln und zu einen einzigen Druckjob verbinden kann?
Habt schon mal rechtvielen dank für euer Interesse.
mfg thomas