Druck mit Schleife
Marcus
kann mir jemand sagen, wie sich in dieser Schleife der Druck zusammenfassen lässt.
Das heißt die Anzahl Seiten des "Counter" als ein Druckauftrag?
Es wäre mir eine große Hilfe!
Danke
Marcus Leu
Private Sub CommandButton1_Click()
If MsgBox("Alles fertig ?" & Chr(13) & "Kontrolle durchgeführt ?" & Chr(13) & "Jetzt _ _
drucken ?", vbYesNo) = vbNo Then
Exit Sub
Else
Range("j6") = 6
Dim Counter As Integer
For Counter = 6 To Range("j7").Value
If Cells(Counter, 12) = 1 Then
Range("j6") = Cells(Counter, 11)
ActiveSheet.PrintOut
End If
Next Counter
MsgBox ("Das war's, alles gedruckt!")
End If
End Sub