Thema Datum  Von Nutzer Rating
Antwort
Rot Excel ändert selbständig den drucker :/
11.08.2021 09:47:42 Andrin
NotSolved
11.08.2021 15:28:38 Gast96797
NotSolved
12.08.2021 08:52:13 Gast6062
NotSolved
12.08.2021 13:31:37 Gast81503
NotSolved

Ansicht des Beitrags:
Von:
Andrin
Datum:
11.08.2021 09:47:42
Views:
106
Rating: Antwort:
  Ja
Thema:
Excel ändert selbständig den drucker :/

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Excel ändert selbständig den drucker :/
11.08.2021 09:47:42 Andrin
NotSolved
11.08.2021 15:28:38 Gast96797
NotSolved
12.08.2021 08:52:13 Gast6062
NotSolved
12.08.2021 13:31:37 Gast81503
NotSolved