Thema: Delphi TurboDelphi Reports

Einzelnen Beitrag anzeigen

hanspeter

Registriert seit: 26. Jul 2003
Ort: Leipzig
1.350 Beiträge
 
Delphi XE2 Professional
 
#8

Re: TurboDelphi Reports

  Alt 28. Sep 2006, 12:09
Zitat von Kojak:
Hallo!

HTML wäre evtl. eine Lösung.
Wenn ein Formular z.b. für Lieferscheine als HTML-Template hinterlegt wird und die Anwendung die Daten ergänzt.
Hat jemand Erfahrungen damit gemacht?
Wichtig ist am Ende ein sauberer Ausdruck.
Ja ich verwende so ein Tool. Das generiert mir aus einer HTM Vorlage WebSeiten.
Ist allerdings Eigenbau.

Ich habe auch mal ein Drucktool geschrieben, welches einen nativen Druck auf der Basis von Vorlagen macht.

Da sieht ein Druckauftrag so aus:

StandardPrint := TStandardPrint.Create(Data.StandardkopfVnr,
'Teilnehmer für die Meisterschaftswertung\n'+
PnlInfo.Caption+'\n',
['(1,12)Kopfnr.','(16)Pferd','(55)Reiter','(105)Ver ein','(180)']);


StandardPrint.BeginDoc;
QRYPruefung.First;
While not QRYPruefung.Eof do
Begin
if QRYPruefung.FieldbyName('MEISTER').asString = '1' then
Begin
StandardPrint.Zeile([QRYPruefung.FieldbyName('KOPFNR').asString,
QRYPruefung.FieldbyName('PNAME').asString,
QRYPruefung.FieldbyName('RNAME').asString,
QRYPruefung.FieldbyName('VEREIN').asString]);
StandardPrint.Writeln('~V2'); // 2 mm Vorschub
end;
QRYPruefung.Next;
end;

StandardPrint.EndDoc;
StandardPrint.Destroy;

Der Kopf wird in Create beschrieben.
Dabei sind die Zahlenwerte in Klammern die Druckpositionen in mm. Eine durch Komma getrennte 2. Zahl gibt die Feldbreite an
und veranlasst dann einen rechtsbündigen Druck.

Wenn sich jemand findet, der das Teil ausprobiert und ein bischen dokumentiert, würde ich es ja für die Code-Library zur
Verfügung stellen.

Gruß Peter
  Mit Zitat antworten Zitat