Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1120to1124
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1120to1124
1120to1124
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aktiven Drucker mit Outlook-Vba ermitteln

Aktiven Drucker mit Outlook-Vba ermitteln
Reinhard
Hallo Wissende,
in Excel, Word kriegt man ja den aktiven Drucker in Vba mit ActivePrinter usw.
In Outlook gibt's das aber nicht. Auch nicht DefaultPrinter, Printer, u.ä.
Stundenlanges Googlen brachte mich nicht weiter :-(
Weiß jmd. hier wie man den aktiven Drucker in OL-Vba auslesen kann und auch abändern kann?
Ein Link zu einem guten OL-Forum mit Archiv hilft mir evtl. auch schon.
Den workaround, aus OL-Vba heraus eine Word-Instanz zu öffnene, den ActivePrinter auszulesen usw. krieg ich hin, aber geht es nicht direkt?
Danke ^ Gruß
Reinhard

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Aktiven Drucker mit Outlook-Vba ermitteln
09.12.2009 16:35:57
Reinhard
Hallo Hajo,
mit der Version hast du schon Recht, andrerseits kapiere ich nicht daß man mit OL-Vba nicht einfach mal den Standarddrucker anzeigen/abändern kann, Versionsunabhängig.
Bei deinem ersten Link muß man hinten das Komma wegmachen, dann geht es.
Bei beiden habe ich bei "Suchen" Drucker eingegeben. Bei 2010 gab's keinen Treffer, bei 2007 16, aber es ging um etwas anderes :-(
Danke für deine Reaktion
Gruß
Reinhard
Anzeige
AW: Aktiven Drucker mit Outlook-Vba ermitteln
09.12.2009 16:32:26
Anton
Hallo Reinhard,
probier sowas:
Code:

Sub standarddrucker()
 'Standarddrucker ermitteln
  Dim objWMI As Object, objItem As Object  
  Set objWMI = GetObject("winmgmts:\\.\root\cimv2"). _  
    ExecQuery("Select * from Win32_Printer where Default = 'true'")  
  For Each objItem In objWMI  
    MsgBox objItem.properties_.Item("Name").Value
  Next
  Set objWMI = Nothing  
End Sub  
Sub drucker_als_standard()
  Dim oWMI As Object, colInstalledPrinters As Object, oPrinter As Object    
  Dim sPrinterName As String    
  Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")  
  sPrinterName = "HP Deskjet F300 series"  'anpassen
  Set colInstalledPrinters = oWMI.ExecQuery("SELECT * FROM Win32_Printer WHERE Name = '" & sPrinterName & "'")  
 ' Drucker als Standard-Drucker festlegen
  For Each oPrinter In colInstalledPrinters    
    oPrinter.SetDefaultPrinter  
  Next
  Set oWMI = Nothing  
End Sub  


mfg Anton
Anzeige
AW: Aktiven Drucker mit Outlook-Vba ermitteln
09.12.2009 16:57:05
Reinhard
Hallo Anton,
scheinbar nicht so einfach in OL banale Dinge zu tun.
Danke dir schonmal für den Code, sieht gut aus.
Ein Problem gibt es noch, lasse ich die Prozedur Standarddrucker in OL laufen so erscheint bei mir:
HP Deskjet 600 (Monochrome)
Benutze ich aber "ActivePrinter" in Excel kommt:
HP Deskjet 600 (Monochrome) auf LPT1:
Gruß
Reinhard
noch eine Variante
15.12.2009 11:25:13
Anton
Hallo Reinhard,
Code:

Public Sub active_drucker()  
 'Standarddrucker ermitteln
  Dim objWMI As Object, objItem As Object, sd As String    
  Set objWMI = GetObject("winmgmts:\\.\root\cimv2"). _  
    ExecQuery("Select * from Win32_Printer where Default = 'true'")  
  For Each objItem In objWMI  
    sd = objItem.properties_.Item("Name").Value
  Next
  Set objWMI = Nothing  
  Const HKEY_current_user = &H80000001
  Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")  
  strKeyPath = "Software\Microsoft\Windows NT\CurrentVersion\Devices"
  oReg.EnumValues HKEY_current_user, strKeyPath, arrValueNames
  For i = 0 To UBound(arrValueNames)  
    oReg.GetStringValue HKEY_current_user, strKeyPath, arrValueNames(i), strValue  
    If InStr(1, arrValueNames(i), sd) <> 0 Then  
      msg = arrValueNames(i) & Replace(strValue, "winspool,", " auf ")
    End If  
  Next
  Set oReg = Nothing  
  MsgBox msg, vbInformation, "ActiveDrucker"
End Sub  


mfg Anton
Anzeige
Funktioniert :-)
15.12.2009 12:42:24
Reinhard
Hallo Anton,
danke dir, jetzt klappt es komplett.
Getestet in OL2007 und Excel2000.
Für das hiesige Archiv, oben muß noch diese Zeile rein:
Dim strKeyPath, arrValueNames, i, strValue, msg
Gruß
Reinhard

