excel vba

各位ching,小弟对vba好陌生，自己录制左一个巨集按钮去print label，但每次只可以print一个，点样加先可以做到每次print之前都可输入print out既数量?
Sub PrintLabel()'' PrintLabel Macro''

Range("A1:C3").Select
ActiveSheet.PageSetup.PrintArea = "$A$1C$3"
Application.ActivePrinter = "\\Citizen CLP-631Z on Ne22:"

ExecuteExcel4Macro _
"RINT(1,,,1,,,,,,,,2,""\\Citizen CLP-631Z on Ne22:"",,TRUE,,FALSE)
"End Sub

[ 本帖最后由 apao2000 於 2014-2-28 04:37 PM 编辑 ]

Say number of labels put into F6. change macro as follows. If you dont like F6, change to appropriate cell.


Sub PrintLabel()'' PrintLabel Macro''
dim cnt as long
dim i as long

cnt = range("F6").value

Range("A1:C3").Select
ActiveSheet.PageSetup.PrintArea = "$A$1C$3"
Application.ActivePrinter = "\\Citizen CLP-631Z on Ne22:"

for i = 1 to cnt
ExecuteExcel4Macro _
"RINT(1,,,1,,,,,,,,2,""\\Citizen CLP-631Z on Ne22:"",,TRUE,,FALSE)

next i
End Sub