以文本方式查看主题

-  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=94906)
--  作者：szsmall
--  发布时间：2017/1/4 23:36:00
--  窗口piao据打印，主窗口设置一个按钮，打印出来是空白
试着在案例上做一个主窗口，上面放一个打印按钮，代码如下。打印出来都是空白的

Dim doc As PrintDoc = Forms("支票").GernatePrintDoc()
doc.Preview()



图片点击可在新窗口打开查看此主题相关图片如下：票据打印 空白 1.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：票据打印 空白 2.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:票据打印.table
--  作者：y2287958
--  发布时间：2017/1/4 23:48:00
--  
If Forms("支票").Opened = False
    Forms("支票").Open(-1000,-1000)
End If
Dim doc As PrintDoc = Forms("支票").GernatePrintDoc()
doc.Preview()
--  作者：有点色
--  发布时间：2017/1/5 9:48:00
--  
If Forms("支票").Opened = False
    Forms("支票").Open(-1000,-1000)
End If
Dim doc As PrintDoc = Forms("支票").GernatePrintDoc()
doc.Preview()
Forms("支票").close
--  作者：szsmall
--  发布时间：2017/1/5 10:59:00
--  
Forms("支票").Open(-1000,-1000) ， 这个是什么意思，是为了不打开“支票”窗口吗？

我试过下面代码，会先弹出“支票”窗口
Forms("支票").Open
Dim doc As PrintDoc = Forms("支票").GernatePrintDoc()
doc.Preview() 
Forms("支票").Close
[此贴子已经被作者于2017/1/5 11:02:17编辑过]
--  作者：有点色
--  发布时间：2017/1/5 11:05:00
--  
回复4楼，是为了在一个你看不见的地方打开窗口。
--  作者：szsmall
--  发布时间：2017/1/5 12:31:00
--  
但打开窗口，打印时会先卡在那一会。有办法，先一些ERP系统那样，一按就直接打印吗？
--  作者：有点色
--  发布时间：2017/1/5 14:15:00
--  
以下是引用szsmall在2017/1/5 12:31:00的发言：
但打开窗口，打印时会先卡在那一会。有办法，先一些ERP系统那样，一按就直接打印吗？

 

那你就先把窗口打开，让窗口一直打开呗，这样可能不会卡顿。
--  作者：szsmall
--  发布时间：2017/1/6 23:05:00
--  
怎样让窗口一直打开？对日常操作速度会有影响吗
--  作者：有点蓝
--  发布时间：2017/1/7 9:03:00
--  
不关闭就会一直打开的。数据不多的话一般不会有什么影响