主题：窗口打印问题--搞了几天了[已解决]

Dim Val As Integer = 1
If InputValue(Val, "打印份数", "请输入要打印的份数:") Then

for i as Integer = 1 to Val

'打印代码

next
End If