LibreOffice-Forum

Hallo zusammen,
ich habe ein Problem

und zwar ich möchte ein Druck Makro aufzeichen.
Dieses sollte beim Druck folgendes beinhalten bzw. berücksichtigen.
1.: Drucke alles "ausser die letzte Seite" also wenn das Dokument 8 Seiten hat, soll es aber nur 7 Seiten Drucken bei 6 Seiten soll es logischerweise nur 5 Seiten Drucken.
Mir fällt hierzu kein Befehl oder ein Trick ein.
Vielleicht weiß jemand von Euch was, Danke im vorraus

Grüße Socke

Welche Anwendung denn? (Writer, Calc...)

g

gogo hat geschrieben:Welche Anwendung denn? (Writer, Calc...)

g

sorry hab ich vergessen anzugeben writer

Ein Dokument druckst Du mit der Methode ".print"

Die Methode hat Properties, die man mitübergeben kann, die Eigenschaft Du brauchst heisst: "Pages" und ist ein String

Die Gesamtzahl der Seiten eines Writerdokuments bekommt man mit ".CurrentController.PageCount"

also:
Vorausgesetzt ".CurrentController.PageCount" liefert die gewünschte Seitenzahl, kannst Du von dieser dann '1' abziehen, das Ergebnis in einen String umwandeln und mit der Bezeichnung "Pages" in einem Array an die Methode ".print" übergeben:

Code: Alles auswählen

sub Print_Page1_to_Penultimate

	DIM oWriterDoc AS Object
	    oWriterDoc =  ThisComponent
	    pages      =  oWriterDoc.CurrentController.PageCount     

	DIM PrintProps(0)       AS NEW com.sun.star.beans.PropertyValue   
	    PrintProps(0).Name  =      "Pages"
	    PrintProps(0).Value =      "1-" & Str(pages - 1)
      
	oWriterDoc.print(PrintProps())

end sub

Hat geklappt danke

LibreOffice-Forum

Druck Makro

Druck Makro

Re: Druck Makro

Re: Druck Makro

Re: Druck Makro

Re: Druck Makro