[原创]在子窗体中预览报表

zhuyiwen

作者：朱亦文 原创

　　在很多的时候，需要在窗体的指定位置预览，可是 Access 并没有提供这样功能，Access 报表不能作子窗体的形式放在窗体中。那么，如何解决这一问题呢？借助 Windows API 我们可以实现这一功能。

游客，如果您要查看本帖隐藏内容请回复

来自群组: ACC应用开发心得交流

阿罗

好文章，收下收下。

大頭

http://www.erpbus.net/access/topic.asp?topic_id=9842&forum_id=84&CurPage=3

zhuyiwen

以下是引用大頭在2003-12-28 23:49:02的发言：
http://www.erpbus.net/access/topic.asp?topic_id=9842&forum_id=84&CurPage=3

使用的快照控件，呵呵

[em26]

大頭

使用Snapshot View Control 物件即可實現，完整功能畫面

CREATE 一個acxSna Snapshot View Control 物件
Private Sub cmdRep3_Click()
    sPrint "ReportName"      ‘報表名稱
End Sub

公用模組
Option Compare Database
Option Explicit
Private strRepFil As String, strSavePath As String
Private ctlActiveXHolder As Control
Sub sPrint_Init()
    'Initialize
    strSavePath = "C:\"
    Set ctlActiveXHolder = Forms![frmReportViewer].acxSna
End Sub

Sub sPrint(strReport As String, Optional booNoPreview As Boolean = True, Optional strFilter As String = "")
    sPrint_Init
    strRepFil = strFilter
     DoCmd.OutputTo acOutputReport, strReport, "Snapshot Format", strSavePath & strReport & ".snp"
     With ctlActiveXHolder
        .SnapshotPath = "C:\" & strReport & ".snp"
    End With
End Sub

可以參考這些指令
繼續優化

[此贴子已经被作者于2003-12-29 23:00:56编辑过]

huanghai

非常棒

zhuyiwen

代码下载: http://www.office-cn.net/UploadFiles/20031229194711700.rar

大頭

重新整理貼子
snapsot 物件
可以翻閱紀錄
放大縮小

zhuyiwen

《在子窗体中预览报表》适用于: Access 2002 以上版本 (Access 2000 不支持弹出式报表)

wellcome_gx

精彩，早两年的好文章真多