vor dem Drucken, Label ausfüllen
16.02.2017 14:20:08
Andrew
Soweit ganz gut, ...
mein Problem, der Druckbefehl wird zwar lt. Code nach dem Ausfüllen durchgeführt, jedoch ausgedruckt wird lediglich immer der erste Datensatz.
Merkwürdig, wenn ich der Sequenz einen über VBA gesetzten 'STOP' durchführen lasse, funktionierts wunderbar. Sobald ich den Stop entferne nicht mehr.
Weiters verhält sich der Code soweit merkwürdig, dass ich selbst wenn ich eine MSGBOX dazwischen schalte lässt sich das Problem nicht beheben.
Hier der Codeausschnitt:
For i = 1 To 6 '(anz + 1)
ThisWorkbook.Worksheets(wrk).Cells(1, 21).Value = i
Application.Calculate
If Not (ThisWorkbook.Worksheets(wrk).Cells(2, 167).Value = Empty) Then
arrInfos() = getInfos(wrk)
With Sheets(urkundeTMP)
.OLEObjects("hunderasse").Object.Caption = arrInfos(0)
.OLEObjects("hundeName").Object.Caption = arrInfos(1)
.OLEObjects("fuehrerIn").Object.Caption = arrInfos(2)
.OLEObjects("nameFuehrer").Object.Caption = arrInfos(3)
.OLEObjects("prLeiter").Object.Caption = arrInfos(4)
End With
Call printUrkunde(urkundeTMP, i)
Else:
MsgBox ("Von " & arrInfos(2) & " " & arrInfos(3) & " wurde keine Urkunde gedruckt")
End If
Next i
LG
Andi