Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 根据选择窗口，批量套打


  共有2461人关注过本帖树形打印复制链接

主题：[求助] 根据选择窗口，批量套打
帅哥哟，离线，有人找我吗？
gengwvi
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：64 积分：939 威望：0 精华：0 注册：2015/10/20 15:44:00 		[求助] 根据选择窗口，批量套打  发帖心情 Post By：2016/11/19 15:01:00 [只看该作者]

各位老师，好

我准备设计一个窗口如图，来完成套打 ，套打模板已设计好了，想实现一下功能，望能帮助。

1、使用单项选择，来选择需要套打窗口。

2、选着单条打印，可根据单选打印出对应piao据。

3.选择指定范围，批量打印可实现对应窗口套打

 

主窗口：
图片点击可在新窗口打开查看此主题相关图片如下：捕获.png
图片点击可在新窗口打开查看

套打窗口1：
图片点击可在新窗口打开查看此主题相关图片如下：捕获2.png
图片点击可在新窗口打开查看
套打窗口2：
图片点击可在新窗口打开查看此主题相关图片如下：捕获3.png
图片点击可在新窗口打开查看

 
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/11/19 15:16:00 [只看该作者]

1、类似

If e.Form.Controls("RadioButton1").Checked Then
    Forms("窗口1").open
Else
    Forms("窗口2").open
End If

2、类似
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()

3、参考：
http://foxtable.com/bbs/dispbbs.asp?BoardID=2&replyID=418575&ID=62023&skin=1

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=65482

可以不用分成多个窗口，直接在第一个窗口加一个页面组合，在页面设置打印内容
 回到顶部
帅哥哟，离线，有人找我吗？
gengwvi
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：64 积分：939 威望：0 精华：0 注册：2015/10/20 15:44:00 		[求助] 根据选择窗口，批量套打  发帖心情 Post By：2016/11/26 14:56:00 [只看该作者]

 老师，好

我自己尝试里一下，还是没弄好，上传项目希望老师给改一下，谢谢。

 

信封打印系统 单选窗口对应的套打窗口

单选窗口：打印对账单 =  开窗信封账单窗口

              打印地址标签 = 地址贴80X40窗口

              打印DL信封  = 信封打印窗口

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:完整版设计.rar

[此贴子已经被作者于2016/11/26 14:56:40编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
gengwvi
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：64 积分：939 威望：0 精华：0 注册：2015/10/20 15:44:00 		回复：（有点蓝）1、类似If e.Form.Controls("RadioBu...  发帖心情 Post By：2016/11/26 15:04:00 [只看该作者]

 老师，好

我自己尝试里一下，还是没弄好，上传项目希望老师给改一下，谢谢。

 

信封打印系统 单选窗口对应的套打窗口

单选窗口：打印对账单 =  开窗信封账单窗口

              打印地址标签 = 地址贴80X40窗口

              打印DL信封  = 信封打印窗口

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:完整版设计.rar
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/11/26 15:15:00 [只看该作者]

If e.Form.Controls("RadioButton1").Checked Then
    Forms("开窗信封账单窗口").open
    Forms("开窗信封账单窗口").Controls("Button3").PerformClick()
ElseIf e.Form.Controls("RadioButton2").Checked Then
    Forms("地址贴80X40窗口").open
    Forms("地址贴80X40窗口").Controls("打印预览").PerformClick()
ElseIf e.Form.Controls("RadioButton3").Checked Then
    Forms("信封打印窗口").open
    Forms("信封打印窗口").Controls("Button1").PerformClick()
End If
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:完整版设计.foxdb
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 7 次数据查询