有关MAPX打印的小问题，敬请指点！(29分)

我想将能看到的电子地图打印出来，可点了“打印”按钮，没有反应，好像打印机没有接到打印命令。所写的代码如下：
1.增加PrintDialog控件PrintDialog1，调打印机：
uses Printers,
2.“打印”按钮的单击事件的代码如下：
procedure TForm1.A_dyExecute(Sender: TObject);
begin

map1.PrintMap(printer.Handle,0,0,map1.Width*100,map1.Height*100);
end;

procedure TForm1.A_dyExecute(Sender: TObject);
begin

Printer.begin
Doc;
map1.PrintMap(printer.Handle,0,0,map1.Width*100,map1.Height*100);
Printer.EndDoc;
end;

谢谢