implement
uses printers;
{$R *.DFM}
procedure TForm1.BitBtn1Click(Sender:TObject);
begin
PrinterSetupDialog1.Execute;//选择输出的打印机以及其他打印控制选项
end;
procedure TForm1.BitBtn2Click(Sender:TObject);
var
lines:integer;
prntext:system.text;
// 将prntext 声明为一个在system 程序单元中定义的文本文件
begin
if PrintDialog1.Execute then
assignprn(prntext);// 将prnsetup分配给打印机
rewrite(prntext);// 调用rewrite 函数,为输出打开已分配的文件
printer.Canvas.font:=memo1.font;
// 把当前Memo1的字体指定给打印对象的Canvas 的字体属性
for lines:=0 to memo1.lines.count-1 do
writeln(prntext,memo1.lines[lines]);
// 把Memo的内容写到打印机对象
System.close(prntext);
end;
procedure Tform1.FormCreate(Sender:TObject);
begin
memo1.lines.loadfromfile(‘C:\dos\os2.txt’);
// 在Form建立时读入文件C:\dos\os2.txt
end;
转自:https://blog.csdn.net/lailai186/article/details/8772313