- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]窗口piao据连续打印的问题请教 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=138065)
-- 发布时间：2019/7/22 11:36:00
-- [求助]窗口piao据连续打印的问题请教
各位老师，我想用窗口功能，实现票据连续打印出来，这个应该怎么设置，请指导一下，谢谢
此主题相关图片如下：截屏图片.jpg
（说明一下：这份表格是一个文员的前任前任、再前任，她自己用excel宏套打格式设计出来，前几天换了一台喷墨机后，版面格式就跟着变动了一下，我无论怎么设置更改表格，都会被默认之前打印机的版面（之前打印机的型号已停产，市面找不同款的），所以我只有foxtable票据界面重新设计一下，但不想用导出excel表格进行版面套打，只想在窗口里打印出来）
我引用代码后，它只是一张张地显示空白的
For i As Integer = 0 to Tables("质检出机").Rows.Count
Tables("质检出机").Position = i
Dim doc As PrintDoc = Forms("出机").GernatePrintDoc()
doc.Preview()
Next
-- 发布时间：2019/7/22 13:47:00
--
测试没有问题。把打印机改为默认打印机，或者使用代码设置一下：http://www.foxtable.com/webhelp/topics/1603.htm
-- 发布时间：2019/7/22 13:52:00
--
1、打开窗口再测试
2、将doc.Preview()改为doc.Print()
-- 发布时间：2019/7/22 14:21:00
--
改为doc.Print()，就是不会弹出预览窗口，连续地打印出来了，而且会默认把最后一条（EG３１５）连续打两次出来的
[此贴子已经被作者于2019/7/22 14:22:48编辑过]
-- 发布时间：2019/7/22 14:43:00
--
For i As Integer = 0 to Tables("质检出机").Rows.Count - 1
-- 发布时间：2019/7/22 15:02:00
--
打了四张空白纸出来~
-- 发布时间：2019/7/22 15:29:00
--
打印驱动，或者打印机本身的原因吧。另外有没有设置好纸张大小：
-- 发布时间：2019/7/22 16:01:00
--
如果是空白，一定是窗口没有打开。
你可以将代码设置在窗口的打印按钮中，不要在命令窗口测试，避免老是犯这种低级错误。
-- 发布时间：2019/7/22 16:06:00
--
以下是引用有点蓝在2019/7/22 15:29:00的发言：
打印驱动，或者打印机本身的原因吧。另外有没有设置好纸张大小：
此主题相关图片如下：aaafd.jpg
此主题相关图片如下：from.jpg
打印驱动，或者打印机本身的原因吧。另外有没有设置好纸张大小：
蓝老师，我找到原因了，但是在页面设置，我只要把它调成A4格式的话，哪么能正常打印，但把它设置成自定义纸张后，如下图
此主题相关图片如下：aaafd.jpg就是打印空白了，请指导一下，
另外这是窗口事件我找不到呀...
此主题相关图片如下：from.jpg-- 发布时间：2019/7/22 16:08:00
--
到打印机服务属性里添加同样规格的纸张，然后设置为默认纸张。
需要什么代码直接从帮助里复制即可