在Delphi中如何执行ESC/POS指令打印东西?(100分)

  • 主题发起人 主题发起人 runcow
  • 开始时间 开始时间
R

runcow

Unregistered / Unconfirmed
GUEST, unregistred user!
在Delphi中如何执行ESC/POS指令打印东西?
在线等待!
 
var
F:System.Text;
begin
AssignFile(F,'LPT1');
Rewrite(F);
Printer.Canvas.Font.Name:='宋体';
Printer.Canvas.Font.Size:=9;
Writeln(F,StringOfChar(' ',6));
Writeln(F,'时间:'+FormatDateTime('mm"月"dd"日" hh:mm', Now));
System.CloseFile(F);
end;
 
var
F:TEXTFILE;
begin
ASSIGNFILE(F,'LPT1');
REWRITE(F);
WRITELN(F,chr(27) '@');
//initial the printer
WRITELN(F,'TEST1 FIRST LINE');
WRITELN(F,chr(12));
// move the paper to a new page
CLOSEFILE(F);
 
楼上的方法是Right!
 
楼上各位, 我的程序要在访问网络打印机(热敏,连接在打印服务器上)
怎么办呢?
请各位帮忙,谢谢!
 
后退
顶部