vb 打印picturebox问题

Question

我在picturebox上放了很多text，我现在可以把picturebox的图片打印出来，可是，里面的text无法打印，应该怎么做，才能连picturebox中的 text也打印出来！！！！谢谢

Answer 1

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Const SRCCOPY = &HCC0020 ' (DWORD) dest = source

Private Sub Command1_Click()
Picture2.Width = Picture1.Width
Picture2.Height = Picture1.Height
Picture2.AutoRedraw = True
BitBlt Picture2.hDC, 0, 0, Picture1.Width / Screen.TwipsPerPixelX, Picture1.Height / Screen.TwipsPerPixelY, Picture1.hDC, 0, 0, SRCCOPY
Picture2.AutoRedraw = False
Picture2.Refresh
Printer.PaintPicture Picture2.Image, 1000, 1000
Printer.EndDoc
End Sub
试试这个追问

printer.paintpcture picture2.image,1000,1000，这句中如果用.image的话打印出来的效果不好看，如果改成.picture的话效果对了，但不打印text中的内容，应该怎么办啊

追答

两者只能取一