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
[gelöst] Namen des eingestellten Druckers mit Makro auslesen
Moderator: Moderatoren
[gelöst] Namen des eingestellten Druckers mit Makro auslesen
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
LibreOffice 3.3.3; OOO330m19 (Build:301); tag libreoffice-3.3.3.1
Firefox 5.0
Re: Namen des eingestellten Druckers mit Makro auslesen
Hallo Jochen,
hier ein leicht modifizierter Code von Michaels Seite ohne zusätzliche Function:
Viel Erfolg.
Jürgen
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
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
Win 7 SP1/ LibreOffice 3.4.2 OOO340m1 (Build:203) / Firefox 15.0.1 / Notebook ASUS K70IO 64 Bit-Betriebssytem
Re: [gelöst] Namen des eingestellten Druckers mit Makro auslesen
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
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
LibreOffice 3.3.3; OOO330m19 (Build:301); tag libreoffice-3.3.3.1
Firefox 5.0