在设计报表的时候,往往要求界面整齐划一,美观.如果仅仅用控件的属性对话框来设计的话,就会太费力.还要
不断计算调整.如果用语句来设计报表的布局的话,就会快很多.
新建立一个窗体,放置几个按钮控件,写入如下的代码.
报表中的控件的位置尺寸以及标签的位置和尺寸就会全部到位.
当然这只是例子,请不要完全复制粘贴代码~~~!@!~~
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