안녕하세요 김진수 입니다.
이번에 Canvas로 그려서 출력을 하려고 하는데 프린터에 쪼그마하게
나오더군여.. 흑흑
간신히 델파이 예제를 구했는데 언어를 몰라 빌더로 바꾸지 못하고
있습니다.. 도움 부탁드립니다.

// 그리는 루틴
procedure DrawPage( Canvas: TCanvas );
begin
Canvas.Rectangle( 0, 0, 1000, -200 );
end;

// 기준 점을 APoint로 바꾸고 현재의 기준점을 리턴한다.
function SetOrgPoint( APoint: TPoint ): TSize;
var
Org: TPoint;
begin
Escape( Printer.Canvas.Handle, GETPRINTINGOFFSET, 0, nil, @Org );
SetWindowOrgEx( Printer.Handle, Org.X-APoint.X, APoint.Y-Org.Y, @Result );
end;

//메인 루틴
procedure TMain_Form.Button10Click(Sender: TObject);
var
OldMap: Integer;
OldOrg: TSize;
begin
//{인쇄를 시작한다}
Printer.BeginDoc;

//{현재 매핑모드를 oldMap에 저장하고 새로운 매핑모드(0.1mm)를 적용한다}
OldMap := SetMapMode( Printer.Handle, MM_LOMETRIC );

//{현재의 기준점을 OldOrg에 저장하고 새로운 기준점(20mm)을 적용한다}
OldOrg := SetOrgPoint( Point( 200, 200 ) );

try
//{그린다}
DrawPage( Printer.Canvas );

//{여기서 finally 구문은 필히 사용해서 프린터가 먹통이 되는일이 없게..}
finally
//{기준점을 원래대로 복구한다}
SetOrgPoint( Point( OldOrg.cx, OldOrg.cy ) );

//{매핑모드를 원래대로 복구한다}
SetMapMode( Printer.Handle, OldMap );

//{인쇄를 종료한다}
Printer.EndDoc;
end;
end;

이것입니다... 꼭좀 도와 주세여...