299 Forumthreads zu ähnlichen Themen

Formel automatisch durch Wert ersetzen (vba)
Tanja

Hallo liebe Leute,
Ich hab in meiner excel-Mappe, in den Zellen: M2:M14 Formeln, die eine ganze Zahl als Ergebnis erzeugen.
So, und nun möchte ich das 1. Berechnungs-Ergebnis quasi "einfrieren".
Mein Problem: Ich möchte kein Makro per Hand auslösen müssen, sondern der Code soll voll...
07.08.2008 21:59:00
Thread-ID: 1000110
5 Beiträge
Anzeige
Copy Paste Problem mit VBA
Chris

Hallo Leute,
ich habe ein Makro geschrieben, das ein aus SAP gezogenes Spreadsheet in ein formatiertes Excel File umwandelt.
Jetzt taucht plötzlich folgendes Problem auf:
Ein String wird in Zelle "A1" geschrieben, der Buchstaben und steuercode enthält.
D.H. ich habe in dieser Ze...
08.08.2008 15:10:35
Thread-ID: 1000317
11 Beiträge
Watchdop für VBA
peter

Hallo VBA Cracks,
Im 5 Minuten-Abstand hole ich mir via Webabfrage Daten aus dem Internet. Nun kann es passieren, dass das VBA Programm bei einer Abfrage z.B. mehr als 5 Minuten hängen bleibt, was ungewollt ist.
Kann man ein solches Problem umgehen, wenn man mit VBA einen Watchdog reali...
11.08.2008 17:39:00
Thread-ID: 1000934
5 Beiträge
Anzeige
VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
geschütztes blatt = Fehlermeldung VBA
Pet


Hallo an Alle,
per Button werden 2 Tabellenblätter kopiert und nur die Werte in eine neue Datei gespeichert.
Dies klappt auch wunderbar!
Doch wenn ich die Blätter schütze bekomme ich immer eine Fehlermeldung.
Beende ich diese Fehlermeldung 1004, werden die Blätter trotzdem...
13.08.2008 18:48:00
Thread-ID: 1001622
3 Beiträge
Mittels VBA Zellbereich einfärben
Fred

Hallo zusammen
Ich habe da ein Problem, und zwar stehen bei mir in der Tabelle im Bereich D2 bis AD100 unterschiedliche Datums. Wenn das Datum kleiner ist als das heutige, hätte ich gerne, das sich die entsprechende Zelle Rot färbt. Ich habe das mal mit bedingter Formatierung versucht, aber...
13.08.2008 18:52:00
Thread-ID: 1001623
13 Beiträge
VBA Lösung für Tabellenblattwechsel gesucht
Nila

Hallo.
Ich habe folgendes vor:
Ich lege derzeit eine Exceldatei mit Steckbriefen von ca. 150 Personen an.
Jeder Steckbrief steht dabei auf einem eigenen Tabellenblatt.
Die Tabellenblätter werden nach der entsprechenden Person benannt.
Zum Beispiel: Name von Tabellenblatt 70:...
14.08.2008 10:07:25
Thread-ID: 1001749
8 Beiträge
Kalenderwoche "von bis" über VBA
bis"

Hi Leute,
ich versuch gerade über VBA eine Tabelle zu erstellen. Irgendwie komm ich aber nicht weiter.
Spalte A: Kalenderwoche z.b 1,2,3,4,5, usw.
SpalteB: Datum von bis: 1.1.09-5.1.09; 6.1.09-13.1.09; usw.
Dahinter wird je nach Bedarf eingetragen.
Auffüllen der Zahlen ist k...
19.08.2008 10:24:25
Thread-ID: 1002828
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
1
10
4
2
5
2
12
7
2
2
1
1
7
1
2
5
4
5
2
6
2
2
4
2