Re: [de-users] Druckdialog

Hallo Michael,

Am 27.09.2011 00:52, schrieb Sigrid Carrera:
> On Mon, 26 Sep 2011 21:08:08 +0200
> Michael Kuehn<michael@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+help@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