delphi怎么打印文件

Question

我的程序生成了个txt文件 怎么编程 让我点一下就能打印出来？
谢谢！
能不能说详细一点 怎么用richedit打印 谢谢！

Answer 1

procedure TForm1.PrinterSetupExecute(Sender: TObject);
begin
PrinterSetupDialog1.Execute;
end;

procedure TForm1.PrintExecute(Sender: TObject);
begin //列印分页
if PrintDialog1.Execute=True then
RichEdit1.Print(Form1.Caption);
end;

or

if printdialog1.execute then
PrintStrings(RichEdit1.Lines);本回答被提问者采纳

Answer 2

放一个 richedit到窗口上，把需要打印的txt加进去，然后调用richedit的print

Answer 3

uses ComCtrls;
procedure PrintTXT(const txtFileName:string);
var t:TRichEdit;
begin
try
t := TRichEdit.Create(nil);
t.Lines.LoadFromFile(txtFileName);
t.Print(t.text);
finally
FreeAndNil(t);
end;
end;

直接调用该函数即可 PrintTXT('D:\abc\123.txt');

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
begin
self.RichEdit1.Print('我的打印文件');
end;