Hay das stimmt.
Ich muss erlich sagen das dass eig nicht reingehört das war ein versuch das Problem zu lösen, das ist der gesamte code
Sub print_for()
Dim i As Integer
Dim max As Integer
max = 70 'Max Etiketten am Stück'
Dim var1 As Variant
var1 = Range("G6").Value 'Von'
Dim var2 As Variant
var2 = Range("I6").Value 'Bis'
Dim count As Variant
count = var2 - var1 'Berechne Anzahl'
Dim row As Variant
row = -9998 'Differenz Seriennummer zu Zeile'
Dim res As Variant
res = Range("G6").Value
row = row + res 'Zeilennummer'
Range("E4").Value = res
If Not Range("E12").Value = 0 Then 'Überprüfe das die Snr nicht bereits gedruckt wurde'
Range("G7").Value = res
Range("G7").Font.Color = -16776961
Range("H7").Font.Color = -16776961
Range("H7").Value = "Serien Nummer Bereits Gedruckt!"
Range("G6").Value = res
Exit Sub
End If
Range("G7:H7").Font.Color = vbBlack
If var1 > var2 Then 'Überprüfe das Var 1 nicht grösser als Var 2 ist'
Range("H7").Font.Color = -16776961
Range("H7").Value = "'von' darf nicht grösser als 'bis' sein!"
Else
Dim strActP As String
strActP = Application.ActivePrinter
If MsgBox("Ihr aktiver Drucker ist: " & strActP & vbLf & _
"Möchten Sie die Druckaufträge mit diesem Drucker ausführen?", _
vbInformation + vbYesNo, "Drucken") = vbNo Then
Dim Prt
Prt = Application.Dialogs(xlDialogPrinterSetup).Show
If Prt = False Then Exit Sub
End If
If count < max Then
Range("H7").Value = "Starte Druck..."
For i = 0 To count
Range("E4").Value = res
Range("G7").Value = res
If Not Range("E12").Value = 0 Then 'Überprüfe das die Snr nicht bereits gedruckt wurde'
Range("G7").Value = res
Range("G7").Font.Color = -16776961
Range("H7").Font.Color = -16776961
Range("H7").Value = "Serien Nummer Bereits Gedruckt!"
Range("G6").Value = res
Exit Sub
End If
Range("H7").Value = "Drucken..."
Range("C3:F9").PrintOut
Application.ActivePrinter = strActP
Worksheets("Serien_Nr").Range("M" & row).Value = Date 'Setzte Druck Datum'
Worksheets("Serien_Nr").Range("P" & row).Value = "Lager" 'Setzte Druck Kommision'
res = res + 1
row = row + 1
Range("H7").Value = "Bereit"
Range("G7").Value = ""
Next
Else
Range("H7").Font.Color = -16776961
Range("H7").Value = "Max 50 etiketten aufs mal drucken"
End If
End If
End Sub
|