VB 关于打印输出的，高分求高手来帮下

来源：百度知道 编辑：UC知道 时间：2024/06/08 19:56:48
我有一个picture控件，在picture控件里面我用了很多的line控件组成一个表格，我现在想做的是，怎么把这个picture1内显示出来的效果打印出来啊？这个picture1里没有图片的，也就是说其picture属性=空
希望高手很帮我下，我满分送，再加祝词~.~

SavePicture Picture1, "c:\test.bmp"

就可以把效果存成图片了 然后你要打印的话 把这个图片再LoadPicture 进去 打印之 即可

LZ：PictureBOX控件可按下列代码画空白表格和打印空白表格
Private Sub Command1_Click() '用于打印
Printer.ScaleMode = 7
Printer.DrawWidth = 2
Printer.Line (1, 1)-(5, 1)
Printer.Line (1, 1)-(1, 5)
Printer.Line (5, 1)-(5, 5)
Printer.Line (1, 5)-(5, 5)
Printer.EndDoc
End Sub

Private Sub Form_Load() '用于画表格
Picture1.ScaleMode = 7
Picture1.DrawWidth = 2
Picture1.Line (1, 1)-(5, 1)
Picture1.Line (1, 1)-(1, 5)
Picture1.Line (5, 1)-(5, 5)
Picture1.Line (1, 5)-(5, 5)
End Sub
至于文字也能用类似的方法解决。

Private Sub Command1_Click()
Picture1.Left = 0
Picture1.Top = 0
Width = Picture1.Width + 100
Height = Picture1.Height + 100
PrintForm
End Sub

picture1.picture=picture1.image

这样就可以了，很简单把,打印的代码自己加哦,呵呵

picture1.I