主题：求助：如何把整个窗口生成一张图片

 2楼的打印，最后你保存成一张图片即可

http://www.foxtable.com/webhelp/scr/2450.htm

 如果是直接截屏的话，可以这样写

Dim point As Point = e.Form.Panel.PointToScreen(e.Form.panel.Bounds.Location)
Dim myGraphics As Graphics = basemainform.CreateGraphics()

Dim s As new Size(e.Form.panel.width, e.Form.panel.height) '截取的大小

Dim bit As New Bitmap(s.Width, s.Height, myGraphics)
Dim memoryGraphics As Graphics = Graphics.FromImage(bit)
memoryGraphics.CopyFromScreen(point.x, point.y, 0, 0, s) '截取的开始位置,坐标(100, 200)

bit.save("e:\test.jpg")