Druck Makro

[socke]

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

[gogo]

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

g

[socke]

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

g

sorry hab ich vergessen anzugeben writer

[gogo]

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

[socke]

Hat geklappt danke