Delphi 打印 Tprinter

delphi3年前 (2022)发布 admin
400 0

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

打印分页:https://www.cnblogs.com/xe2011/p/3374229.html

© 版权声明

相关文章