<!--CodeS-->
procedure print_yongsu(Amount: string);
var Inputs : string;
   prtF : TextFile
begin
try
  AssignFile(prtF,'LPT1')
  Rewrite(prtF);
except
  showmessage('LPT1 POS프린터 연결 에러 포트를 점검 하세요');
exit;
end;

  Write(prtF,#27 + '@');

  Write(prtF,'------------------------------------------' + #13#10);
//  Write(prtF,#29 + '!'+'0'); // [0..3]가로확대    {#27 Esc #29 GS }
  Write(prtf,#27 + '!'+'8'); // [0..3]가로확대   { #27 Esc #29 GS }
//  Write(prtF,#29 + '!'+'7'); // [4..7]세로확대
  Write(prtF,#27,'a'+'2'); // 정렬 [0,1,2]Left center right
  Inputs := char(8)+char(2)+char(1)+char(3);
  Write(prtF,#27 + Inputs); //    [0,1,2]Left center right

  Write(prtF,'TotalSum : '+Amount + #13#10);

  Write(prtF,'◐ 오늘도 즐거운 하루 되시길 빕니다 ◑' + #13#10);

  Write(prtF,#27 + '@'); // 초기화(프린터마다 틀림)
  Write(prtF,#27 + 'G'+'9'); // 폰트 강도
  Write(prtF,'------------------------------------------' + #13#10);
  Write(prtF,'TotalSum : '+ Amount + #13#10);
//  Write(prtF,'◐ 오늘도 즐거운 하루 되시길 빕니다 ◑' + #13#10);

  Write(prtF,#13#10);
  Write(prtF,#13#10);
  Write(prtF,#13#10);
  Write(prtF,#27,'i');
  CloseFile(prtF);
end;

>안녕하세요?
>제가 TPOSPrinter를 활용하여 POS 인쇄를 개발중인데...
>혹시 예제를 제시해주실 수 있는 분 없나요?
>구글을 해봐도 속시원한 예제가 없어서리..
>아니면 참조 사이트라도 알려주시면 고맙겠습니다.
>
>TPOSPrinter를 활용하는 것입니다.
>OPOS의 표준(?) 프린터 클래스라고 볼 수 있는...
>
>그럼 좋은 답글 기다리겠습니다.
>꾸벅~
>