delphiwork
路人甲
路人甲
  • 注册日期2004-09-02
  • 发帖数2
  • QQ
  • 铜币111枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1007回复:2

关于打印的问题,如果只打印出选中图元呀。

楼主#
更多 发布于:2004-12-08 15:41
<P>关于打印的问题,如果只打印出选中图元呀。</P>
<P>Map1.PaperUnit := miUnitCentimeter;
Map1.ExportSelection:=True;
Map1.ExportMap('c:\map.bmp', miFormatBMP,emptyparam,emptyparam);</P>
<P>这样可以把地图导成图片,可是是全部的图片,如果我只想打印选中的某些图元应该怎么办?</P>
<P>QQ:66639527哪位哥哥会请教教 我。</P>
喜欢0 评分0
delphiwork
路人甲
路人甲
  • 注册日期2004-09-02
  • 发帖数2
  • QQ
  • 铜币111枚
  • 威望0点
  • 贡献值0点
  • 银元0个
1楼#
发布于:2004-12-08 21:09
<P>只能这样了,可是出了一个奇怪的问题。</P><P>var
  pwidth,pheight:integer;
begin
//Map1.PaperUnit := miUnitCentimeter;
Map1.PaperUnit := miPaperUnitInch;
{Map1.ExportSelection:=True;
Map1.ExportMap('c:\map.jpg', miFormatjpeg,emptyparam,emptyparam);
}
Printer.BeginDoc;
  pwidth:=Map1.Width * 100  ;
  pheight:=Map1.Height * 100 ;
  Map1.PrintMap(Printer.handle, 0, 0, pwidth, pheight);</P><P>  printer.EndDoc ;</P><P>我用虚拟打印机打印出来的是空白的,不知道为什么,还须要设置其它的吗?</P>
举报 回复(0) 喜欢(0)     评分
echo2003
点子王
点子王
  • 注册日期2003-07-28
  • 发帖数2453
  • QQ76947571
  • 铜币5473枚
  • 威望1点
  • 贡献值0点
  • 银元0个
  • GIS帝国居民
2楼#
发布于:2004-12-08 20:14
你可以把选中的全部添加到一个临时图层,然后把其他图层得visiable得为false
举报 回复(0) 喜欢(0)     评分
游客

返回顶部