DBGrid Drucken ?!

[Sir Rufo]

Zitat von mkinzler:

Noch besser geht es über ein Reporting-Tool ( FastReport, RAVE, usw. bei Delphi)

Das würde ich nicht unbedingt so sehen, denn hier wird ja danach gefragt ein DBGrid zu drucken (eine Interpretation der Daten).
Ein Report ist eine eigene und unabhängige Interpretation der Daten (die völlig anders sein kann).

Es hängt einfach davon ab, ob dem Anwender nun genau der Inhalt vom Grid (quasi wie ein Screenshot) ausgegeben werden soll oder eben ein entsprechender Report auf Basis der angezeigten Datensätze im DBGrid.

[himitsu]

z.B. DevExpress hat eine Printing-Engine, der man auch VCL-Controls (vorwiegend Grids) direkt zum Drucken geben kann.
Man kann das Ganze theoretisch auch wie ein normales Reporting-Tool nutzen.
Das Control wird dabei auch soweit vergrößert, daß alle Daten sichtbar sind und das Ding paßt bei Seitenwechseln auf, daß keine Spalten zerteilt werden usw.

Hat eigentlich den Vorteil, daß dann die ausgedruckte Tabelle genauso aufgebaut ist, wie das Grid, also Spaltenbreiten, Gruppierungen, Sortierungen, Header, Footer ... alles eigentlich

[Davidlocke13]

Ein Report auf Basis der angezeigten Datensätze im DBGrid würde es auch schon tun !

[Sir Rufo]

Zitat von Davidlocke13:

Ein Report auf Basis der angezeigten Datensätze im DBGrid würde es auch schon tun !

Ist ja auch mehr Aufwand, daher tut das auch "schon"

Über die SuFu findest du eine Menge zum Thema delphi grid drucken

[Davidlocke13]

Schon gesehen aber da wir überall nur TStringGrid beschreiben und ich haben ein DBGrid

[Sir Rufo]

Zitat von Davidlocke13:

Schon gesehen aber da wir überall nur TStringGrid beschreiben und ich haben ein DBGrid

Ja die sind ja auch sooo unterschiedlich

[Davidlocke13]

Ich habe das ding mal auf DBGrid geändert

Code:

procedure PrintGrid(sGrid: TDBGrid; sTitle: string);
var
  X1, X2: Integer;
  Y1, Y2: Integer;
  TmpI: Integer;
  F: Integer;
  TR: TRect;
begin
  Printer.Title := sTitle;
  Printer.BeginDoc;
  Printer.Canvas.Pen.Color  := 0;
  Printer.Canvas.Font.Name  := 'Times New Roman';
  Printer.Canvas.Font.Size  := 12;
  Printer.Canvas.Font.Style := [fsBold, fsUnderline];
  Printer.Canvas.TextOut(0, 100, Printer.Title);
  for F := 1 to sGrid.ColCount - 1 do
  begin
    X1 := 0;
    for TmpI := 1 to (F - 1) do
      X1 := X1 + 5 * (sGrid.ColWidths[TmpI]);
    Y1 := 300;
    X2 := 0;
    for TmpI := 1 to F do
      X2 := X2 + 5 * (sGrid.ColWidths[TmpI]);
    Y2 := 450;
    TR := Rect(X1, Y1, X2 - 30, Y2);
    Printer.Canvas.Font.Style := [fsBold];
    Printer.Canvas.Font.Size := 7;
    Printer.Canvas.TextRect(TR, X1 + 50, 350, sGrid.Cells[F, 0]);
    Printer.Canvas.Font.Style := [];
    for TmpI := 1 to sGrid.RowCount - 1 do
    begin
      Y1 := 150 * TmpI + 300;
      Y2 := 150 * (TmpI + 1) + 300;
      TR := Rect(X1, Y1, X2 - 30, Y2);
      Printer.Canvas.TextRect(TR, X1 + 50, Y1 + 50, sGrid.Cells[F, TmpI]);
    end;
  end;
  Printer.EndDoc;
end;

procedure TForm1.BtnDruckenClick(Sender: TObject);
begin
PrintGrid(DBGrid1, 'Print Stringgrid');
end;

und folgende Sachen macht er dann nicht mehr :

ColCount
ColWidths
Cells
RowCount

[Davidlocke13]

in ein StringGrid kann ich keine DataSource laden

[Davidlocke13]

So habe das jetzt über Rave gemacht !

Man braucht: RvProject1; RvDataSetConnection1 und einen Button

im RvDataSetConnection1 gibt man das DataSet an !
öffnet dann das RvProject1 geht auf File -> New Data Object und setzt dort das RvDataSetConnection1 !
Dann geht man auf Tool -> Repot Wizards -> Simple Tabel dort wählt man das DataViwe und sagt was man davon haben will !
Dann speichert man das Rave Project ab und sagt dem Button noch das er drucken soll !

Code:

procedure TTest.BtnDruckenClick(Sender: TObject);
begin
RvProject1.Execute;
end;