试试这段代码但要注意,打印尺寸。
uses printers;
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
PText: TextFile;
begin
inherited;
if printDialog1.Execute then
begin
assignprn(PText);
Rewrite(PText);
try
Printer.Canvas.Font := memo1.font;
for i := 0 to memo1.Lines.Count - 1 do
writeln(PText, memo1.lines[i]);
finally
closefile(Ptext);
end;
end;
end;
uses printers;
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
PText: TextFile;
begin
inherited;
if printDialog1.Execute then
begin
assignprn(PText);
Rewrite(PText);
try
Printer.Canvas.Font := memo1.font;
for i := 0 to memo1.Lines.Count - 1 do
writeln(PText, memo1.lines[i]);
finally
closefile(Ptext);
end;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货