Hay

Ich habe ein code geschriben der ein typenschild ausdruckt und nach jedem druck die Serien nummer um 1 erhöt, nun möchte ich das jedes wen ich einen druck auftrag starte nach gefragt wird auf welchem drucker gedruckt werden soll. 

Das alles funktioniert so weit auch, jedoch ändert excel den drucker immer nach dem 1 ausdruck wider auf den ursprungs drucker und ich weiss nicht wie ich das problem lösen soll.

hier mein code

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