Hallo Zusammen,Vor längerer Zeit habe ich das Thema schon einmal angesprochen. Ich wollte mich nun mit einem Makro aus der Klemme ziehen. Für einen großen Verein habe ich eine Liste mit Besuchern zu Geburtstagen. Die Besucherliste besteht aus 18 Namen. Ich habe nun ein Makro geschrieben, das Liste so ausdruckt, daß in der Liste für den Namen1 dieser Namen in der Liste rot und unterstrichen ausgedruckt wird. Im Kopf der Zeile wird der Name durch das Makro eingetragen und die Namen mit bedingter Formatierung
eingefärbt.
Sub Main
oDoc = ThisComponent
oBlatt = oDoc.getCurrentController().getActiveSheet()
sName = oBlatt.Name
Dim mFileProperties()
For ii = 1 To 18
Zelleq = oBlatt.getCellByPosition(16,ii)
wert = Zelleq.String
Zellez = oBlatt.getCellByPosition(1,0)
Zellez.String = wert
oDoc.print(mFileProperties())
Next ii
End Sub
Das funktioniert im Prinzip auch richtig, nur daß das Programm nach dem
Printaufruf nicht wartet, sondern witer
läuft. Das Ergebnis: Blatt 1 mit Namen1, richtig. Dann Blatt 7 mit
Namen7 richtig, die restlichen Blätter immer mit Namen18, zwar richtig,
aber in 11-facher Ausfertigung.
Einfache Frage: Kann man das Warten auf Druckende für das jeweilige
Blatt erzwingen?
MfG Günter -- Informationen zum Abmelden: E-Mail an users+help@de.libreoffice.org Probleme? http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/ Tipps 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