打印WinForm窗体，复制窗体。

参考：http://www.cnblogs.com/tuyile006/archive/2007/07/16/815843.html 

可以利用Graphics类的CopyFromScreen方法来实现屏幕截取，舍弃了比较麻烦的API函数，只要几句代码就能实现了，修改一下，几行代码就可以把一个winform的窗体界面复制出来。可以供打印，保存为图片。

Form1.vb

 

Public   Class Form1 Class Form1

    Private Sub Button2_Click()Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Location = New Point(0, 0)
        Form2.Show()
    End Sub

    Private Sub Button1_Click_1()Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

End Class

 

form2.vb

Imports  System.Drawing

Public   Class  Form2

     Private   Sub  Button1_Click( ByVal  sender  As  System.Object,  ByVal  e  As  System.EventArgs)  Handles  Button1.Click
         Me .Hide()
         Dim  r  As  Rectangle  =  Form1.Bounds
         Dim  img  =   New  Bitmap(r.Width, r.Height)
         Dim  g  As  Graphics  =  Graphics.FromImage(img)
        g.CopyFromScreen( New  Point( 0 ,  0 ),  New  Point( 0 ,  0 ), r.Size)
         Me .Show()
        Picbox.Image  =  img
     End Sub

     Private   Sub  Button2_Click( ByVal  sender  As   Object ,  ByVal  e  As  System.EventArgs)  Handles  Button2.Click
         Me .Close()
     End Sub

End Class