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