Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Lottoscheine drucken
Autor: VBRunner
Datum: 16.12.04 11:42
Hallo CarpeDiem, deine Vermutung ist richtig, der Hund liegt an besagter Stelle begraben. For i = 0 To Label1.UBound If Label1(i).Visible = True Then Row = i \ 6 Column = i Mod 6 ' meiner Vermutung nach liegt hier der Hund begraben .CurrentX = Column * iPosX .CurrentY = Row * iPosX Printer.Print Label1(i).Caption End If iposX wurde zu Beginn wie folgt belegt 4-3=1 Wenn Label1(0) bis Label1(5) sichtbar sind, dann lautet das Ergebnis der nachfolgenden Berechnung bei Label1(0): Row=0/6 -->0 column=0 Mod 6 -->0 .Current X=0*iposX --->0 .CurrentY=0*iposX---0 bei Label1(5) Row=5/6 -->0,xxxx column=5 Mod 6 -->5 .Current X=5*iposX --->5 .CurrentY=0,xxx*iposX---0,xxxx Das Pinter-Objekt wertet (wenn überhaupt) nur den ganzzahligen Anteil einer Dezimalzahl aus. Dies Bedeutet er bleibt auf Position X0,Y0 stehen Immer wenn i ohne Rest durch 6 teilbar dann wird Column=0 und damit CurrentX=0 CU, VBRunner

Lottoscheine drucken	1.400	CarpeDiem	12.12.04 22:16
Re: Lottoscheine drucken	852	Don El Greeko	13.12.04 16:13
Re: Lottoscheine drucken	792	CarpeDiem	14.12.04 07:28
Re: Lottoscheine drucken	818	VBRunner	16.12.04 01:29
Re: Lottoscheine drucken	896	CarpeDiem	16.12.04 07:36
Re: Lottoscheine drucken	820	VBRunner	16.12.04 11:42
Re: Lottoscheine drucken	976	CarpeDiem	16.12.04 18:41
Re: Lottoscheine drucken	738	VBRunner	17.12.04 02:02
Re: Lottoscheine drucken	748	VBRunner	17.12.04 02:25
Re: Lottoscheine drucken	787	CarpeDiem	17.12.04 14:46
Re: Lottoscheine drucken	880	VBRunner	17.12.04 22:03
Re: Lottoscheine drucken	947	VBRunner	18.12.04 01:59
Re: Lottoscheine drucken	741	CarpeDiem	18.12.04 11:51
Re: Lottoscheine drucken	705	VBRunner	16.12.04 12:02

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen