通用的SATO条码打印软件

通用的SATO条码打印软件

SATO条码打印机，是一款比较好用的打印机。很多工矿企业，机场等对稳定性和性能要求比较高的场所，都会选用。偷下懒，目前还没有把它做成一个通用的条码打印软件。SATO条码打印机本身不提供类似于驱动程序接口的打印方式，只能使用底层的打印机指令集来打印，刚开始摸索了一段，最后还是解决了问题。

我把最关键的源代码贴出来，Delphi的：

1 打印部分

procedure TPkFrm.WriteToPrinter(psPrinterName,psStr:  string ; piPrintQty: integer);
var
  Handle: THandle;
  N: DWORD;
  DocInfo1: TDocInfo1;
  lsPrintESC:  string ;
begin
   // PrinterName: 打印机名字(如：EPSON LQ-1600K等），S为打印机的ESC指令集等。
//   ShowMessage(IntToStr(iPrintBarcode )+'  =  '+Printer.Printers[iPrintBarcode] + ' iPrintLabel = '+IntToStr(iPrintLabel ));
   if  not OpenPrinter(PChar(psPrinterName), Handle, nil) then
    CreateError( ' 打印条码时出错！无法得到条码打印机 ' + IntToStr(GetLastError),nil, 1 );
  with DocInfo1  do  begin
    pDocName : =  PChar( ' SATO条码正在打印： ' + psStr);
    pOutputFile : =  nil;
    pDataType : =   ' RAW ' ;
  end;

  StartDocPrinter(Handle,  1 , @DocInfo1);
  StartPagePrinter(Handle);

   // 打印指令：开始
  lsPrintESC : =  Chr( 27 ) + ' A ' ;
  WritePrinter(Handle, PChar(lsPrintESC), Length(lsPrintESC), N);
   // page size
  lsPrintESC : =  Chr( 27 ) + ' A1 ' + ' 1216 ' + ' 3776 ' ;
  WritePrinter(Handle, PChar(lsPrintESC), Length(lsPrintESC), N);
   // 1，2，3
  lsPrintESC : =  Chr( 27 ) + ' #E3 ' ;
  WritePrinter(Handle, PChar(lsPrintESC), Length(lsPrintESC), N); 

   // aduject start point
   //   S := Chr(27)+'A3V'+edt9.Text +'H'+edt10.Text;
   //   WritePrinter(Handle, PChar(S), Length(S), N);

   // 打印指令：条码   {BG Code128
   // S := Chr(27)+'V0020' + #27 + 'H0001' + #27 + 'BG04260' + '2ZC100126614134523507';
  lsPrintESC : =  Chr( 27 ) + ' V0040 '   + Chr( 27 ) + ' H0001 ' +  Chr( 27 ) + ' BG04256 '   +  psStr;
  WritePrinter(Handle, PChar(lsPrintESC), Length(lsPrintESC), N);

   // 打印指令：条码字符
  lsPrintESC : =  Chr( 27 ) + ' V0320 ' + Chr( 27 ) + ' H0320 ' +  Chr( 27 ) + ' L0101 ' + Chr( 27 ) + ' P03 ' + Chr( 27 ) + ' WB1 ' + psStr;
  WritePrinter(Handle, PChar(lsPrintESC), Length(lsPrintESC), N);

   // 打印指令：份数
  lsPrintESC : =  Chr( 27 ) + ' Q ' + IntToStr(piPrintQty);
  WritePrinter(Handle, PChar(lsPrintESC), Length(lsPrintESC), N);

   // 打印指令：结束
  lsPrintESC : =  Chr( 27 ) + ' Z ' ;
  WritePrinter(Handle, PChar(lsPrintESC), Length(lsPrintESC), N);

  EndPagePrinter(Handle);
  EndDocPrinter(Handle);
  ClosePrinter(Handle);
end;

 

2 调用打印部分

 

procedure TPkFrm.PrintMode2(psPrintFile:  string ; piPrintLabelQty,piPrintBarcodeQty: integer);
var
  liOriPrinterIndex: integer;
begin
  liOriPrinterIndex : =  Printer.PrinterIndex;  // 把原来的默认打印机号保存起来，以便恢复

   // 注意，这种方式打印，是通过打印机顺序号来自动分配要打的内容，所以不必指定一个默认打印机
   // 每打一个内容，动态指定一个默认打印机

   // 1 先打标签
   // 打标签前，先把打标签的打印机设置为默认值，注意这一点很重要，要指导用户正确设置哪台是标签用的打印机
   try
    Printer.PrinterIndex: = GetPrintIndexFromName(sPrintLabel);
    BarCodePrint.LoadFromFile(psPrintFile);
    SetLabelColor(CDSMaster.FieldByName( ' OldDescr ' ).AsString);
    BarCodePrint.PrepareReport;
     // 打印份数，根据用户要求来定。一般单排打印两份，双排打印一份
    BarCodePrint.PrintPreparedReport( '' ,piPrintLabelQty,True,frall)
  except
    CreateError( ' 打印标签时出错！可能是标签打印机编号设置不正确等原因 ' ,nil, 1 );
  end;

   // 2 再打条码
   // 打标签前，先把打条码的打印机设置为默认值，注意这一点很重要，要指导用户正确设置哪台是条码用的打印机
   try
     // Printer.PrinterIndex:=iPrintBarcode;
     // 打印份数，根据标签来定。一个标签要打两个条码
    WriteToPrinter(sPrintBarcode,CDSMaster.FieldbyName( ' NewPkCode ' ).AsString,piPrintBarcodeQty);  // 条码打印机顺序号，条码内容，份数
  except
    CreateError( ' 打印条码时出错！可能是条码打印机编号设置不正确等原因 ' ,nil, 1 );
  end;

   // 恢复到原先设置的默认打印机
   try
    Printer.PrinterIndex : =  liOriPrinterIndex;
  except
  end;
end;

 

主要支持SATO CL系列的，如SATO CL612e条码打印机，SATO CL408e/412e 条码打印机，SATO CL608e/612e 条码打印机。

 

SATO CL608e/612e 条码打印机 
宽幅工业级条码打印机，热转印/热敏方式，打印速度可达 4英寸-8英寸/秒，
列印各式标签、服饰吊牌、洗涤布标、或特殊用，途贴纸等工商业运用