Question

vb 怎么把一个窗体的内容保存为pdf或者jpg格式，这个窗体内容很多，文字图片什么都有。

窗体的打印已经实现，用A3打印机打印

Answer 1

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
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 Sub Command1_Click()
Picture1.AutoRedraw = True
BitBlt Picture1.hDC, 0, 0, Me.Width, Me.Height, GetDC(Me.hwnd), 0, 0, vbSrcCopy '抓屏
Dim sFile As String
sFile = App.Path & "\" & Format(Now, "yyyy.mm.dd hh.mm.ss") & ".BMP"
Set Picture1.Picture = Picture1.Image
Picture1.AutoRedraw = False
SavePicture Picture1.Picture, sFile '保存
End Sub

追问

我这个窗体是有滚动条的，抓屏抓不全啊

追答

去VB那边问，这边的分俺不稀罕。

追问

分类改为vb了，要是能解决了，追加50分

追答

可以考虑滚动后再抓一张

Answer 2

如果纯粹是为了保存为图片，建议用截屏（shit+ Print Screen键）然后在pshotoshop中粘贴
一屏不完，分多次截屏，再用PS拼贴

Answer 3

安装Adobe Acrobat Pro；或虚拟打印，不都可以转成PDF吗？

good luck!

追问

开始就是这样做的，虚拟打印完了转的pdf会有一些出入