- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 窗口打印问题--搞了几天了[已解决] (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=150988)
-- 发布时间：2020/6/12 9:56:00
-- 窗口打印问题--搞了几天了[已解决]
设计了一个窗口，里面都是绑定表的字段，现在想打印出来，可是一打印就只能打印出一半求解！
此主题相关图片如下：222.png
此主题相关图片如下：333.png
此主题相关图片如下：444.png
打印的代码：
以下内容为程序代码:
1 Dim doc As PrintDoc = e.Form.GernatePrint
Doc()
2 Doc.Preview
1 Dim doc As PrintDoc = e.Form.GernatePrint
Doc()
2 Doc.Preview
[此贴子已经被作者于2020/6/15 10:58:21编辑过]
-- 发布时间：2020/6/12 10:04:00
--
预览按钮：
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Doc.Preview
打印按钮
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Doc.print
分开2个按钮，不要在预览里点击打印
另外到打印机服务属性里添加一个对应的纸张，并设置为这个打印机的默认纸张
-- 发布时间：2020/6/12 10:29:00
--
实在不行，保存为PDF，再打印PDF.
-- 发布时间：2020/6/12 13:22:00
--
240 * 140纸张 打印 保存成PDF打印 还是得在PDF设置过才管用 不然打印还是有问题 预览的效果 跟打印出来的不一致了 这个有些麻烦
请问 不借助pdf 怎么打印 不换页 正常？
[此贴子已经被作者于2020/6/12 13:23:16编辑过]
-- 发布时间：2020/6/15 10:30:00
--
谢谢您的解答，现在用直接打印正常了，一点就打印一张，可是我想打多张的话，咋办。打100张，点一百下，手都要断了
-- 发布时间：2020/6/15 10:41:00
--
Dim Val As Integer =
1
If InputValue(Val, "打印份数", "请输入要打印的份数:") Then
for i as Integer = 1 to Val
\'打印代码
next
End If
-- 发布时间：2020/6/15 10:49:00
--
如果是绑定表格的，写个循环调用即可。
for i as integer = 0 to tables("A").rows.count - 1
tables("A").position = i
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Doc.print
next