各位大虾进来帮我看看一个困惑我的问题，很急，（EMS）

[dandy1437]

我原来用FORMPRINT方法打印窗体上显示的数据
现在客户需要将打印出来的资料在打印的时候也产生一个和打印出来一样的文件
方便邮件附件传送。
我该怎么把窗体的内容导到文件那？
还有就是显示的数据位置和原来的一样怎么实现阿？

[dandy1437]

那怎么做那？
怎么调整

[lxcc]

楼上的，我怎么存到硬盘？

savepicture Picture1.Picture,"c:\123.bmp"

[junki]

up
looking

[射天狼]

存成位图文件吧~~

[dandy1437]

怎么实现阿？

[射天狼]

Option Explicit

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()
'从屏幕上截图
picCopy.Width = Width
picCopy.Height = Height - 300

BitBlt picCopy.hDC, 0, 0, Width - 1, Height - 300, Me.hDC, 0, 0, &HCC0020
SavePicture picCopy.Image, "c:\aa.bmp"
End Sub

Private Sub Form_Load()
'在窗口中加一个PICTUREBOX控件,改名为picCopy
picCopy.Visible = False
picCopy.AutoRedraw = True
End Sub

[lxcc]

Private Function CaptureWindow(ByVal hWndSrc As Long, _
ByVal bClient As Boolean, ByVal LeftSrc As Long, _
ByVal TopSrc As Long, ByVal WidthSrc As Long, _
ByVal HeightSrc As Long) As Picture

Private Sub command1_Click()
Set Picture1.Picture = CaptureForm(Me)
End Sub

Private Function CaptureForm(frm As Form) As Picture

With frm
Set CaptureForm = CaptureWindow(.hWnd, False, 0, 0, _
.ScaleX(.Width, vbTwips, vbPixels), _
.ScaleY(.Height, vbTwips, vbPixels))
End With
End Function

[dandy1437]

截图不一定能把FORM全截取下来
那怎么办？

[lxcc]

Private Function CaptureWindow(ByVal hWndSrc As Long, _
ByVal bClient As Boolean, ByVal LeftSrc As Long, _
ByVal TopSrc As Long, ByVal WidthSrc As Long, _
ByVal HeightSrc As Long) As Picture

Private Sub command1_Click()
Set Picture1.Picture = CaptureForm(Me)
End Sub

Private Function CaptureForm(frm As Form) As Picture
With frm
Set CaptureForm = CaptureWindow(.hWnd, False, 0, 0, _
.ScaleX(.Width, vbTwips, vbPixels), _
.ScaleY(.Height, vbTwips, vbPixels))
End With
End Function

[dandy1437]

楼上的，我怎么存到硬盘？
还有你的这个截取的是ACTIVE窗体么？

[TechnoFantasy]

应该是可以的，既然PrintForm可以打印出来的话，你可以在输出前调整一下窗体的位置。

[dandy1437]

真的没有人知道么？

[northwolves]

SENDKEYS {ALT}+{PRINTSCREEN}

[Gelim]

楼主，请说清楚点啊！

我觉得cuizm(射天狼)写的原代码很清楚的啊！