Question

vb打印问题

我现在想打印picturebox中的内容，里面有很多的text，我想连图片带text一起打印出来
Printer.PaintPicture Picture1.image, 0, 0
Printer.EndDoc
这种方法打印出来的效果不好看，但能打印出text
Printer.PaintPicture Picture1.Picture, 0, 0
Printer.EndDoc
用这种效果对了，可是打印不出text，我想让效果也对，还能打印出text，希望大家多多帮忙，谢谢！！！！！在线等回答！！！

Answer 1

你可以试试不用Picture1来装载图片啊，按照下面的方法直接将图片（和文字）装载到窗体上：
Private Sub DaYing_Click() ‘这是菜单中的打印命令“DaYing”
Form1.AutoRedraw = True ’这句是必须的，没有这句就“有图无字”
Form1.Picture = LoadPicture("F:\图.jpg") ‘装载图片（请更改成你的图片地址）
Form1.Print "实验打印图片连带文字" '这是图片中的文字部分
PrintForm '开始打印
End Sub
最后打印的结果看到了图片和文字一起出来了。

追问

可是我的是用sstab做的 分了好多个选项卡，只有把图片和文字放在picturebox中啊

Answer 2

打印出来的效果不好看，但能打印出text?
是打印不完整吗？效果应该是一样的啊。

追问

不一样 如果用image 打印出来的效果有点模糊，用picture打印出来的 比较清楚

追答

要不这样，复制到内存，然后打印内存图片。

追问

具体怎么弄 我是个新手 谢谢

追答

Private Sub Command1_Click()
Picture2.ScaleMode = vbPoints
DoEvents

Printer.ScaleMode = vbPoints
Printer.PaintPicture Picture2.Picture, 0, 0

For Each obj In Controls
If TypeName(obj) = "TextBox" Then
'If obj.Name = "TextBox_Page1" Then '示例
Set Printer.Font = obj.Font
Printer.ForeColor = obj.ForeColor
Printer.CurrentX = obj.Left
Printer.CurrentY = obj.Top
Printer.Print obj.Text
'End If
End If
Next

Printer.EndDoc
End Sub