Date: prev next · Thread: first prev next last
2012 Archives by date, by thread · List index


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

Context


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.