DBGrid Drucken ?!

[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

[Bummi]

Bis auf Cells wäre beim DBgrid alles zugreifbar (entsprechen veröffentlicht).
Trotzdem halte ich den Ansatz über das Gitter gehen zu wollen für weniger geeignet
Vielleicht kannst Du damit was anfangen .. http://stackoverflow.com/questions/7...498676#7498676

[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;

[DeddyH]

Und damit hätte man den Thread bereits nach #3 abschließen können