vb picturebox 截图的问题
我有一个picturebox ,里边我画了图形，还有控件，还有文字，并且picture比屏幕大，带滚动条的。请问我怎么才能够把这个picture上的所有东西保存或者打印出来？？？
试一试:
ME.PrintForm
用PrintForm，被遮盖的部分肯定打印不出，我想还需要拖动滑块，代码截屏，再打印截屏图像
用Bitblt应该可以.
复制：BitBlt，保存：SavePicture，打印：Printer.PaintPicture
其实很简单！不管抓图也好，还是Bitblt也好，都只能捕捉到可见区域。有一个最简单的办法：将要抓的图片放到另外一张PictureBox中，AutoSize和AutoRedraw都设为true，Visble设为false，然后用SavePicture保存为文件。
保存完后清除图片：用CLS属性
使用BitBlt把图片框的所有内容存入一个新的图片框，这个图片框的AutoSize和AutoRedraw都设为True，然后再对这个图片框操作？
呵呵，思路而已，没有具体操作过。。。
楼主我来帮你拼命顶！
[color=#FFFFFF] [/color]
up......................
8楼很强大！
只要设置了 AutoRedraw 就可以用 Image 进行打印输出
VB code:
Option Explicit
Private Sub Command1_Click()
Printer.PaintPicture Picture1.Image, 100, 100
Printer.EndDoc
End Sub
Private Sub Form_Load()
Picture1.AutoRedraw = True
Picture1.ScaleMode = vbPixels
Picture1.BackColor = vbWhite
Picture1.ForeColor = vbBlack
Picture1.Print "Hell
相关问答：
看了一些VB ini文件写入读取的方法 但是还是不知道怎么写，上面写了很长 很多，但是我不知道怎么用，我想问一下怎样写才能实现在TEXT1中写字，然后点Command1提交，然后TEXT1里面的数字就写进INI里面[Section]的Key1 ......
初学，大胆提问，请高手不吝赐教
1、滚动条点击与绘图板（屏幕,Piceure1）的移动问题已经解决。
Picture1.Top = -VScroll1.Value + bcW '垂直移动
Picture1.Left = -HScroll1.Value + bcW ' ......
各位大虾：
我是刚学VB，现在想用VB调用一个动态库，动态库里面有很多函数。我知道使用VB调用动态库调用函数，需要将要调用的函数在程序中声明即可，但是里面有很多函数，不会每一个函数都要声明吧。请� ......
VB怎样获得鼠标处的超级连接呢？
在WebBrowser控件中有这样一个事件:StatusTextChange(index As Integer, ByVal Text As String)
它的Text参数正是鼠标处的超级连接,但问题是如果我的浏览器正� ......
在vb中如何读取Word内容(包含表格，图片，等）
竟然不是zero。
不知道怎么实现的不要说话
这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
