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

[access报表]如何在报表中使用自定义尺寸的纸张

时 间:2004-11-11 00:00:00
作 者:朱亦文   ID:61  城市:岳阳
摘 要:本例讲述了,如何在ACCESS的报表中使用自定义纸张,及设置自定义纸张大小

正 文:

将下列代码粘贴到一个新模块中,并调用CheckCustomPage过程检查指定报表的自定义纸张。

 

Type str_DEVMODE
    RGB As String * 94
End Type

 

Type type_DEVMODE
    strDeviceName As String * 16
    intSpecVersion As Integer
    intDriverVersion As Integer
    intSize As Integer
    intDriverExtra As Integer
    lngFields As Long
    intOrientation As Integer
    intPaperSize As Integer
    intPaperLength As Integer
    intPaperWidth As Integer
    intScale As Integer
    intCopies As Integer
    intDefaultSource As Integer
    intPrintQuality As Integer
    intColor As Integer

intDuplex As Integer
    intResolution As Integer
    intTTOption As Integer
    intCollate As Integer
    strFormName As String * 16
    lngPad As Long
    lngBits As Long
    lngPW As Long
    lngPH As Long
    lngDFI As Long
    lngDFr As Long
End Type

Public Sub CheckCustomPage(ByVal rptName As String)
' 用    途:检查报表的自定义纸张
' 调用方法:Call CheckCustomPage(rptName)
' 参数说明:rptName: 为检查的报表名称
' 调用举例:设有名为"MyReport"的报表,
'           Call CheckCustomPage("MyReport")
'           当该报表使用的是自定义纸张时,则显示自定义纸张的大小,
'           并询问是否更改纸张的大小并进行设置;
'           当该报表使用的是标准纸张时,则询问是否使用自定义纸张,
'           如果选择“是”,则要求输入纸张的大小并进行设置。

    Dim DevString As str_DEVMODE
    Dim DM As type_DEVMODE
    Dim strDevModeExtra As String
    Dim rpt As Report
    Dim intResponse As Integer
    
    ' 在设计视图下打开报表
    DoCmd.OpenReport rptName, acDesign

&nb



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

常见问答:

技术分类:

相关资源:

专栏作家

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