gz

up!!!

参考打印机(如epson针打)的相关文档,主要有两种标准命令,名称不记得了.

你是要编写打印驱动程序还是控制程序?这很关键.

是控制程序，能很好的控制打印机。

我也想知道这个问题请各位大侠帮帮忙，请回：zx1106@sina.com

下面是我曾经做过的一个票据打印机的子程序,已经有一年多了,记不太清除了,如果有兴趣,可以参考一下.

procedure TForm1.PrintTitle(strNumber :String);   //打印子程序
var
   PointX,PointY : double;
   PixelsPerInchX,PixelsPerInchY : integer;
   strHospitalName, strDepartmentName, strDateTime: String;
   PrintFile : TextFile;
   HospitalFile : TextFile;
begin
  try
    with Printer do begin
      //strNumber:=strNumber+'号';
      strDateTime:=DateTimetoStr(Now);

      AssignFile(HospitalFile,'DZPD.CFG');
      ReSet(HospitalFile);
      Readln(HospitalFile,strHospitalName);
      Readln(HospitalFile,strDepartmentName);
      CloseFile(HospitalFile);

      AssignPrn(PrintFile);
      Rewrite(PrintFile);
      PixelsPerInchX:=GetDeviceCaps(Printer.Canvas.Handle,LOGPIXELSX);
      PixelsPerInchY:=GetDeviceCaps(Printer.Canvas.Handle,LOGPIXELSY);
      PointX:=PixelsPerInchX/72;
      PointY:=PixelsPerInchY/72;

      Canvas.Font.Name:='楷体_GB2312';
      Canvas.Font.Color:=clBlack;
      Canvas.Font.Height:=-Round(PointX*72*0.4);
      //strHospitalName :=' '+strHospitalName;
      Writeln(PrintFile,strHospitalName);

      Canvas.Font.Height:=-Round(PointX*72*0.2);
      strDepartmentName :=strDepartmentName + '排队单';
      Writeln(PrintFile,strDepartmentName);
      write(PrintFile,'   ');

      Canvas.Font.Name:='黑体';
      Canvas.Font.Height:=-Round(PointY*72);
      Delete(strNumber,1,1);
      Write(PrintFile,strNumber);
      Canvas.Font.Name:='楷体_GB2312';
      writeln(PrintFile,'号');

      Canvas.Font.Height:=-Round(PointX*72*0.2);
      strDateTime :='            '+strDateTime;
      Writeln(PrintFile,strDateTime);

      System.CloseFile(PrintFile);
      end;
  except
    ;
  end;
end;

谢谢你，maomao!
我的电脑有问题，所以一个星期没上网啦，很感谢大家对小弟的关心！