计算机二级考试Access辅导：页面设置模块代码分享

' Dimup，dn，le，ri，si，lias single，co as string '定义页边距和页面函数
subyms ZMK(strName as string)'页面设置模块on error _ ymszmkifnz(dcount(" * "，" report lip "，" report ='" & strname & " ')= 0然后msgbox "此报表没有页面设置，请进行设置"，" prompt " exit subend ifup = DLookup(" reup "，" report lip "，" REPORT = ' " & strName & ") " REPORT='" & strName & " ' ")ri = d lookup(" re right "，" REPORTLIP "，" REPORT = ' " & strName & " ' ")Li = d lookup(" RECOL "，" REPORTLIP "，" REPORT = ' " & strName & " ' ")si = d lookup(" RESIZE "，" REPORTLIP "，" REPORT = ' " & strName & " ' ")co = IIf(d lookup(" RECOURES "，" REPORTLIP "，" REPORT = ' " & strName & " ')像" horizontal "，acPRORLandscape bottom margin = dn * 57 ' PRT。左边距= le * 56.7 '左PRT。右侧边距= RI * 56.7 '右侧PRT。项跨=李列。papersize = Si ' size PRT。Orientation = co
Docmd。打开报表strname，acprreviewreports (strname)。printer = PRT
exit _ err _ ymszmk:exit sub
err _ ymszmk:iferr = 5然后msgbox "没有打印机，请先安装打印机！"如果msgbox出错，“提示”退出子端。描述简历出口_错误_ ymszmkend子