var
Handle: THandle;
N: DWORD;
DocInfo1: TDocInfo1;
ST : string;
begin
//Intermec EasyCoder PD41 - 바코드프린터 (IPL command)
st := '';
st := st + _STX+_ESC+'C'+_ETX ;
st := st + _STX+_ESC+'P'+_ETX ;
st := st + _STX+'H0;o35,40;c25;d3,TEST;k12;'+ _ETX;
st := st + _STX+_ETB+_ETX;
//출력~~~~~~~~~~~~
if not OpenPrinter(PChar(PrinterName), Handle, nil) then begin
fn_msg('error ' + IntToStr(GetLastError));
Exit;
end;
DocInfo1.pDocName := PChar('test doc');
DocInfo1.pOutputFile := nil;
DocInfo1.pDataType := 'RAW';
StartDocPrinter(Handle, 1, @DocInfo1);
StartPagePrinter(Handle);
WritePrinter(Handle, PChar(ST), Length(ST), N);
EndPagePrinter(Handle);
EndDocPrinter(Handle);
ClosePrinter(Handle);
end;
Delphi7 사용중이고 출력하는 부분은 지브라프린터, 빅슬론프린터에서 잘 동작합니다만
Intermec 프린터는 출력이 안됩니다.
프린터쪽으로 뭔가 신호는 가는거 같은데 대기중인문서 0 으로 표시되면서 .. 반응이 없네요
프린터는 USB 타입으로 연결되어 있습니다
델파이로 되어있는 관련 소스를 찾기가 힘드네요.. 4일째 헤메고 있어요 ㅜㅜ
프린터기종이 단종된 상태라서 그런지 기술지원을 받을 방법이 없답니다
Intermec 프린터 출력 해보신분 있으면 도움좀 주시면 감사하겠습니다
//st := st + _STX+_ESC+'C'+_ETX ; 이렇게 된것을..
st := st+'<STX><ESC>C<ETX>'; 이렇게 해봐도 안되네요