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