[Delphi] Printen (QuickReport)

[Verwijderd]

Hallo mede tweakers,
Ik heb een printfunctie geschreven voor mijn programma.
Ik spreek daarin het object "Printer" aan, waar ik alle tekst naartoe stuur.

De printfunctie werkt bij mij thuis gewoon goed (hier heb ik ook getest).
Maar op andere printers past het vaak niet op het papier, of vallen er stukken over elkaar heen.

Nu wilde ik de uitvoer op papier gaan in via een QuickReport.
Maar dan kwam ik niet helemaal uit. De help files van mijn QuickReport werken niet goed en wat het doet is niet duidelijk.
Ik maak geen gebruik van een database. Ik weet niet of er gevolgen zijn als ik de DataSource niet invul (volgens mij niet).

Maar ik krijg bij de previes van mijn QuickReport niks te zien, totdat ik een of andere Band heb aangemaakt (waarin ik verder niets zet).
Het object is ook nog een ontiegelijk groot en ik hoef het niet op mijn forumulier te zien.
En ik wil alleen printen. Dus wel zelf een paar labels invullen en dan dat ik meteen de previeuw zie.

Maar ik kom er niet echt uit.
Kan iemand mij hiermee helpen, met wat uitleg. Of misschien een andere manier.

Alvast bedankt.

[FendtVario]

Om handmatig een Quikreport te vullen heb je deze functies nodig.

Delphi:

procedure TQuickRep.OnNeedData(Sender: TObject; var MoreData: Boolean);

Dit event wordt aangeroepen als het rapport informatie nodig heeft. Als de MoreData variabele de waarde True krijgt zal een extra band aan het rapport worden toegevoegd. Bij dit rapport betekent dat, dat er een nieuwe detailband, subdetailband en kindband worden toegevoegd.

Delphi:

procedure TQRBand.OnBeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);

Dit event wordt aangeroepen voordat de detailband geprint word. De PrintBand variabele bevat een boolean die aangeeft of de band wel of niet geprint moet worden. In het OnBeforePrint event kan de informatie die in de band komt te staan bepaald worden.

Delphi:

procedure TQRSubBand.OnNeedData(Sender: TObject;
var MoreData: Boolean);

Dit event wordt aangeroepen als de sub-band gegevens nodig heeft. De functie werkt hetzelfde als die van het TQuickReport. Als de MoreData variabele True staat wordt een extra sub-band toegevoegd.

Delphi:

procedure TQRSubBand.OnBeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);

Dit event wordt aangeroepen voordat de sub-band geprint word. De informatie die de band moet weergegeven kan nu bepaald worden. In deze band staat de informatie over een persoon, als de persoon kinderen heeft word de kindband ook gevuld. In het geval er geen kinderen zijn wordt de kindband niet weergegeven.


Suc7 ermee