Code anhalten bis gedruckt ist
15.12.2005 05:08:04
egon
Habe problem mit dem Code.
Wenn ich einen Haltepunkt setze und zügig weiterklicke werden Bilder eingefügt.
Application.wait ausprobiert geht nicht.
Wie könnte ich das richtig verzögern bis der nächste Ausdruck fertig ist?
Private Sub CommandButton2_Click()
Dim name As String
Dim i As Integer
Dim Anzahl As Integer
If Worksheets("Tabelle2").Range("A2").Value = "" Then Exit Sub
Anzahl = Val(Auswahl.TextBox3.Text)
For i = 0 To Anzahl
'################### Daten von Tabelle2 in Formular (Tabelle3) einfügen ######################
Worksheets("Tabelle3").Range("Firma") = Worksheets("Tabelle2").Range("M2")
Worksheets("Tabelle3").Range("Kst") = Worksheets("Tabelle2").Range("C2")
Worksheets("Tabelle3").Range("Abtbau") = Worksheets("Tabelle2").Range("N2")
Worksheets("Tabelle3").Range("Bezeichnung") = Worksheets("Tabelle2").Range("F2")
Worksheets("Tabelle3").Range("Ivnr") = Worksheets("Tabelle2").Range("D2")
'#################### Bild einfügen
name = Worksheets("Tabelle3").Range("Ivnr").Value & ".jpg"
Worksheets("Tabelle3").Image1.Picture = LoadPicture("D:\Daten\Harald\Prüfblätter\" & name)
Worksheets("Tabelle3").PrintOut 'Das aktuelle Blatt ausdrucken
Worksheets("Tabelle2").Rows(2).Delete '1. Zeile löschen
If Worksheets("Tabelle2").Range("A2").Value = "" Then Exit Sub
Next i
End Sub
Schönen Tag noch
Egon