Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
21.06.2018 14:25:37 |
Fabian |
|
|
|
21.06.2018 14:39:36 |
Gast66078 |
|
|
|
21.06.2018 20:03:26 |
Fabian |
|
|
|
22.06.2018 07:43:45 |
Gast21948 |
|
|
Vorher prüfen! |
22.06.2018 07:43:46 |
RPP63 |
|
|
Von:
RPP63 |
Datum:
22.06.2018 07:43:46 |
Views:
496 |
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
21.06.2018 14:25:37 |
Fabian |
|
|
|
21.06.2018 14:39:36 |
Gast66078 |
|
|
|
21.06.2018 20:03:26 |
Fabian |
|
|
|
22.06.2018 07:43:45 |
Gast21948 |
|
|
Vorher prüfen! |
22.06.2018 07:43:46 |
RPP63 |
|
|