小弟这阵子发现电影票销售系统在打票时用的是EPSON TM-T86L专用打印机,这个打印机好像不用装驱动就可以打印,小弟找了很久都没有找到相关资料,软件是如何调用该打印机的,而且还要以打条码。平常的做法就是软件直接去调用打印机,结果现在连控制面板里打印都没有,该如何调用呢。有哪位高手能做出解释吗?小弟将感激涕零
 

解决方案 »

  1.   

      procedure   PrintTicket();stdcall;
      var   
          F:TextFile;
          i: integer;
      begin
          Assignfile(f,'LPT1');
          rewrite(f);
          //write(f,#$1b#$23#$2a#$0a#$00);  直接用ESC命令控制打印机
          //writeln(f,'aaa');
          write(f,'中国人民'#10);
          closefile(f);
      end;
      

  2.   

    erhan  的回答非常正确,补充两点:
    1. 如果使用串口,上面的 AssignFile 中,LPT1 可改为 COM1,COM2... 
    2. 如果想使用共享,则在  AssignFile( f,'句柄' ) 中 句柄=\\共享的电脑名\打印机共享名  即可