정지훈 wrote:

> 기존 프로그램이 인쇄관리자를 통하지 않고 LPT로 출력하게

> 되어있는 관계로 바코드도 LPT로 해야 합니다.

>

> 이것에 대한 지식이 전혀 없는 관계로 여러 고수님들의 조언을

> 부탁드립니다.

>

> 감사합니다.





Function ComWrite(sText : String) : Boolean;

var sSend : String;

OutFile : TextFile;

begin

sSend := '^LH0,0^FS' +

'^MMT^FS' +

'^MD5^FS' +

'^PR5,4,4^FS' +

'^FO110,23^A0N,30,25^FD' + sText + '^FS' +

'^PQ0001^FS' +

'^XZ';

Try

AssignFile(OutFile, 'LPT1');

Rewrite(OutFile);

Writeln(OutFile, sSend);

CloseFile(OutFile);

Result := True;

Except

Result := False;

end;

end;



제가 썼던 로직인데 Try문의 내용만 쓰시면 LPT로 출력이 됩니다.