Question

vb打印Picturebox

怎么样打印Picturebox内的所有显示出来的东西？Picturebox内有Label（Label背景色和Picturebox背景色一样，已调成纯白色），Line两个控件，要求打印出来的内容居中~line和Label的位置比例不变
如果是你把Picturebox内的内容当成位图打印出来，那就不用来了，
积分多多，有能力拿走的来拿~
截图的话有个问题，截图只能截比屏幕小的，但我这个Picturebox比屏幕大，打印出来下面一部分看不到。如何解决

Answer 1

直接打印窗体好了,窗体设成和picture一样大就好了
Form1.Height = Printer.ScaleHeight
Form1.Width = Printer.ScaleWidth
Form1.PrintForm

Answer 2

用截屏的方法得到picturebox里面象，再打印

' 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
'
''Picture1为源图形,picture3为目的图形(目标AutoRedraw必为true)
' Picture3.Width = Picture1.Width: Picture3.Height = Picture1.Height
' BitBlt Picture3.hDC, 0, 0, Picture1.Width, Picture1.Height, Picture1.hDC, 0, 0, SRCCOPY
'' SavePicture Picture3.Image, "C:\aa.bmp"
现在再打印目的图形里面内容就OK了

Answer 3

如果要是打印机的高分辨率，可以使用printer对象。
但是label不太好打印，最好用print方法直接输出文字

Answer 4

如果form比屏幕大，那就分两个form打印。
打印Form2之前用Enddoc让Form1强制打印出来

form1.print
Printer.Enddoc
form2.print
Printer.Enddoc