hsr//////////////////////////////////////////////////
위 컴포넌트는 안써보았으나 한글처리 예제를 보네드립니다
procedure TForm1.Button1Click(Sender: TObject);
var
    str, Temp : string;
    i : integer;
begin
    str := '123AaBb한a글a입니ㅂㅂ다';

    //일반 하나씩 읽어서 쓸때
    Edit1.Text := '';
    for i := 1 to length(str) do
       Edit1.Text := Edit1.Text + str[i];

    //한글등의 2바이트 문자일땐 temp에 합쳤다가 다음번과 붙여넣음
    Edit2.Text := '';
    Temp := '';
    for i := 1 to length(str) do begin
       if ByteType(str[i], 1) = mbSingleByte then begin
          Edit2.Text := Edit2.Text + str[i];
       end
       else begin
          if Temp <> '' then begin
             Edit2.Text := Edit2.Text + Temp + str[i];
             Temp := '';
          end
          else Temp := str[i];
       end;
    end;
end;

주신 글 감사드립니다....

적용해보았는데..한글부분 출력은 않돼네요..

저에게 주신소스는 프린터기에도 적용이 되는건지요..

이프린터 기에서는 적용이 않돼는거 같아서요...

이기종은(DATAMAX PRODIGY)입니다..

암튼 답글주셔서 감사드립니다..