关于picture控件的打印问题

happydoublefish 2003-10-19 11:01:00
一个form中只有一个picture控件,想把picture里的图片打印在A4纸上,怎样保证正好打印在一张纸上啊?计算机分辨率800×600。
...全文
33 12 打赏 收藏 转发到动态 举报
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
iamlittlelittledog 2003-10-29
  • 打赏
  • 举报
回复
怎么回事啊?好像解决了啊?
inocentboy 2003-10-21
  • 打赏
  • 举报
回复
用savepicture然后再打印吧!
射天狼 2003-10-21
  • 打赏
  • 举报
回复
计算图片大小吧~
happydoublefish 2003-10-21
  • 打赏
  • 举报
回复
我是在picture里面画实时曲线,所以一定要打印picture。 我就是想知道怎样计算控件大小,使其正好占慢一张A4纸。是不是和计算机的分辨率有关系啊?
seawind00 2003-10-20
  • 打赏
  • 举报
回复
用activeReport报表打印,在报表上加入一个Image控件(放图片)和Field1(放图片名),设置其属性大小与A4纸相同,加入下列代码:
Private Sub Detail_Format()
On Error GoTo 10
Dim sql As String
sql = App.Path & "\photo\" & Field1.Text & ".jpg"
Image1.Picture = LoadPicture(sql)
Exit sub
10 Image1.Picture = Nothing
End Sub
kmzs 2003-10-20
  • 打赏
  • 举报
回复
不是很简单吗,就是打印纸没法调。。。居中打印只要设置正确不用0,0就行了
happydoublefish 2003-10-20
  • 打赏
  • 举报
回复
我是想知道怎样才能将图正好打印在一张A4纸上啊?
Printer.PaintPicture picture1.Image, 0, 0这样打印可能一张纸打不下。
是要根据计算机的分辨率计算吗?
射天狼 2003-10-20
  • 打赏
  • 举报
回复
Printer.PaintPicture picture1.Image, 0, 0
haisuifeng 2003-10-20
  • 打赏
  • 举报
回复
Form1.PrintForm 打印窗体吧
happydoublefish 2003-10-19
  • 打赏
  • 举报
回复
但是我要用picture控件来绘图啊。
efsnake 2003-10-19
  • 打赏
  • 举报
回复
为什么要用PICTURE控件来打印呢?去看看PRINTER对象吧!好用的多,功能也强!
山顶洞人-平 2003-10-19
  • 打赏
  • 举报
回复
谁知道?请教

7,759

社区成员

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

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