高分急用!!各位多帮忙

yaotiebing 2002-05-17 01:30:04
Set picture.Picture = picture.Image
Printer.Width = picture.Width
Printer.Height = picture.Height
Printer.PaintPicture picture.Picture, 1, 1
Printer.EndDoc
我的picture图片比较大,请问如何让图片自动改变大小适合a4纸,全部打印出来,上面的程序只能打出一部分
...全文
33 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
yaotiebing 2002-05-17
  • 打赏
  • 举报
回复
123
螺丝刀2000 2002-05-17
  • 打赏
  • 举报
回复
uP
handsomge 2002-05-17
  • 打赏
  • 举报
回复
使用Printer.Zoom
softrain 2002-05-17
  • 打赏
  • 举报
回复
不好意思,写反了。
printer.PaintPicture Picture1.Picture, x, y, w, h, 0, 0, Picture1.Picture.Width, Picture1.Picture.Height
x,y,w,h 为要打印的区域和坐标。
shawls 2002-05-17
  • 打赏
  • 举报
回复
up
softrain 2002-05-17
  • 打赏
  • 举报
回复
printer.PaintPicture Picture1.Picture, 0, 0, Picture1.Picture.Width, Picture1.Picture.Height, 10, 10, 400, 500
最后四个参数代表变换后的图片,你设置为打印的大小和位置。

7,789

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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