DELPHI控制收钱箱的问题
我想控制USB小票打印机接的收钱箱，收钱箱是可以打开了，可每次打开收钱箱后，打印机就会走2厘米左右的空白纸，大家有没有什么好的办法让它不走纸呢？先谢了！
打开收钱箱的代码如下：

var
prt: TPrinter;
esc: TOutBufPassThrough;
sMoneyBoxOpenCommand: AnsiString;
begin
try
prt := Printers.Printer;
prt.beginDoc;
sMoneyBoxOpenCommand := AnsiString(CHR(27)+Chr(112)+CHR(0)+CHR(60)+CHR(255));
esc.nDataLen := Length(sMoneyBoxOpenCommand);
strpCopy(esc.sEscData, sMoneyBoxOpenCommand);
Windows.ExtEscape(prt.Handle, PASSTHROUGH, sizeOf(esc), @esc, 0, nil);
esc.nDataLen:= 0;
prt.endDoc;
except

end;
end;

[解决办法]
【每次打开收钱箱后，打印机就会走2厘米左右的空白纸】
这个是钱箱的控制码决定的吧，要查它的手册

是通过打印口控制的？会不会是TPrinter自动多做了什么？
直接 write(stdprn,'对应的控制码');会怎样？