请教自动打印报表

我要飞

设想一次打印全部的样品报告，以下是我未成功的设想，请各位高手指点，谢谢！！！
样品号为combo控件，打印按钮click事件如下：
for i=0 to Me.样品号.ListCount -1
Docmd.RunMacro "print"  //以“样品号”为打印索引字
Me.样品号.SetFocus
Me.样品号.Listindex = Me.样品号.Listindex + 1
Me.Refresh
Next
现在打印结果为打印首号报告n次, n = 样品号.ListCount
应该如何写？
错在哪里？ 期盼高手的指点！！！！！！！！！！！！！！
谢谢！！！

[此贴子已经被作者于2002-12-6 8:57:45编辑过]

我要飞

今天再测试这段代码，系统却无误的完成了（莫名其妙？）。经过多次测试证明没有问题，有兴趣的朋友可以试试。

谢谢各位的关注,  谢谢！！！