Fastreport Etiketten überspringen

[FediDelPr]

Hallo liebe Delphianer,

es kommt häufig vor, dass ich nur eine einzelne oder einige wenige Etiketten drucken will.
Dafür jedesmal einen ganzen Etikettenbogen zu spenden ist natürlich Blödsinn.

Ich möchte nun mein Prg so gestalten, dass ich vorgängig definieren kann welche Plätze
auf dem Bogen noch mit Etiketten belegt sind, damit das Prg nicht ins Leere druckt.

Kann mir jemand sagen wie ich mit dem Label-Druck von FastReport (6) Etikettenpositionen
auslasse ?

Vielen Dank für gute Tipps.

[haentschman]

Moin...

Zitat:

Kann mir jemand sagen wie ich mit dem Label-Druck von FastReport (6) Etikettenpositionen auslasse ?

Wie willst du dem Programm beibringen welcher Bogen aktuell im Drucker liegt? Der Bogen müßte eine "ID" haben, und das Programm müßte den Bogen mit der "ID = xx" anfordern. Damit weiß (könnte wissen) das Programm welche Etiketten noch frei sind.

Dann hättest du eine Chance...

[Neumann]

Das würde mich auch interessieren. Es ist jetzt so, dass Fastreport die Bögen mit mehreren Spalten immer so bedruckt, dass erst die linke Spalte bis unten gefüllt wird dann die nächste Spalte usw. Schön wäre wenn man erstmal von links nach rechts füllen könnte und oder/einen "Startwert" hätte wie Etikett Nr. 8.

Ist jetzt für mich kein dringendes Problem aber ich seh es mir nochmal an.

[himitsu]

Wenn ich einfach davon ausgehe, dass es immer nur einen "angefangenen" Bogen gibt und vielleicht auch nur dieses Programm darauf druckt, dann kann sich das Programm einfach merken was schon benutzt wurde.
Oder man gibt vor dem Druck an wieviele Etiketten bereits benutzt wurden.

Nja, und dann wäre eine Möglichkeit, dass man entsprechend viele "leere" Etiketten in seinen Datensatz zu Beginn einfügt.

[FediDelPr]

Es gibt 2 Lösungen für oben angetöntes Problem:

- Es wird immer nur ein Bogen verwendet

oder

- Der erste Bogen ist immer der angebrauchte


Ich gebe dem Programm manuell in einer Matrix bekannt welche Felder
auf dem Bogen noch bedruckbar sind.

[FediDelPr]

Felder = Etiketten

Über die Vorgeschichte des Blattes soll nichts bekannt sein.
Ich drucke ja zwischendurch auch auf andern Etikettenbögen.
Wie gesagt die Belegung erfolgt manuell.

[FediDelPr]

Jetzt komme ich der Lösung vermutlich näher:

In OnBeforePrint von MasterData1 lässt sich Text auf bestimmten Etiketten
unterdrücken.
Was mich stört ist, dass sämtliche Textfelder jeweils auf visible := FALSE und
dann wieder auf TRUE geschaltet werden müssen.
Nicht sehr elegant. Oder geht es vielleicht doch einfacher ?

[FediDelPr]

Nein, es haut doch noch nicht.

Gibt es einen Zähler der die aktuelle Anzahl gedruckter MasterData-Bänder
(Etiketten) mitzählt ?

[FediDelPr]

Ich fasse noch kurz zusammen wie eine mögliche Realisierung aussieht:

- Die fortlaufende Nummerierung der Etiketten wird selbst realisiert im Ereignishandler
MasterData1OnBeforePrint. INC(..)

- Beim ersten Durchlauf des Ereignishandlers wird die gewünschte Position der ersten Etikette
bestimmt. Dazu werden 3 Parameter gesetzt.

1. Engine.CurY (vertikale Position des Labels)
2. Engine.CurX (horizontale Position des Labels)
3. Engine.CurColumn (Spaltennummer, Achtung beginnt bei Spalte 1)

- Der Druck weiterer Etiketten wird der Engine überlassen. Alle 3 Parameter werden
dabei nicht verändert.