mapx中打印地图为什么只能打出下面的图层呢?我的代码:
procedure TFrm_Print.sb_PrintClick(Sender: TObject);
begin
{打印地图}
with printer do
begin
{设置打印格式}
Orientation := poLandscape; // 横向打印
{设置打印格式结束}
begindoc;
Map_Main.PrintMap(handle, Map_Main.Left, Map_Main.Top, map_main.Width*40, map_main.Height*40);
NewPage;
enddoc;
end;
{打印地图结束}
end;
procedure TFrm_Print.sb_PrintClick(Sender: TObject);
begin
{打印地图}
with printer do
begin
{设置打印格式}
Orientation := poLandscape; // 横向打印
{设置打印格式结束}
begindoc;
Map_Main.PrintMap(handle, Map_Main.Left, Map_Main.Top, map_main.Width*40, map_main.Height*40);
NewPage;
enddoc;
end;
{打印地图结束}
end;
可能存在的问题:1、你没有将图层全部显示;
2、你设置的打印机那里可能有问题。