通过驱动向打印机发送一段(ESC)控制指令

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

这个功能看起来挺奇葩的, 写这个是因为有客户在使用驱动连接票据打印机, 但是又要开钱箱, 驱动里只能每张单据都开钱箱, 而这个打印机又不是只打印结帐单

所以就需要用软件控制打印机开钱箱

票据打印机一般都支持ESC/POS指令, 所以就出现了如下代码, 通过这个函数可以吧ESC/POS指令里的开钱箱指令发送给打印机控制开钱箱

同样, 也可以发送别的什么东西, 比如响响蜂鸣器之类的

哦补充下, 这个代码里使用的是默认打印机, 当然稍微改动下, 就可以先弹出个打印机列表, 然后选择打印机传进去, 这样就可以控制任意打印机了

OpenPrinter(PChar(Printer.Printers[0]), nD, nPPD);

uses
WinSpool, Printers;function WritePrtDataForDriver(AData: string; var AErrCode: Byte): Boolean;
var
nD: Cardinal;
nPPD: PPrinterDefaults;
nDocInfo: DOC_INFO_;
nDataLength: DWORD;
nSize: DWORD;
nReturn: Boolean;
begin
Result := False; AErrCode := ;
nD := INVALID_HANDLE_VALUE;
nPPD := New(PPrinterDefaults);
try
with nPPD^ do
begin
DesiredAccess := PRINTER_ACCESS_USE;
pDatatype := nil;
pDevMode := nil;
end;
OpenPrinter(PChar(Printer.Printers[]), nD, nPPD);
finally
Dispose(nPPD);
end;
if nD = INVALID_HANDLE_VALUE then
Exit; with nDocInfo do
begin
pDocName := 'Print Document';
pOutputFile := nil;
pDatatype := 'RAW';
end;
AErrCode := ;
if StartDocPrinter(nD, , @nDocInfo) <= then
Exit;
AErrCode := ;
if not StartPagePrinter(nD) then
Exit;
AErrCode := ;
nDataLength := Length(AData);
nReturn := WritePrinter(nD, PChar(AData), nDataLength, nSize);
if (not nReturn) or (nSize <> nDataLength) then
Exit;
AErrCode := ;
if not EndPagePrinter(nD) then
Exit;
AErrCode := ;
if not EndDocPrinter(nD) then
Exit; AErrCode := ;
if not ClosePrinter(nD) then
Exit; AErrCode := ;
Result := True;
end;

附: 获取驱动打印机状态:

var
i: Integer;
nPRH: THandle;
PrinterName:String;
nBuff: array[..] of Char;
nSize: DWord;
pInfo: PPrinterInfo2;
begin
Memo1.Lines.Clear;
for i := to Printer.Printers.Count - do
begin
if OpenPrinter(PChar(Printer.Printers[i]), nPRH,nil) then
begin
if GetPrinter(nPRH, , @nBuff, SizeOf(nBuff), @nSize) then
begin
pInfo:=PPrinterInfo2(@nBuff);
Memo1.Lines.Add('Device := ' + Printer.Printers[i]);
Memo1.Lines.Add('Status := ' + inttostr(pInfo.Status));
Memo1.Lines.Add('');
end;
end;
ClosePrinter(nPRH);
end;
end;