STP-100 영수증프린터로 출력 하려고 합니다
XP에서 COM1포드를 사용하구요 드라이브도 설치 했습니다
procedure TForm211.Button1Click(Sender: TObject);
var
lst : textfile;
begin
with Printer do
begin
printerindex := -1;
Begindoc;
Canvas.TextOut(1,1,'출력내용');
EndDoc;
end;
end;
했더니 그냥 빈종만 멸줄정도 올라오고 컷팅이 돼네요.
꼬수님 도와져여....
참고 : 매뉴얼도 있습니다
검색해보시면 예제가 있을껀데요..
그냥 Comport 제어하는 콤포넌트를 사용하셔서 사용하시면 간단/편리하게 제어하실수 있습니다.
포트개방후 SendStr이나 SendString등으로 제어코드와 함께 문자열을 조합하셔서 보내시면 됩니다.
<!--CodeS-->
With ComPortDriver1 Do
Begin
ComPort:= pnCom1;
....
Connect;
cStr:= Chr(27)+'@';
cStr:= cStr+출력내용; //제어코드는 프린터메뉴얼에 있으며 Chr(27)+제어코드로 조합하시면 됩니다.
SendString(cStr);
DisConnect;
End;
<!--CodeE-->
그럼...