delphi中Printers 打印文本

页面导航:首页 > 软件编程 > Delphi > delphi中Printers 打印文本

delphi中Printers 打印文本

来源: 作者: 时间:2016-01-21 09:33 【

procedure TForm1.Button1Click(Sender: TObject);varPText:TextFile;i:integer;beginprinter.Canvas.Font.Charset:=GB2312_CHARSET;AssignPRN(PText);Rewrite(PText);Printer.Canvas.Font.Name:=黑体;Printer.Canvas.Font.Size:=15;wr

procedure TForm1.Button1Click(Sender: TObject);
var
PText:TextFile;
i:integer;
begin
printer.Canvas.Font.Charset:=GB2312_CHARSET;
AssignPRN(PText);
Rewrite(PText);
Printer.Canvas.Font.Name:=黑体;
Printer.Canvas.Font.Size:=15;
writeln(Ptext,卡号:210008888888);
Printer.Canvas.Font.Size:=10;
writeln(Ptext,);
writeln(Ptext,密码:111111);
writeln(Ptext,);
Printer.Canvas.Font.Size:=8;
writeln(Ptext,开卡时间+datetimetostr(now));
writeln(Ptext,);
CloseFile(Ptext);

end;

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <