Aktuelle Seite mittels eines Makros ausdrucken

Bei größeren Textdokumenten ist es hilfreich, einzelne Seiten zur Kontrolle auszudrucken. MS-Word bietet im Druckdialog eine Option dafür an. In StarOffice fehlt diese Möglichkeit. Sie können die Funktion jedoch selbst ergänzen.

Ein Ausdruck der aktuellen Seite lässt sich zwar über den Druckdialog von
StarOffice einstellen, allerdings müssen Sie dafür die Nummer der Seite kennen. Bei längeren Dokumenten mit Abschnitten und Kapiteln muss diese nicht mit der Seitenzahl des Dokuments übereinstimmen. Mit einem Makro lässt sich ein Befehl realisieren und anschließend in das Menü von StarOffice integrieren. Führen Sie den Befehl »Extras | Makro« aus und geben Sie einen Namen wie »Druck_aktuelle_Seite« ein. Wählen Sie im Fensterbereich »Makro aus« auf der rechten Seite die Makrobibliothek »soffice | Standard« und klicken Sie auf die Schaltfläche »Neu«. Kopieren Sie das Makro von der Heft-CD (CHIP-Code Makrosun) oder geben Sie folgende Zeilen ein:



Sub Druck_aktuelle_Seite
Dim Druckseite%
If activeModule.Name=ôStarWriterô or activeModule.
Name=öStarCalcô then
 Druckseite%=Selection.PageNumber
 ActiveWindow.Print(Druckseite%,Druckseite%,1)
Else
 MsgBox(äDiese Funktion geht nur für Text- und Tabellendokumenteô)
Endif
End Sub



So funktioniert das Listing: Das Makro prüft, ob die Module StarWriter oder StarCalc aktiv sind. Danach erhält die Variable »Druckseite%« den Wert der aktuellen Seite zugewiesen. Es folgt der Druckbefehl, wobei die Anfangs- und Endseite jeweils die aktuelle Seite ist. Der dritte Parameter »1« legt die Anzahl der Kopien fest. Beenden Sie die Makroeingabe mit dem Befehl »Datei | Schließen«. Führen Sie nun den Befehl »Extras | Makro« aus, markieren Sie den Namen des Makros und klicken Sie auf »Zuordnen«. Wechseln Sie in das Register »Menü«. Im linken Fensterteil »Bereich« klicken Sie auf das Pluszeichen vor dem Eintrag »Staroffice BASIC-Makros« und wechseln dann zum Untereintrag »Standard | Module1«. Rechts im Fensterteil »Funktion« markieren Sie das neue Makro und klicken auf die Schaltfläche »Neu«. Das Makro erscheint nun auch im Fensterteil »Menü«. Beenden Sie den Dialog mit »OK«.