VBA mit Druckschliefe ein Gesamt-pdf
01.07.2020 12:44:20
Micha
Sub proDruck()
Dim lngZeileMax As Long
lngZeileMax = Worksheets("zr014.50").Range("B10000").End(xlUp).Row
b = Worksheets("zr014.50").Range("B" & lngZeileMax).Value
'Druckschleife
For i = 1 To 5
Sheets("Tabelle1").Cells(2, 2).Value = i
Application.PrintCommunication = False
'Druckbereich festlegen
Dim lngCounter As Long
lngCounter = 114 'druckt immer bis Zeile 114
' pr?ft Spalte A; wenn Daten ?ber Zeile 100 hinaus vorhanden sind, wird der Druckbereich
' entsprechend erweitert
Do While Cells(lngCounter + 1, 1).Value ""
lngCounter = lngCounter + 1
Loop
ActiveSheet.PageSetup.PrintArea = _
ActiveSheet.Range("A1:L" & lngCounter).Address
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 0
End With
Application.PrintCommunication = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Next i
End Sub