이영근 wrote:

> 영수증을 출력 하는 프린터인데 마지막에

> 컷팅을 해야 되요. 출력 값은 char(27)+'P'+'O' 인데요

> printcanvas 에서 어떻게 사용 해야 되는지 고수님들의 조언

> 부탁드립니다.



uses

Printers;

{....}



var

i:Integer;

CutCommand:String;

begin

CutCommand:= #27+'P'+#0;

with Printer do begin

BeginDoc;

try

Canvas.TextOut(0, 0, '이것은 시험출력입니다.');



{커팃을 할려면 아래처럼 얼마간 라인을 피드해줘야 위치가 맞습니다.}

for i:=1 to 4 do

Canvas.TextOut(0, i, #13+#10)



Canvas.TextOut(0, 5, CutCommand);

EndDoc;

except

Abort;

ShowMessage('출력도중 에러가 발생했습니다.');

end;

end;

end;



아마 시티즌 계열의 프린터라면 풀

parkisu wrote:

> 이영근 wrote:

> > 영수증을 출력 하는 프린터인데 마지막에

> > 컷팅을 해야 되요. 출력 값은 char(27)+'P'+'O' 인데요

> > printcanvas 에서 어떻게 사용 해야 되는지 고수님들의 조언

> > 부탁드립니다.

>

> uses

> Printers;

> {....}

>

> var

> i:Integer;

> CutCommand:String;

> begin

> CutCommand:= #27+'P'+#0;

> with Printer do begin

> BeginDoc;

> try

> Canvas.TextOut(0, 0, '이것은 시험출력입니다.');

>

> {커팃을 할려면 아래처럼 얼마간 라인을 피드해줘야 위치가 맞습니다.}

> for i:=1 to 4 do

> Canvas.TextOut(0, i, #13+#10)

>

> Canvas.TextOut(0, 5, CutCommand);

> EndDoc;

> except

> Abort;

> ShowMessage('출력도중 에러가 발생했습니다.');

> end;

> end;

> end;

>

> 아마 시티즌 계열의 프린터라면 풀