以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]打印的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=49643)
--  作者：ciker
--  发布时间：2014/4/22 8:17:00
--  [求助]打印的问题
票据打印中，是不是只能当前窗口才能打印？

能不能把下面代码中的 e.form 改为 forms("窗口名")？想在某窗口中点击按钮，直接进入另一窗口的打印预览状态。 试了一下，不行。

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()
--  作者：Bin
--  发布时间：2014/4/22 8:24:00
--  
可以的,前提是该窗口打开了.
if forms("窗口名").Opened then
Dim doc As PrintDoc = forms("窗口名").GernatePrintDoc()
doc.Preview()
else
  messagebox.show("该窗口未打开")
end if


或者

forms("窗口名").ShOW
Dim doc As PrintDoc = forms("窗口名").GernatePrintDoc()
doc.Preview()
--  作者：ciker
--  发布时间：2014/4/22 9:17:00
--  
谢谢！

刚试验了一下代码：

forms("窗口名").ShOW
Dim doc As PrintDoc = forms("窗口名").GernatePrintDoc()
doc.Preview()

窗口能打开，但不能直接进入打印预览状态
--  作者：Bin
--  发布时间：2014/4/22 9:21:00
--  
说明你这个是模式窗口,SHOW之后不会执行后面的代码.

你可以放到窗口AlterLoad事件

或者直接用方法1算了
--  作者：ciker
--  发布时间：2014/4/22 9:37:00
--  
谢谢！