기본프린터에 직접 쓰기 팁 입니다.

아마도 업무용 개발자분께는 아주 유용한 자료가 되리라 생각이 듭니다.





unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, printers,

StdCtrls;



type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}

Type

TPassThroughData = Record

nLen : Integer;

Data : Array[0..255] of byte;

end;



Procedure DirectPrint(s : String);

var

PTBlock : TPassThroughData;

Begin

PTBlock.nLen := Length(s);

StrPCopy(@PTBlock.Data,s);

Escape(printer.handle, PASSTHROUGH,0,@PTBlock,nil);

End;



Procedure PrintTest;

Begin

Printer.BeginDoc;

DirectPrint(CHR(14)+'My Name is ik-dong Park');

Printer.EndDoc;

End;



procedure TForm1.Button1Click(Sender: TObject);

begin

PrintTest;

end;



end.





이동화 wrote:

> 안녕하세요..

> 이상한 질문 하나 하겠습니다. 아직 컴퓨터에대해 잘 몰라서...

> 도트프린터기에 대해서 질문 하나 하겠습니다...

> 내가 원하는 내용을 출력시키는데 내용이 1 줄이던 10 줄이던간에

> 프린트하면 A4용지 1장이 그대로 프린터에서 배출됨니다...

> 당연히 10줄 밑으로는 공백이 되고....

> 그러니까 만약에 10줄을 출력시키고 종이가 나오지않고 프린터기가 11번째 줄

> 에서 스톱한다는 말입니다...

> 말이 어렵나요? 나두 해깔리네...

> 한마디로 편의점에서 돈계산할때 영수증 나오는 것같이 되는거 말입니다...

> 부탁드림니다....

>

>

>

>