Hallo Michael,
Am 27.09.2011 00:52, schrieb Sigrid Carrera:
On Mon, 26 Sep 2011 21:08:08 +0200
Michael Kuehn<mich...@bm-kuehn.de> wrote:
gibt es irgendeinen plausiblen Grund, warum im Druckdialog von LO
(3.3.3) die Option "nur aktuelle Seite drucken" nicht mehr existiert?
einen Grund kann ich dir nicht nennen, allerdings erreichst du ja das
gleiche, wenn du die entsprechende Seitenzahl im Feld "Seiten"
einträgst. Insofern ist der Eintrag "aktuelle Seite" drucken quasi
"überflüssig".
Mich stört dies auch. Ich habe mir deshalb vor einiger Zeit ein Makro
geschrieben, das dieses Problem löst.
Sub AktuelleSeiteDrucken
rem eingestellten Drucker anzeigen lassen
oDoc = ThisComponent
aPrinterProperties = oDoc.getPrinter()
oPrinterName = aPrinterProperties(0)
If IsNull( oPrinterName ) Then
MsgBox( "Kein Drucker gefunden" )
Else
if MsgBox( "Der aktuelle Drucker ist: " & oPrinterName.Value,
1,"Hinweis") = 2 then
exit sub
else
rem Aufruf des Druckvorgangs
dim aPrintOps(0) as new com.sun.star.beans.PropertyValue
oDoc = ThisComponent
oViewCursor = oDoc.CurrentController.getViewCursor()
aPrintOps(0).Name = "Pages"
aPrintOps(0).Value = trim(str(oViewCursor.getPage()))
oDoc.print(aPrintOps())
endif
EndIf
end sub
Gruß
Jochen
--
Informationen zum Abmelden: E-Mail an users+h...@de.libreoffice.org
Tips zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert
