Re: [de-users] Serienbrief Calc

Hallo Günter,

Dir ist ein kleines Unglück geschehen. Du hast einen neuen Thread als 
Antwort auf einen bestehenden geschrieben. Ich habe daher diese Antwort 
als neu konzipiert.

Am 06.02.2012 16:13, schrieb Günter Fritze:
> 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?

Versuche es einmal mit der Property
mFileProperties(0).Name = "Wait"
mFileProperties(0).Value = True

Schöne Grüße
Volker




--
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