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

Antwort erstellen


BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet

Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: [gelöst] Namen des eingestellten Druckers mit Makro auslesen

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

von uroveits » 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

Re: Namen des eingestellten Druckers mit Makro auslesen

von turtle47 » 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

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

von uroveits » 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

Nach oben