Re: [de-users] Serienbrief Calc

Am 06.02.2012 18:05, schrieb Volker Lenhardt:
> 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
mFileProperties(0).Name = "Wait"
Erzeugt die Fehlermeldung:
"Unzulässiger Wert oder Datentyp"
Schöne Grüße
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