DBGrid ausdrucken als Beispiel mit Quelltext

[eddy]

Hallo pol0815,

wofür genau brauchst Du ein Beispiel?

- das Filtern Deiner Datenbank
- das Übertragen der Feldinhalte in ein TMemo
- das Drucken

Ich nehme mal an, daß Du in der Lage bist, Deine Datenbank zu filtern und definierte Feldinhalte zeilenweise in ein Memofeld zu schreiben. Ausgehend von einem Memo verwende ich folgende einfache Variante zum Drucken:

Delphi-Quellcode:

procedure TFABTools.sbPrintInfoClick(Sender: TObject);
var
  i : integer;
  PrintText: TextFile;   //Deklaration einer Dateivariablen
begin
  if PrintDialog1.Execute then begin
    AssignPrn(PrintText);   //Zuweisung von PrintText an den Drucker - uses Printers
    Rewrite(PrintText);     //Erzeugen und Öffnen der Ausgabedatei
    Printer.Canvas.Font := minfo.Font; //Zuweisung der eingestellten Schriftart an die Leinwand
    //Schreiben des Inhalts von Memo1 in das Druckerobjekt
    for i := 0 to minfo.Lines.Count - 1
      do Writeln(PrintText, minfo.Lines[i]);
    CloseFile(PrintText); //Schließen der Druckervariablen
  end;
end;

Macht sich gut, wenn man nur schnell mal einen Ausdruck von einem Text, einer Tabelle oder ähnliches benötigt. Ich drucke mir so meist die Struktur von Datenbanken aus, die natürlich zuvor in das Memo übertragen habe (siehe Anlage).

mfg
eddy