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