求教：如何将TMetafile的内容按当前打印机纸张的大小分页显示出来

inforum 2002-09-09 09:25:56
怎样将TMetafile的内容按当前打印机纸张的大小分页显示出来
(即在TImage控件上预览)?
...全文
73 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
zf 2003-05-08
  • 打赏
  • 举报
 回复
关注!
inforum 2002-09-10
  • 打赏
  • 举报
 回复
本题可能无解，
如果能象文本文件那样，用TRichEdit控件Load一下，
再调用Print方法就成了，
各位同意否？
inforum 2002-09-09
  • 打赏
  • 举报
 回复
UP
inforum 2002-09-09
  • 打赏
  • 举报
 回复
拷屏肯定不行，你不知道那里该分页
ddvboy 2002-09-09
  • 打赏
  • 举报
 回复
先拷屏
再到入IMAGE里
SynPDF-master 2016-07-12
* [Use regular VCL `TCanvas` methods](http://synopse.info/forum/viewtopic.php?pid=1909#p1909) thanks to `TMetaFile` support - see `TPdfDocumentGDI.VCLCanvas` property and the `TPdfCanvas....
(转帖)程序设置打印机打印纸张
Q：如何在用程序设置打印机打印纸张大小的问题？ A： //方法一 char Device[CCHDEVICENAME]; char Driver[MAX_PATH]; char Port[32]; PDevMode pDev; THandle
在MetaFile里放图片
procedure TForm1.Button1Click(Sender: TObject);... m : TmetaFile; mc : TmetaFileCanvas; b : tbitmap; begin m := TMetaFile.Create; b := TBitmap.create; b.LoadFromFile('C:\Som...
delphi 获取打印机默认纸张_在DELPHI中实现打印的预览
关键代码说明：用GetDevice (Printer.Handle,LOGPIXESX)获取当前打印机的水平分辨率。 如果想让打印程序在任何打印机上都能正常的打印，你就必须改变你的度量单位。 Dpm:=trunc(dpi/25.4); //算出每毫米的打印机...
convert bmp to wmf
MetaFile : TMetaFile; MFCanvas : TMetaFileCanvas; BMP : TBitmap; begin {Create temps} MetaFile := TMetaFile.Create; BMP := TBitmap.create; BMP.LoadFromFile(BmpFile); {Igualemos tama駉s} {Equalizing
Delphi

5,388

社区成员

262,730

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章