关于picture控件的打印问题

Question

一个form中只有一个picture控件，想把picture里的图片打印在A4纸上，怎样保证正好打印在一张纸上啊？计算机分辨率800×600。

Answer 1

为什么要用PICTURE控件来打印呢？去看看PRINTER对象吧！好用的多，功能也强！

Answer 2

但是我要用picture控件来绘图啊。

Answer 3

Form1.PrintForm  打印窗体吧

Answer 4

Printer.PaintPicture picture1.Image, 0, 0

Answer 5

我是想知道怎样才能将图正好打印在一张A4纸上啊？
Printer.PaintPicture picture1.Image, 0, 0这样打印可能一张纸打不下。
是要根据计算机的分辨率计算吗？

Answer 6

用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

Answer 7

我是在picture里面画实时曲线，所以一定要打印picture。 我就是想知道怎样计算控件大小，使其正好占慢一张A4纸。是不是和计算机的分辨率有关系啊？