如何用变量指定打印的份数Copies？

iamatig

如何指定打印的份数？

我需要用变量指定份数，

Sub 自动打印()
    Dim doc As String, Printer As String, i As Integer

    doc = "E:\Documents\My Pictures\本期\001.doc"
    Printer = "i550"
    i = 10
    Documents.Open (doc)
    Call PrintDoc
End Sub

////////////////////////////////

Function PrintDoc()
    
    ActivePrinter = Printer
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=i, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
End Function

Copies:=i,这里提示运行时错误13，类型不匹配。。。

KQ0Ii4gM.rar (5.09 KB, 下载次数: 9)

2007-2-5 19:47 上传

点击文件名下载附件
如何指定打印的份数？Copies如何设置？

[此贴子已经被作者于2007-2-5 20:13:45编辑过]

iamatig

Sub 自动打印()
    Dim mydoc As String, Printer As String, i As Variant
    mydoc = "E:\Documents\My Pictures\本期\001.doc"
    Documents.Open (mydoc)
   
    Printer = "i550"
    i = 2
   
    ActiveDocument.PrintOut Copies:=i
End Sub

OK问题解决了，原来是要用
    ActiveDocument.PrintOut Copies:=i