Private Sub 命令测试_Click()
DoCmd.SetWarnings False
'定义控件及控件长度信息并赋值
Dim col1 As Control
Dim myleft As Long
Dim mytop As Long
Dim mywith As Long
Dim myheight As Long
myleft = 0
myheight = 400
mywith = 1250
mytop = 1500
'设计模式打开报表
DoCmd.OpenReport "报表测试", acViewDesign
'创建报表内容
CtrlCount = Reports!报表测试.Controls.Count '删除控件
For it = 1 To ctrlcount
DeleteReportControl "报表测试", Reports!报表测试.Controls(0).Name
Next
Set col1 = CreateReportControl("报表测试", acTextBox, acDetail, , "姓名", myleft, 0, mywith, myheight)
[此贴子已经被作者于2005-5-6 22:09:00编辑过]
|