设为首页
|
收藏本站
|
繁体中文
|
手机版
整站搜索
资讯
技巧
源码
行业
设备(待改)
资源
信息库(待改)
产品
作品(待改)
活动
培训(视频)
平台(待改)
二级(待改)
互动(作废)
交易
Access培训
-
Access开发平台
-
Access行业开发
首页
资讯
技巧
源码
行业
资源
活动
关于
技巧
ACCESS数据库
启动/设置/选项/背景
修复/压缩
安全/加密/解密
快捷键
版本升级/其它等
数据表
命名方式/设计规范
表设计
查询
Sql语言基础
选择查询
更新查询
删除查询
追加查询
生成表查询
交叉表查询
SQL特定查询
查询参数
查询综合应用
界面/窗体/控件
标签
文本框
命令按钮
组合框/列表框
选项组/复选框/选项按钮
选项卡
子窗体
窗体本身/综合应用
其它
报表打印
报表设计
高级报表
模块/函数/VBA/API/系统
VBA基础
内置函数
调试/跟踪/Debug
模块/类模块
API/COM/系统相关
字符数字日期
网络通信游戏
加密解密安全
文件处理
经典算法
宏/菜单/工具栏/功能区
宏/脚本
菜单/工具栏
功能区/Ribbon
图表/图形/图像/多媒体
图表
图形/图像
音频
视频/动画
DAO/链接表/ADO/ADP
DAO/链接表/ODBC
ADO/RDO
ADP
ActiveX/第三方控件/插件
Treeview树控件
ListView列表控件
Toolbar工具栏控件
微软其它控件
Dbi-Tech
CodeJock
Grid++Report
FastReport
ComponentOne
加载项/插件/Addin
OFFICE集成/导入导出/交互
Excel导入导出/交互
Word导入导出/交互
PPT交互
Outlook控制/邮件
Text文本文件/INI/CSV
PDF/SWF/XML格式
CAD格式
Sharepoint/其它Office
SqlServer/其它数据库
表
视图
存储过程/触发器
函数
用户/权限/安全
调试/维护
SqlServer其它/综合
发布/打包/文档/帮助
开发版/运行时
打包/发布/部署
开发文档/帮助制作
Access完整行业系统
采购管理系统
销售管理系统
仓库管理系统
人力资源管理HRM
CRM管理系统
MRP/ERP管理系统
BRP/流程优化
其它管理系统
心得/经验/绝招
其它/杂项
Excel技巧
Excel应用与操作
Excel开发编程
Word技巧
Word应用与操作
Word开发编程
Outlook技巧
Outlook应用与操作
Outlook开发编程
热门文章
修改Access表结构
为什么老出现aaa函数未定..
ODBC标量函数(1)(英..
在ACCESS2000中如..
Access或VB VBA..
关于 Partition ..
最新文章
Access或VB VBA..
关于VBA的0、""(空字..
Access导出函数Out..
Access日期与日期区间..
RecordSource ..
Access子窗体事件控制..
联系方式
Access交流网(免费Access交流)
QQ:18449932
网 址:
www.access-cn.com
当前位置:
首页
>
技巧
>
模块/函数/VBA/API/系统
>
VBA基础
VBA基础
页面设置模块代码分享
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
发布人:佚名-网络
分享到:
点击次数:
更新时间:2006-11-24 23:43:39 【
打印此页
】 【
关闭
】
上一条:
让标题栏文字置中
下一条:
快速读取 TextBox 第 N 行的资料
相关文章
•
Access或VB VBA判断数组的值是否为空的几种方法
•
关于VBA的0、""(空字符串)、Null、Empty、与 Nothing 的区别
•
Access导出函数OutPutto解释
•
Access日期与日期区间的筛选
•
RecordSource SourceObject ControlSource属性的区别
•
Access子窗体事件控制父窗体
•
事件change和AfterUpdate的区别
•
代码修改完善方法示例(初学者必读)
热门文章
[2005-02-04]
获取字符串中特定字符的个数
[2003-12-29]
在ACCESS2000中如何用VBA代码打开一个带有密码的数据库
[2009-02-09]
在VB应用程序中单击按钮打开word文档
[2009-05-08]
VBA语句集400句(三部分)
[2013-07-22]
Access如何将二进制UTF8转成字符串
[2009-05-21]
判断窗体是否打开的两种方法
热门产品