deemster 2016-12-03 04:52 采纳率: 0%
浏览 1249

Delphi 控制条形码打印机,打印机没有输出任何东西

您好,请问哪位大神有利用delphi控制过条码打印机或钱柜的。我的打印机使用下列语句,一点反应都没有。但是如果把raw改成text,则打印机会直接将命令用文字的方式输出!

procedure WriteRawStringToPrinter(PrinterName, S: String);
var
Handle: THandle;
N: DWord;
DocInfo1: TDocInfo1A;
begin
if not OpenPrinter(PChar(PrinterName), Handle, nil) then raise Exception.Create('Open Printer Fail!');

with DocInfo1 do
begin
pDocName := PAnsiChar('BarCode Label');
pOutputFile := nil;
pDatatype := 'RAW';
end;
// 把換行及回車先處理掉試試
s := StringReplace(s,CHR(10),'',[rfReplaceAll]);
s := StringReplace(s,CHR(13),'',[rfReplaceAll]);
StartDocPrinter(Handle, 1, @DocInfo1);
StartPagePrinter(Handle);
//WritePrinter(Handle, PChar(S), Length(S), N);
WritePrinter(Handle, PChar('^XA^FO100,100^BY3^B3N,N,100,Y,N^FD123ABC^FS^XZ'), Length(S), N);
EndPagePrinter(Handle);
EndDocPrinter(Handle);
ClosePrinter(Handle);
end;

  • 写回答

2条回答 默认 最新

  • dabocaiqq 2017-01-14 15:25
    关注
    评论

报告相同问题?

悬赏问题

  • ¥15 求chat4.0解答一道线性规划题,用lingo编程运行,第一问要求写出数学模型和lingo语言编程模型,第二问第三问解答就行,我的ddl要到了谁来求了
  • ¥15 Ubuntu在安装序列比对软件STAR时出现报错如何解决
  • ¥50 树莓派安卓APK系统签名
  • ¥15 maple软件,用solve求反函数出现rootof,怎么办?
  • ¥65 汇编语言除法溢出问题
  • ¥15 Visual Studio问题
  • ¥20 求一个html代码,有偿
  • ¥100 关于使用MATLAB中copularnd函数的问题
  • ¥20 在虚拟机的pycharm上
  • ¥15 jupyterthemes 设置完毕后没有效果