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+h...@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
