Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - Memo drucken
Andreas L. - Fr 20.12.02 16:43
Titel: Memo drucken
Hallo
Mit welcher procedure kann ich ein Memo drucken?
Ex0rzist - So 22.12.02 04:03
Zum Beispiel so:
- Printdialog
- Button
- Memo
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
| uses ..., Printers;
TForm1.Button1Click(Sender: TObject);
var
Line: Integer;
PrintText: TextFile;
begin
if PrintDialog1.Execute then
begin
AssignPrn(PrintText);
Rewrite(PrintText);
Printer.Canvas.Font := Memo1.Font;
for Line := 0 to Memo1.Lines.Count - 1 do
Writeln(PrintText, Memo1.Lines[Line]);
CloseFile(PrintText);
end; |
Andreas L. - So 22.12.02 11:32
Danke, funktioniert super!
Ex0rzist - So 22.12.02 15:42
Keine Ursache, schließlich ist ja bald Weihnachten. :wink:
Cyrus - Mo 23.12.02 11:34
Du kannst auch ein QRMemo verwenden.
Erstelle einen QuickReport auf deiner form auf diesen QReport haust du noch ein QRBand drauf. Auf dieses Band haust du dann ein QRMemo.
nun hast du eine Optimalen druck (mit voransicht)
Qreport1.print; zum drucken
Qreport1.preview; für die Voransicht
Greez Cyrus
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!