[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