이제 막 델파이 공부하는데요
뭘 만들다 보니 프린트 하는기능이 필요해서 여기저기
다니다 소스를 얻어서 쓰긴했는데  프린팅할때
용지가 출력이되긴하거든요...근데 인쇄가 되질 않아서요
나름대로 이틀을 고민했는데...않되네요^^;
제가 얻어다 쓴 소스인데 이중에서 이부분의 내용이
Escape(printer.handle, PASSTHROUGH,0,@PTBlock,nil);
이해가 되지 않아서요..
밑에 있는 내용이 다른곳에서 구해온것입니다.
보시고 도움 좀 주세요
그럼 수고하세요^^

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.