VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
VBA druckt auf Standard Drucker wenn der andere nicht verfügbar ist...	21.06.2018 14:25:37	Fabian
VBA druckt auf Standard Drucker wenn der andere nicht verfügbar ist...	21.06.2018 14:39:36	Gast66078
VBA druckt auf Standard Drucker wenn der andere nicht verfügbar ist...	21.06.2018 20:03:26	Fabian
VBA druckt auf Standard Drucker wenn der andere nicht verfügbar ist...	22.06.2018 07:43:45	Gast21948
Vorher prüfen!	22.06.2018 07:43:46	RPP63

Ansicht des Beitrags:

Von:
RPP63

Datum:
22.06.2018 07:43:46

Views:
798

Rating:

Antwort:

Thema:
Vorher prüfen!

Moin!

Durchschleife zunächst alle verfügbaren Drucker.

Falls "Dymo 450" verfügbar, Ausdruck per .PrintOut mit dem Parameter ActivePrinter:="Dymo 450", Schleife und Prozedur verlasssen, ansonsten Fehlermeldung.

Den Ansatz dazu habe ich bei Ramses gefunden.

Sub Get_Printer_Info()
  'by Ramses
  Dim objWMIService As Object
  Dim objPrinterList As Object, objPrinter As Object, objPrinterCol As Object
  Dim strPCName As String
  'Lokaler Computer
  '"." ist der lokale Computer
  'Ansonsten den RemoteComputernamen angeben um von dort die Drucker auszulesen
  'u.U. sind dort Adminrechte nötig
    strPCName = "."
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strPCName & "\root\cimv2")
    Set objPrinterCol = objWMIService.ExecQuery("Select * from Win32_Printer")
    'http://msdn.microsoft.com/en-us/library/aa394363(VS.85).aspx
    For Each objPrinter In objPrinterCol
      With objPrinter
        Debug.Print .Name
        If .Name = "Dymo 450" Then
          Tabelle1.PrintOut ActivePrinter:=.Name
          Exit Sub
        End If
      End With
    Next
    MsgBox "Der Drucker ""Dymo 450"" konnte nicht gefunden werden!"
End Sub

Gruß Ralf

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
VBA druckt auf Standard Drucker wenn der andere nicht verfügbar ist...	21.06.2018 14:25:37	Fabian
VBA druckt auf Standard Drucker wenn der andere nicht verfügbar ist...	21.06.2018 14:39:36	Gast66078
VBA druckt auf Standard Drucker wenn der andere nicht verfügbar ist...	21.06.2018 20:03:26	Fabian
VBA druckt auf Standard Drucker wenn der andere nicht verfügbar ist...	22.06.2018 07:43:45	Gast21948
Vorher prüfen!	22.06.2018 07:43:46	RPP63