Outlook VBA Drucker ermitteln
Wie müsste das Makro im Outlook lauten, damit ich dort die
Drucker-Info erhalte? - Ich arbeite mit Office Outlook 2003
Hallo Niclaus,
ein Anton hat mir das Nachfolgende gebastelt, allerdings fehlt beim Namen der Anschluß wie z.B. „auf LPT1:“ wie bei ActivePrinter bei Word:
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
Gruß
Reinhard