Thema Datum  Von Nutzer Rating
Antwort
25.02.2025 10:14:20 Matthias
NotSolved
25.02.2025 15:12:08 Gast7777
NotSolved
Rot unterschiedliche Drucker ansteuern, Personal.xlsb
 25.02.2025 15:44:53 Gast405
NotSolved
26.02.2025 06:53:40 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Gast405		 Datum:
25.02.2025 15:44:53		 Views:
45		 Rating:
     
Antwort:
  Ja
Thema:
unterschiedliche Drucker ansteuern, Personal.xlsb

Er findet den Drucker nicht

 

Sub DruckB2()
    Dim ws As Worksheet
    Dim DruckerName As String
    Dim Kopien As Integer
    
    ' Setze das Arbeitsblatt mit der Druckerliste
    Set ws = ThisWorkbook.Sheets("Drucker")
    
    ' Hole den Druckernamen aus der Zelle
    DruckerName = ws.Range(B2).Offset(0, 1).Value
    
    ' Hole die Anzahl der Kopien aus der angegebenen Zelle
    On Error Resume Next
    Kopien = ActiveSheet.Range(KopienZelle).Value
    If Kopien <= 0 Then Kopien = 1 ' Standardwert setzen, falls leer oder ungültig
    On Error GoTo 0
    
    ' Setze den Standarddrucker
    Application.ActivePrinter = DruckerName
    
    ' Drucke das aktive Blatt
    ActiveSheet.PrintOut Copies:=Kopien, ActivePrinter:=DruckerName
    
    ' Bestätigungsausgabe
    MsgBox "Gedruckt mit " & DruckerName & " in " & Kopien & " Kopien", vbInformation, "Druckvorgang abgeschlossen"
End Sub

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
25.02.2025 10:14:20 Matthias
NotSolved
25.02.2025 15:12:08 Gast7777
NotSolved
Rot unterschiedliche Drucker ansteuern, Personal.xlsb
 25.02.2025 15:44:53 Gast405
NotSolved
26.02.2025 06:53:40 ralf_b
NotSolved