Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-报表

当报表中含有代码时这段代码保存不了该报表的设计格式

时 间:2017-11-03 14:53:01
作 者:乔峰   ID:7384  城市:无锡
摘 要:报表打印设置的注意点
正 文:

"通用打印机设置"中的一段 代码, 用于保存设计的报表格式.

Private Sub cmdApplyChanges_Click()
    If Nz(Me!txtObjectName) <> "" Then
        If CurrentProject.AllReports(Me!txtObjectName).IsLoaded Then
        Else
            DoCmd.OpenReport Me!txtObjectName, acViewDesign, , , acHidden
        End If
       
        Dim prt As Printer
       
        Reports(Me!txtObjectName).Printer = Application.Printers(Me!cmbPrinter.Value)
        Set prt = Reports(Me!txtObjectName).Printer         
        With prt 

            .PaperSize = Me!cmbPaperSize
            .Orientation = Me!opgOrientation
            .BottomMargin = Val(Nz(Me.txtBottom, 0)) * 56.7
            .TopMargin = Val(Nz(Me.txtTop, 0)) * 56.7
            .LeftMargin = Val(Nz(Me.txtLeft, 0)) * 56.7
            .RightMargin = Val(Nz(Me.txtRight, 0)) * 56.7
        End With
        DoCmd.Save acReport, Me!txtObjectName   ' 要添加这句才能保存.
        DoCmd.Close acReport, Me!txtObjectName, acSaveNo
    End If

End Sub

 

 

' 当报表中含有代码时这段代码保存不了该报表的设计格式.   测试了很多遍..

 

本人只是探究一下到底是什么原因不能保存,结果发现与报表中内含代码有关. 

网上有把报表的格式用数据表保存下来的方法挺好的 ,调用时直接从表中提取数据,预览打印即可.



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助