Seite 1 von 1

[gelöst] Namen des eingestellten Druckers mit Makro auslesen

Verfasst: Sa, 17.07.2010 20:59
von uroveits
Hallo zusammen!

Ich bin auf der Suche nach der richtigen Syntax für ein Makro, das folgendes können soll:
Ausgabe des eingestellten Druckers über eine Message-Box, d.h. ich möchte angezeigt bekommen, welcher Drucker unter Datei -> Druckereinstellung -> Name eingestellt ist.

Kann mir jemand bitte einen Tipp geben.

Ich verwende OOoWriter 3.2.1 und Windows 7 (64bit).

Gruß

Jochen

Re: Namen des eingestellten Druckers mit Makro auslesen

Verfasst: Sa, 17.07.2010 21:21
von turtle47
Hallo Jochen,

hier ein leicht modifizierter Code von Michaels Seite ohne zusätzliche Function:

Code: Alles auswählen

sub GetPrinter
   oDoc = ThisComponent
   aPrinterProperties = oDoc.getPrinter()
   oPrinterName = aPrinterProperties(0)
   If IsNull( oPrinterName ) Then
      MsgBox( "Kein Drucker gefunden" )
   Else
      MsgBox( "Der aktuelle Drucker ist: " & oPrinterName.Value )
   EndIf
end sub 
Viel Erfolg.

Jürgen

Re: [gelöst] Namen des eingestellten Druckers mit Makro auslesen

Verfasst: Sa, 17.07.2010 21:31
von uroveits
Hallo Jürgen,

vielen Dank für Deinen Hinweis.
Das war genau das, was ich gesucht habe. Ich ändere nur noch die Auswahl der MsgBox auf "ok" und "Abbruch".

Gruß

Jochen