Save a form's face as an image file

[charlieanfield]

It is easy to print a form's details directly by printer:

Printer.Print Form1

How about saving it as an image (BMP or JPG) file ?

I have a SaveScreen function but it also save the title bar of an active window.

Pls help...

[Megatron]

Use the function: What is does is copy the Form's DC to a PictureBox, then we save it by calling the SavePicture function.

Make sure that the PictureBox (in the pBox argument) is invisible.

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

Sub SaveScreen(vFrm As Form, pBox As PictureBox, sFileName As String)
Dim iWidth As Integer, iHeight As Integer

pBox.Visible = False
pBox.AutoRedraw = True
vFrm.AutoRedraw = False
pBox.Move 0, 0, vFrm.ScaleWidth, vFrm.ScaleHeight
iHeight = vFrm.ScaleHeight / Screen.TwipsPerPixelY
iWidth = vFrm.ScaleWidth / Screen.TwipsPerPixelX
BitBlt pBox.hDC, 0, 0, iWidth, iHeight, vFrm.hDC, 0, 0, vbSrcCopy
SavePicture pBox.Image, sFileName
End Sub

And you would call it like:

SaveScreen Form1, Picture1, "C:\MyFile.bmp"