有關列印份數的問題(編號：150)

我在列印功能上的程式是這樣寫的
CommonDialog1.ShowPrinter
Dim I
For I = Commondialog1.Copies To 1
Printer.Print Text1.text
　　　Printer.NewPage
Next I
Printer.EndDoc
可是不管我在列印份數設多少份
我印出來始終都只有一份
我應該如何寫，才能使列印份數的功能正常使用