DBGrid bzw. TTable drucken

[Stanly]

Hi!
Wie kann ich, insofern es überhaupt möglich ist, den Inhalt also die Tabelle in meinem DBGri bzw. meiner TTable zu drucken?

Thanx,
Stanly

[Sascha Isensee]

Versuch es doch mal mir QuickReport. Auf den QuickReport kannst du Datensensitive Komponenten einsetzen und hast viele möglichkeiten (Vorschau, Zoom und auch Drucken)

[Falk Prüfer]

Es gibt auch eine (Freeware-) Komponente <A HREF="http://www.programmersheaven.com/zone2/cat63/5909.htm">TPrintGrid</A> , mit der man ein DBGrid als einfache Liste ausdrucken kann

[Klaus-Peter Fitzner]

procedure TForm1.Button4Click(Sender: TObject);<br>
var<br>
Spalte, Zeile: Integer;<br>
begin<br>
{Wobei hier auf eine Prüfung, ob Seitenende erreicht wurde, usw. verzichtet wurde.}<br>
Zeile := 100; Spalte := 100;<br>
with Printer do begin<br>
Orientation := poPortrait; //Hochformat;<br>
BeginDoc;<br>
Canvas.Font.Style := [fsBold, fsItalic]; //Fett und schräg<br>
Canvas.Font.Name := 'Arial'; //Fett<br>
Canvas.Font.Size := 24;<br>
while not Table1.eof do begin<br>
{Hier müsste der Seitenvorschub rein, wenn Seitenende erreicht wurde. Und zwar mit NewPage.} <br>
Canvas.TextOut(Spalte,Zeile,Table1.FieldByName('We rt').asString);<br>
Table1.next; {Nicht immer vergessen, wie ich}<br>
Inc(Zeile,250);<br>
end;<br>
EndDoc;<br>
end;<br>

Ansonsten ist natürlich QuickReport wesentlich besser. Kurze Eingewöhnung, aber dann läuft's

mfg Klaus-Pete

[Stanly]

Hi!
Danke für eure Anworten, ich habe mir ebend mal die Komponente resaugt und werde sie jetzt ausprobieren, anosten klapps ja dann auch anders.

Gruß,
Stanl

[Stanly]

Hi nochmal!
Also die Komponente funktioniert bei mir leider nicht
Da kommt immmer ien fehler beim Compilieren. Seid ihr sicher, dass die Komonete unter Delphi 5 läuft?
Falls jemand iene Lauffähige hat, vieleicht kann er sie mir schicken.

Gruß,
Stanl

[Klaus-Peter Fitzner]

Irgendetwas fehlt hier? Welche Komponente meinst du?

mfg Klaus-Pete