VBA: Leerlauf zwischen den Ausdrucken
21.01.2020 22:24:22
WalterK
das folgende Makro funktioniert, beim Ausdruck hapert es aber.
Mittels Schleife werden nacheinander Daten in ein Rechnungsformular eingelesen und dann auch gleich ausgedruckt. Das Makro läuft in 1 Sec durch, beim Ausdruck macht der Drucker zwischen den einzelnen Ausdrucken ca 7 bis 8 Sec Pause.
Liegt es an meinem Code? Kann man irgend etwas abändern?
Hier der Code und die Datei:
Option Explicit
Sub RE_Drucken()
Dim Daten As Worksheet
Dim Drucken As Worksheet
Dim LZ As Long
Dim i As Long
Set Daten = Worksheets("AlleDatenEingeben")
Set Drucken = Worksheets("RechnungenDrucken")
LZ = Application.Max(2, Daten.Cells(Rows.Count, 2).End(xlUp).Row)
Application.ScreenUpdating = False
For i = 2 To LZ
If Daten.Cells(i, 1) = "x" Then
Drucken.Cells(5, 2) = Daten.Cells(i, 2)
Drucken.Cells(5, 3) = Daten.Cells(i, 3)
Drucken.Cells(8, 4) = Daten.Cells(i, 4)
Drucken.PrintOut from:=1, to:=1, Copies:=1
Else
Drucken.Cells(5, 2).ClearContents
Drucken.Cells(5, 3).ClearContents
Drucken.Cells(8, 4).ClearContents
End If
Next i
Drucken.Cells(5, 2).ClearContents
Drucken.Cells(5, 3).ClearContents
Drucken.Cells(8, 4).ClearContents
Daten.Activate
Set Daten = Nothing
Set Drucken = Nothing
End Sub
https://www.herber.de/bbs/user/134606.xlsm
Besten Dank und Servus, Walter