Access双十一活动
网站公告
·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:AccessoftChu    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-报表

[access报表]用程序语句精确设计报表

时 间:2011-06-29 00:00:00
作 者:Aaron   ID:20267  城市:闵行
摘 要:报表 精确设计
正 文:

在设计报表的时候,往往要求界面整齐划一,美观.如果仅仅用控件的属性对话框来设计的话,就会太费力.还要

不断计算调整.如果用语句来设计报表的布局的话,就会快很多.

新建立一个窗体,放置几个按钮控件,写入如下的代码.

报表中的控件的位置尺寸以及标签的位置和尺寸就会全部到位.

当然这只是例子,请不要完全复制粘贴代码~~~!@!~~

    DoCmd.OpenReport "rptCode_PR", acViewDesign
    Reports("rptCode_PR").msyw.Left = Reports("rptCode_PR").wlid.Left + Reports("rptCode_PR").wlid.Width
    Reports("rptCode_PR").sl.Left = Reports("rptCode_PR").msyw.Left + Reports("rptCode_PR").msyw.Width
    Reports("rptCode_PR").dhrq.Left = Reports("rptCode_PR").sl.Left + Reports("rptCode_PR").sl.Width
    Reports("rptCode_PR").cbid.Left = Reports("rptCode_PR").dhrq.Left + Reports("rptCode_PR").dhrq.Width
    Reports("rptCode_PR").yjcb.Left = Reports("rptCode_PR").cbid.Left + Reports("rptCode_PR").cbid.Width
    Reports("rptCode_PR").bz.Left = Reports("rptCode_PR").yjcb.Left + Reports("rptCode_PR").yjcb.Width


    Reports("rptCode_PR").wlid_Label.Left = Reports("rptCode_PR").wlid.Left
    Reports("rptCode_PR").wlid_Label.Width = Reports("rptCode_PR").wlid.Width


    Reports("rptCode_PR").msyw_Label.Left = Reports("rptCode_PR").msyw.Left
    Reports("rptCode_PR").msyw_Label.Width = Reports("rptCode_PR").msyw.Width

    Reports("rptCode_PR").sl_Label.Left = Reports("rptCode_PR").sl.Left
    Reports("rptCode_PR").sl_Label.Width = Reports("rptCode_PR").sl.Width

    Reports("rptCode_PR").dhrq_Label.Left = Reports("rptCode_PR").dhrq.Left
    Reports("rptCode_PR").dhrq_Label.Width = Reports("rptCode_PR").dhrq.Width

    Reports("rptCode_PR").cbid_Label.Left = Reports("rptCode_PR").cbid.Left
    Reports("rptCode_PR").cbid_Label.Width = Reports("rptCode_PR").cbid.Width

    Reports("rptCode_PR").yjcb_Label.Left = Reports("rptCode_PR").yjcb.Left
    Reports("rptCode_PR").yjcb_Label.Width = Reports("rptCode_PR").yjcb.Width

    Reports("rptCode_PR").bz_Label.Left = Reports("rptCode_PR").bz.Left
    Reports("rptCode_PR").bz_Label.Width = Reports("rptCode_PR").bz.Width



Access软件网官方交流QQ群 (群号:864245409)       access源码网店

最新评论 查看更多评论(1)

2011/6/28 23:23:13曹光耀
 先抄下来学习

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

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