안녕하세요..

실행화면에서 메모장의 내용과 이미지만을 출력하려고 합니다.

제가 책과 이곳 강의실에서 참고하여 만든 소스입니다.^^;

var

p:TPrinter;

i,h:integer;

s:string;

FRec:TRect;

begin

p:=printer;

h:=50;

p.BeginDoc;

for i:=0 to memo1.Lines.count-1 do

begin

s:=memo1.lines.Strings[i];

//canvas.TextHeight(s); ======>메모장의 글씨를 출력 할때 크게 바꾸려고 하는데

//canvas.TextWidth(s); ======>이 부분 좀 고쳐 주세요..and 위치를 잡아 줄수 있나요?

p.canvas.Textout(1,h*i,s);

end;



// 이미지를 위치와 크기를 조절하려 하는데 고쳐 주세요..

{p.Canvas.Draw(300,1,Image1.picture.Bitmap);

p.Canvas.Draw((printer.PageWidth - Image1.Width) div 2, printer.PageHeight - Image1.Height) div 2,Image1);}

SetMapMode(printer.handle,MM_LOMETRIC); =====>화질이 좋지 않습니다.

FRec.Left:=300;

FRec.Top:=300;

FRec.Right:=1000;

FRec.Bottom:=1000;

p.Canvas.StretchDraw(FRec,Image1.Picture.Bitmap);

p.EndDoc;



고수님들이 보기에 무척 조잡하게 보일 겁니다!!

이것 저것 책보고, 프린트,강의실 찾아서 쓰다보니 조잡해졌습니다.

부탁하겠습니다...꾸벅..