안녕 하세요?

BacTeria 박종민 입니다.

프린터기를 제어하는 손쉬운(?) 방법 몇 가지 알려 드리죠.

첫째는 델파이의 함수를 사용 하는 방법입니다.

둘째는 Text로서 코드로 제어하는 방법이구요.

아래는 관련 코드입니다.

uses 구문에 Printers 유닛을 첨가시켜 줍니다.

----------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
  Printer.BeginDoc;
  Printer.NewPage;  // 새로운 페이지로...
  Printer.EndDoc;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  PRN: TextFile;
begin
  AssignPrn(PRN);
  ReWrite(PRN);

  WriteLn(PRN, #12);  // #12 -> FF(Form Feed)...

  CloseFile(PRN);
end;

----------------------------------------------------------------

만약 ESC 제어코드를 쓰려 한다면

#12 대신에 #27 + '<' 이런식으로 하면 될 듯 싶군요.

제가 프린터기로 테스트 할 수 없는 상황이라 테스트는 못해 봤네요.

참! ESC 제어코드에 관련된 API로 Escape() 가 있습니다. 참고하세요.

이만...

청주에서 박종민...