VB打印输出问题之二 ,相当怪的现象，请指教？？？多谢！！！！！

[fucool]

我用PICTUREBOX做打印输出时，发现PICTUREBOX里的控件(textbox)内容
无法在纸上输出。
我用的方法如下：


Private Sub Command2_Click()
'打印图片框
Call Printtopicture
Printer.PaintPicture Me.Picture1, 0, 0
End Sub



Private Sub Printtopicture()
'把控件（textbox）内容输出在图片框中，但是输出时到图片框的顶上，
'有什么办法
'输出到控件原位置，要用API吗，应如何做？？？
Dim objcon As Control

For Each objcon In Controls
If TypeOf objcon Is TextBox Then Picture1.Print objcon.Text
Next

End Sub

[y1g1y1]

为什么不直接输出到 Printer ?

ygyuan.go.163.com

[dywhett]

printer.paintpicture=picture1.image,0,0