1、AFterOpenProject事件:
vars.Add("VARY",Gettype(Long),0) '新增一个AVR变量
vars.Add("VARM",Gettype(Long),0) '新增一个AVR变量
2、打印按钮:
Vars("VARY")=e.Form.Controls("年").value '存入控件“年”的值
Vars("VARM")=e.Form.Controls("月").value '存入控件“月”的值
'原来的打印代码
3、在模板中使用Var变量
<"年:" & [!VARY]>
<"月:" & [!VARM]>