急！如何向打印机发送指令，感激不尽。 (100分)

如果你用的是ｑｕｉｃｋｒｅｐｕｒｔ
QuickRep1.print;

详细一点

在我理解，你是否需要控制打印机完成打印以外的任务，如果不是，当我没说...
uses winspool;
WriteRawStringToPrinter('EPSON KL1600', CHR(27)+CHR(112)+CHR(0)+CHR(5)+CHR(10));
//打印机名称 /ESC键
//后面的字符设定需参照打印机说明，在此意思为命令打印机发出(10-5)毫秒的脉冲。

wukang8：如果要继续请提前，否则请结束问题，谢谢

向打印机传送指令：
procedure WriteRawStringToPrinter(PrinterName: String;
S: String);
var
Handle: THandle;
N: DWORD;
do
cInfo1: TDocInfo1;
begin
if not OpenPrinter(PChar(PrinterName), Handle, nil) then
begin
ShowMessage('error ' + IntToStr(GetLastError));
Exit;
end;
withdo
cInfodo
begin
pDocName := PChar('testdo
c');
pOutputFile := nil;
pDataType := 'RAW';
end;
StartDocPrinter(Handle, 1, ocInfo);
StartPagePrinter(Handle);
WritePrinter(Handle, PChar(S), Length(S), N);
EndPagePrinter(Handle);
EndDocPrinter(Handle);
ClosePrinter(Handle);
end;

如果是发硬代码，我也想知道。如果能对 AR5400、OKI5530 这类打印机硬操作，设计
套打时是非常方便的。