时间：2006-11-24 23:43 来源：网络 作者：佚名 阅读：次

Dim up, dn, le, ri, si, liAs Single , co As string'定义边距及页面函数
Sub ymszmk(strName As String) '页面设置模块On Error GoTo Err_ymszmkIf Nz(DCount("*", "REPORTLIP", "REPORT='" & strName & "'")) = 0 ThenMsgBox "没有此报表的页面设置,请设置", , "提示"Exit SubEnd Ifup = DLookup("REUP", "REPORTLIP", "REPORT='" & strName & "'")dn = DLookup("REDOWN", "REPORTLIP", "REPORT='" & strName & "'")le = DLookup("RELEFT", "REPORTLIP", "REPORT='" & strName & "'")ri = DLookup("RERIGHT", "REPORTLIP", "REPORT='" & strName & "'")li = DLookup("RECOL", "REPORTLIP", "REPORT='" & strName & "'")si = DLookup("RESIZE", "REPORTLIP", "REPORT='" & strName & "'")co = IIf(DLookup("RECOURES", "REPORTLIP", "REPORT='" & strName & "'") Like "横向", acPRORLandscape, acPRORPortrait)Dim prt As Printer
    Set prt = Application.Printers(0)
prt.TopMargin = up * 56.7     '上prt.BottomMargin = dn * 56.7  '下prt.LeftMargin = le * 56.7    '左prt.RightMargin = ri * 56.7   '右prt.ItemsAcross = li          '列prt.PaperSize = si            '大小prt.Orientation = co
DoCmd.OpenReport strName, acPreviewReports(strName).Printer = prt
Exit_Err_ymszmk:    Exit Sub
Err_ymszmk:    If Err = 5 Then    MsgBox "没有打印机，请先安装打印机！", , "提示"    Exit Sub    End If    MsgBox Err.Description    Resume Exit_Err_ymszmkEnd Sub

(责任编辑：admin)

上一篇：初识VBA：第一课 常用的几个基本概念
下一篇：代码设置ACCESS对象颜色属性方法解析

• ·关于 Partition 函数在分组查询中的应
• ·Access算术运算符的含义和说明表
• ·mid函数的另类用法
• ·access制作程序运行进度框
• ·Function与Sub的异同（函数调用）
• ·Access判断某个数值是否为某个数据类型
• ·select case后面语句块的值的四种格式
• ·vba条件语句的两种表示方法
• ·Access几种数据类型初始化的值
• ·Access vba null与＂＂空字符串的区别
• ·access vba 数据类型表
• ·Access变量的命名规则
• ·Access中EXIT Sub与End Sub的区别
• ·Access vba中参数前关键字ByRef和ByVal
• ·Access列表框快速全选的技巧【最快】
• ·vba函数的数据类型强制转换