我在列印功能上的程式是這樣寫的
CommonDialog1.ShowPrinter
Dim I
For I = Commondialog1.Copies To 1
Printer.Print Text1.text
Printer.NewPage
Next I
Printer.EndDoc
可是不管我在列印份數設多少份
我印出來始終都只有一份
我應該如何寫，才能使列印份數的功能正常使用
CommonDialog1.ShowPrinter
Dim I
For I = Commondialog1.Copies To 1
Printer.Print Text1.text
Printer.NewPage
Next I
Printer.EndDoc
可是不管我在列印份數設多少份
我印出來始終都只有一份
我應該如何寫，才能使列印份數的功能正常使用
文章標籤
全站熱搜
為...為何是 For I = Commondialog1.Copies To 1 ???/ 應該是 For I = 1 To Commondialog1.Copies 吧??
你可以寫得出這種這種功能的程式就表示你的programming技巧已經有一定的水準，怎麼可能會在For迴圈指令中犯這種錯誤呢？如果不是無心之過就要好好重新打底喔！不然以後你寫程式會很辛苦的。
Sorry 少寫了Step -1 應該是要寫 For I = Commondialog1.copies to 1 Step -1 但最主要的是在Commondialog1.ShowPrinter的表單裡 當我改變了列印份數的值後，並沒有傳回到Commondialog1.Copies 所以我怎麼印都只能印一份 可否再次解答
在我的電腦上無此問題，請確定你所使用的VB有更新到最近的service pack。另外，何不直接設定 Printer.Copies 屬性呢，這樣就不必使用 For 迴圈了。