请问如果动态控制打印Word的份数. ( 积分: 50 )

在我的系统里从数据库里取出内容生成一个Word..然后上面有一个"打印"Menu.
问题是这样的.根据用户之前输入的要打印份数,比如"2".而当按"打印"按钮的时候自动打印
2份.而且也不弹出任何Word打印设置对话框;如果用户输入3.则打印3份......
以下是打印按钮事件:
procedure TFormPrint.MenuPrintClick(Sender: TObject);
Var
Copies:OLEVariant;
iCopies,I:Integer;
begin
if (ToolButton_WordPrint.Caption = '制证') Or (ToolButton_WordPrint.Caption =
'打印') then
begin
if frmReport <> nil then
iCopies:=StrToInt(frmReport.iIsPrintCount)
else
iCopies:=1;
end
else
iCopies:=1;
Copies:=iCopies;
WordDocument.PrintOutOld(EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, Copies, EmptyParam,
EmptyParam);
end;
运行以上事件..报&quot;参数值已超出可接受的范围&quot;错...

怎么没人回答呢?是嫌给的分太少了吗?