OpenOffice.info

Verfasst: **Sa, 17.07.2010 20:59**

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

Verfasst: **Sa, 17.07.2010 21:21**

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

Verfasst: **Sa, 17.07.2010 21:31**

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

OpenOffice.info

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

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

Re: Namen des eingestellten Druckers mit Makro auslesen

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