안녕하세요~~ 프린터 작업을 하는데.. 화면에 보여지는거랑 프린터 되는거랑 맞지가 않아용 도와주세요 소스는 간간하게 쓸게요..

Printer.PrinterIndex:=0;

with Printer.Canvas do begin

Printer.BeginDoc;

SetMapMode(Handle,MM_Text);

GetTextMetrics(Handle,Metrics);

Font.Name:='바탕체';

Font.Size:=12;

Font.Height:=15;

Font.Style:=[fsBold];

Textout((form4.width div 2) - 100 ,10,'역시글자');

Pen.Width:=3;

MoveTo((form4.width div 2) - 100,30);

LineTo((form4.width div 2) + 165,30);

Font.Size:=10;

Font.Height:=12;

Textout(Panel1.Width+10,35,'글자당');

Textout(form4.width-100,20,'글자');

Textout(form4.width-80,35,Edit1.Text+'년');



Pen.Width:=1;

// 대각선

MoveTo(Panel1.Width+10,60);

LineTo(Panel1.Width+70,100);



Textout(Panel1.Width+11,108,'글자');

Textout(Panel1.Width+11,133,'글자1');

Textout(Panel1.Width+11,158,'글자2');

Textout(Panel1.Width+11,183,'글자3');

Textout(Panel1.Width+38,62,aystring[1]);

...

똑같은걸 폼에다 그려넣은 소스입니다.



with Canvas do begin

SetMapMode(Handle,MM_Text);

GetTextMetrics(Handle,Metrics);

Font.Name:='바탕체';

Font.Size:=12;

Font.Height:=15;

Font.Style:=[fsBold];

Textout((form4.width div 2) - 100 ,10,'역시글자');

Pen.Width:=3;

MoveTo((form4.width div 2) - 100,30);

LineTo((form4.width div 2) + 165,30);

Font.Size:=10;

Font.Height:=12;

Textout(Panel1.Width+10,35,'글자당');

Textout(form4.width-100,20,'글자');

Textout(form4.width-80,35,Edit1.Text+'년');



Pen.Width:=1;

// 대각선

MoveTo(Panel1.Width+10,60);

LineTo(Panel1.Width+70,100);



Textout(Panel1.Width+11,108,'글자');

Textout(Panel1.Width+11,133,'글자1');

Textout(Panel1.Width+11,158,'글자2');

Textout(Panel1.Width+11,183,'글자3');

Textout(Panel1.Width+38,62,aystring[1]);

...

폼에는 정확하게 나오는데 프린트를 하면 아주 조그만하게 나와여 이유를 알고 싶어서 그런데 아는분 잇으면 꼭 가르켜 주세용^>^