OpenOffice.info

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

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 

Hallo Jochen,

hier ein leicht modifizierter Code von [url=http://www.dannenhoefer.de/faqstarbasic/Druckerauslesen.html#Druckerauslesen]Michaels Seite[/url] ohne zusätzliche Function:

[code]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 [/code]

Viel Erfolg.

Jürgen

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