- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]窗口打印 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=48553)
-- 发布时间：2014/3/31 17:07:00
-- [求助]窗口打印
求助 怎么在表中的打印列中打对勾，就直接打印窗口 打印 中的内容？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:实验12345.foxdb |
-- 发布时间：2014/3/31 17:13:00
--
声明一个全局变量 或者VAR变量 isp
在datacolchanged 事件if e.datacol.name="打印" then
if e.datarow("打印") then
Vars("isp")=true
forms("打印").show
end if
end if
在打印窗口的AlterLoad事件
If vars("isp") Then
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()
vars("isp")=False
End If
-- 发布时间：2014/3/31 17:16:00
--
AfterEdit事件：
if e.col.name = "打印列名称" then
if e.row("打印列") = true then
if forms("窗口名").Opened = false Then
forms("窗口名").Open（）
end if
Dim doc As PrintDoc = forms("窗口名").GernatePrintDoc()
doc.Print()
end if
end if
-- 发布时间：2014/3/31 17:39:00
--
太爽了 谢谢 Bin 谢谢 狐狸爸爸
-- 发布时间：2014/4/3 10:31:00
--
继续求助，上面的代码挪到窗口中怎么用？就是有两个窗口，一个是输入 一个是 票据打印，输入窗口中按一个按钮A，就直接打印 票据打印中的票据，A的代码怎么写。。 谢谢。。
-- 发布时间：2014/4/3 11:04:00
--
以下是引用北冰洋在2014-4-3 10:31:00的发言：
继续求助，上面的代码挪到窗口中怎么用？就是有两个窗口，一个是输入 一个是 票据打印，输入窗口中按一个按钮A，就直接打印 票据打印中的票据，A的代码怎么写。。 谢谢。。
继续求助，上面的代码挪到窗口中怎么用？就是有两个窗口，一个是输入 一个是 票据打印，输入窗口中按一个按钮A，就直接打印 票据打印中的票据，A的代码怎么写。。 谢谢。。
是说，选中几行，然后分别打印？
If forms("窗口名").Opened = False Then
forms("窗口名").Open()
End If
For Each r As Row In Tables("xxx").Rows
If r("打印") = True Then
Tables("xxx").Position = r.Index
Dim doc As PrintDoc = forms("窗口名").GernatePrintDoc()
doc.Print()
End If
Next
-- 发布时间：2014/4/3 11:42:00
--
不是，是图中圈住的 打印 按钮，按它，就直接打印右边的 窗口。 谢谢。。
此主题相关图片如下：打印1.jpg
-- 发布时间：2014/4/3 11:44:00
--
Dim doc As PrintDoc = forms("右边的窗口名").GernatePrintDoc()
doc.Print()
就这么简单
-- 发布时间：2014/4/3 11:56:00
--
谢谢大哥，虽然简单，但是我还没学会，我回努力学习的
，再次感谢