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

此主题相关图片如下：444.png

预览按钮：

实在不行，保存为PDF，再打印PDF.

240 * 140纸张  打印 保存成PDF打印  还是得在PDF设置过才管用 不然打印还是有问题  预览的效果 跟打印出来的不一致了  这个有些麻烦

   请问 不借助pdf 怎么打印  不换页    正常？

谢谢您的解答，现在用直接打印正常了，一点就打印一张，可是我想打多张的话，咋办。打100张，点一百下，手都要断了

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

for i as Integer = 1 to Val

'打印代码

next
End If

如果是绑定表格的，写个循环调用即可。