如何在子窗体中预览报表

ngw123

如何在子窗体中预览报表

goodidea

http://www.access911.net/index.asp?board=4&mode=3&recordid=71FAB61E17DCE7F3

whaojz

学学学学

ndbs

2 楼给的链接进不去了

sealflyer

错误：连接非法。导致该错误的可能原因如下：
1、本站仍保留所有的文章，但您试图从外部非法连接本站内容，请先登录本站首页
2、您使用的链接地址为本站改版前的地址，该地址已经失效。
   您可以去搜索页面查找您需要的文章。
3、您键入的地址可能无效，请再次核对。

shentao

好象有实例

shentao

什么也没有啊

红尘如烟

1. 
   
2. '下面这句API声明放在窗体的类模块声明区
   
3. Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
   
4. 
   
5. '点击按钮预览报表
   
6. Private Sub 打印报表_Click()
   
7.     Dim strRptName As String
   
8. 
   
9.     strRptName = "报表1"
   
10.     DoCmd.OpenReport strRptName, acViewPreview, , , acWindowNormal
    
11.     DoCmd.Maximize
    
12.     SetParent Reports(strRptName, Me.报表预览子窗体.Form.hwnd)
    
13. End Sub
    
14. 
    
15. '使用说明：报表需要将窗体边框样式设为“无”，报表预览子窗体必须设一个对象来源，否则代码会出错
    
16. 
    

复制代码

yf2006

快点挣钱