提供两个思路
创新互联-专业网站定制、快速模板网站建设、高性价比汉台网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式汉台网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖汉台地区。费用合理售后完善，10余年实体公司更值得信赖。
用printscreen,将其保存到文件，再调用outlook发出去，但是您说的超出一屏，就麻烦了；
以下代码保存为文件，引用自MSDN，由于我的SD版本不支持我的outlook,所以暂时无法给发送邮件的例子，请参考吧！
system.Windows.Forms.SendKeys.Send("%{PRTSC}")
If Not System.Windows.Forms.Clipboard.GetDataObject() Is Nothing Then
Dim oDataObj As IDataObject = System.Windows.Forms.Clipboard.GetDataObject()
If oDataObj.GetDataPresent(System.Windows.Forms.DataFormats.Bitmap) Then
Dim oImgObj As System.Drawing.Image = oDataObj.GetData(DataFormats.Bitmap, True)
'To Save as Bitmap
oImgObj.Save("F:\Test.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'To Save as Jpeg
oImgObj.Save("D:\Test.jpeg", System.Drawing.Imaging.ImageFormat.Jpeg)
'To Save as Gif
oImgObj.Save("d:\Test.gif", System.Drawing.Imaging.ImageFormat.Gif)
End If
End If
2.另外出出报表，再调用outlook发出去，只给出数据性报表，而不一定是窗体本身；
我帮你把最后一部分的语句顺序调换一下。你试一试
sub button1_click() '---执行打印
Dim pd As PrintDocument = New PrintDocument
pd.PrinterSettings = PrintDialog1.PrinterSettings
If _PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
for i=0 to 1 '这样可以两次截图
CaptureScreen() '--执行前面自定义函数截图
AddHandler pd.PrintPage, AddressOf Document_PrintPage
pd.Print()
Threading.Thread.sleep(100) ‘ 再加上一个间隔
next
end sub
用位图对象的Clone 方法就可以获取图片某个区域成一个新的位图对象，下面例子：
Private Sub Form1_Click(sender As Object, e As EventArgs) Handles Me.Click
Dim img As New Bitmap("d:\015.jpg")
Dim rc As Rectangle = New Rectangle(500, 500, 600, 600) '起点和长宽
Dim newImg As Bitmap = img.Clone(rc, Imaging.PixelFormat.Format32bppArgb)
Me.CreateGraphics.DrawImage(newImg, 0, 0)
End Sub
问题：引用原文：“要是换个思路，先截全屏，然后将窗体全屏，让Picturebox占满全屏幕，但是无论利用什么方法(最大化，boderstyle设为none）都遮挡不了任务栏。”
解决方法：经测试，代码可以实现你得要求，即能遮挡任务栏。
设置：在窗体上添加一个PictureBox1,，dock属性设置为Fill。随便导入一张图片用于显示。
代码如下：
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
Me.WindowState = FormWindowState.Maximized
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
Me.Close()
End Sub
End Class
程序截图：
