Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口打印问题


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

主题：窗口打印问题
帅哥哟，离线，有人找我吗？
有点甜
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/9/23 20:11:00 [显示全部帖子]

 设置窗口的打印和直接打印表，没有关联的。

 这句代码是直接打印表的。
Tables("排产窗_Table1").DirectPrint(True,True) '打印预览

 。如果要打印容器/窗口，参考下面的代码。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/9/23 20:51:00 [显示全部帖子]

 可以对得到的doc对象进行进一步处理的，参考专业报表。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/9/24 22:39:00 [显示全部帖子]

 上一个例子吧，很简单的。

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/9/25 21:54:00 [显示全部帖子]

 简单的方法，代码不变，同样是打印容器，设置table控件的属性 最小最大打印行数 ，就行了。

Dim Result As DialogResult
Result = MessageBox.Show("是否确定打印?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then

e.Form.Page.LeftMargin = 5 '设置左边距
e.Form.Page.RightMargin = 5 '设置右边距
e.Form.Page.TopMargin = 5 '设置上边距
e.Form.Page.BottomMargin = 5 '设置下边距


Dim grp As WinForm.GroupBox = e.Form.Controls("GroupBox1")
Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp)
doc.Preview()
Else
    MessageBox.Show("取消打印!")
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/9/26 22:45:00 [显示全部帖子]

 呃……出现两页空白，应该是你设置的最大最小行数错了，都设置成10看看。

 至于双行间色，可以用代码控制某一行的颜色，获取doc对象，对doc进行一下处理就行。是专业报表里面的内容。

 楼主，先将就下用吧。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询