vb 打印Picturebox里的控件 - VB / 控件

我在Picturebox上放了Label、Line、Checkbox由于数量太多Picturebox的高度已经达到16470，也就是说是A4大小，现在问题是打印的时候却打印屏幕显示部分，因为屏幕（1024*768）受限制无法完成全部打印，我试了好几种方法好是不知道该怎么处理，我看过资料说可以通过坐标来打印，但我不太懂这些！想请教个位怎么才能将其打印完成！最后是有代码因为我对VB代码不是很熟悉，或发个例子给我jisklsw@163.com!满意的我再加100-200分 谢谢！】

  Picture2.Height = Picture1.Height
  Picture2.AutoRedraw = True
  BitBlt Picture2.hDC, 0, 0, Picture1.Width / Screen.TwipsPerPixelX, Picture1.Height / Screen.TwipsPerPixelX, Picture1.hDC, 0, 0, vbSrcCopy
  Picture2.AutoRedraw = False
  Picture2.Refresh
  Printer.PaintPicture Picture2.Image, 0, 0
  'Printer.Zoom = 20
  Printer.EndDoc
上面代码只能打到屏幕显示部分超出的就打印不出来了

我试过分开打印但却变成了打印了两个页面！

---

不要拘泥于picturebox
必要的时候专门为打印设计布局，再怎么说，在一定的纸张上不可能容纳过多的东西。

---

不要拘泥于picturebox
必要的时候专门为打印设计布局，再怎么说，在一定的纸张上不可能容纳过多的东西。