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

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

uroveits
**
Beiträge: 47
Registriert: So, 23.05.2010 12:11

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

Beitrag 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
Zuletzt geändert von uroveits am Sa, 17.07.2010 21:29, insgesamt 1-mal geändert.
Windows 7 Professional (64 Bit)
LibreOffice 3.3.3; OOO330m19 (Build:301); tag libreoffice-3.3.3.1
Firefox 5.0
turtle47
*******
Beiträge: 1849
Registriert: Mi, 04.01.2006 20:10
Wohnort: Rheinbach

Re: Namen des eingestellten Druckers mit Makro auslesen

Beitrag 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
Software hat keinen Verstand - benutze deinen eigenen...!

Win 7 SP1/ LibreOffice 3.4.2 OOO340m1 (Build:203) / Firefox 15.0.1 / Notebook ASUS K70IO 64 Bit-Betriebssytem
uroveits
**
Beiträge: 47
Registriert: So, 23.05.2010 12:11

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

Beitrag 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
Windows 7 Professional (64 Bit)
LibreOffice 3.3.3; OOO330m19 (Build:301); tag libreoffice-3.3.3.1
Firefox 5.0
Antworten