能否直接在一个窗体上预览报表啊？

花落，相依　发表于：2010-09-05 07:55:28 　

复制

各位老师好

能否在一个窗体上直接预览报表，报表显示不是独立出来，而是显示到空窗体上，就是如图，请高手指点示例。（请高手提供一个示例供全员学习）

Top

煮江品茶发表于：2010-09-05 09:27:44

你可以试试能否把报表拖入窗体的设计视图，如果能拖入则可以，否则不能。

Top

liaohk 发表于：2010-09-05 13:17:44

煮江老师

你作了那么多小品，能否也作一个这种示例来供大家学习，感谢

Top

小魏发表于：2010-09-05 14:10:49

在设计视图下拖不进去.不像是这个方法做的.

谁有解,请发表一下看看.

Top

小魏发表于：2010-09-05 15:02:17

你发的照片,即长效节育系统,我有打开看过,不是用子报表的方法做的,应该是一个分开做的.后用代码进行窗口排列的.

Top

liaohk 发表于：2010-09-05 17:47:09

发在论坛上的没有原码，搞清是怎么作的，我觉得这个很不错，所以请各位高手来帮助分析是怎么作的，好像全员学习

Top

liaohk 发表于：2010-09-05 17:50:30

我相信本论坛有这么多精英，没有搞不定的哟

Top

liaohk 发表于：2010-09-06 12:15:46

Top

liaohk 发表于：2010-09-07 07:05:15

搞定了

'下面这句API声明放在窗体的类模块声明区
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

'点击按钮预览报表
Private Sub 打印报表_Click()
Dim strRptName As String

    strRptName = "报表1"
    DoCmd.OpenReport strRptName, acViewPreview, , , acWindowNormal
    DoCmd.Maximize
    SetParent Reports(strRptName, Me.报表预览子窗体.Form.hwnd)
End Sub

'使用说明：报表需要将窗体边框样式设为“无”，报表预览子窗体必须设一个对象来源，否则代码会出错

Top

总记录：8篇页次：1/1 9 1 :

Access交流中心

能否直接在一个窗体上预览报表啊？