急,急,急.请问哪位大侠知道MAPX4.5中怎么打印整张地图?(100分)

急,急,急.请问哪位大侠知道MAPX4.5中怎么打印整张地图?

PROCEDURE TFmMapBase.PrintMap(Map: TMap);
VAR
MyBlankFile: TextFile;
MyPrintDialog: TPrintDialog;
begin

MyPrintDialog := TPrintDialog.Create(Application);
MyPrintDialog.Options := [poPageNums, poSelection];
IF MyPrintDialog.Execute then

begin

map.PaperUnit := miPaperUnitMillimeter;
TRY
Printer.begin
Doc;
Map.PrintMap(Printer.Handle, 0, 0, Map.Width * 100, Map.Height * 100);
Printer.EndDoc;
EXCEPT
Printer.Abort;
MessageDlg('不能打印地图', mtError, [mbOK], 0);
end;

end;

MyPrintDialog.Free;
// MyPrintDialog.Destroy;
MyPrintDialog := NIL;

to tong_hui 我曾试过这个方法，但打出来的还是当前窗口的地图。

可以试一试，下面的做法：
步骤1：用语句调整地图的显示比例，之前，要记住原来的比例数值。
步骤2：打印当前显示的地图
步骤3：把地图的显示比例值设置到原来的那个值
随便说说

多人接受答案了。