Foxtable(狐表)用户栏目专家坐堂 → [求助]piao据设计相关问题,15:40更新了 有新问题,请老师看看!


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

主题:[求助]piao据设计相关问题,15:40更新了 有新问题,请老师看看!

帅哥哟,离线,有人找我吗?
huangfanzi
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1105 积分:8967 威望:0 精华:0 注册:2014/10/25 11:24:00
[求助]piao据设计相关问题,15:40更新了 有新问题,请老师看看!  发帖心情 Post By:2015/7/9 19:38:00 [显示全部帖子]

我在项目中做的出入库单,没用关联表加EXCEL做,而是直接参考了piao据设计中实战演练一来做,请问老师,我多页打印时,能像EXCEL那样做出 “第X页,共Y页”的效果吗?
[此贴子已经被作者于2015/7/10 15:42:26编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
huangfanzi
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1105 积分:8967 威望:0 精华:0 注册:2014/10/25 11:24:00
  发帖心情 Post By:2015/7/9 19:45:00 [显示全部帖子]

专业报表还没学过,暂时也不想研究,先照着改改算了,请问一下,上面的代码我加在什么地方,是加在 窗口中的控件 “打印”按钮中吗? 

 回到顶部
帅哥哟,离线,有人找我吗?
huangfanzi
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1105 积分:8967 威望:0 精华:0 注册:2014/10/25 11:24:00
  发帖心情 Post By:2015/7/10 8:48:00 [显示全部帖子]

老师,页眉或页脚上的左中右三个区域的字体大小能分开设置吗?

 回到顶部
帅哥哟,离线,有人找我吗?
huangfanzi
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1105 积分:8967 威望:0 精华:0 注册:2014/10/25 11:24:00
  发帖心情 Post By:2015/7/10 10:06:00 [显示全部帖子]

老师,我现在遇到二个piao据设计问题
一是在窗口中的table表在窗口打开时字段标题是居中的,但一打印预览成了左对齐了
二是我设置的piao据是用连打纸哪种,宽度与高分别为241与139.4,我在窗口的页面设计中设置了这个值,但窗口的大小并没有变,这就导致我不能将table排版到合适宽度,处理这个问题的思路应该是什么?
谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
huangfanzi
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1105 积分:8967 威望:0 精华:0 注册:2014/10/25 11:24:00
  发帖心情 Post By:2015/7/10 15:30:00 [显示全部帖子]

基本上窗口打印搞成了,感谢老师的指导,但又有二个新问题了,请老师看看!
第一,当我选中窗口中的合计行时,点打印按钮就出错了,图如下:

图片点击可在新窗口打开查看此主题相关图片如下:qq截图1.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:qq截图2.jpg
图片点击可在新窗口打开查看
以下是打印按钮的代码:
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Dim rx As New prt.RenderTable
rx.Cells(0,0).Text = "上海金属新材料有限公司"
rx.Cells(1,0).Text = "原料入库通知单"
rx.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '设置居中
rx.CellStyle.Spacing.Bottom = 0.5 '底端内容缩进0.5毫米
rx.Cells(0,0).Style.FontSize = 16 '设置字体大小
rx.Cells(1,0).Style.FontSize = 14 '设置字体大小
Doc.PageHeader = rx '作为页眉使用

Dim rx1 As New prt.RenderTable
rx1.Cells(0,0).Text = "制单:" &  CurrentTable.Current("录入人")
rx1.Cells(0,1).Text = "制单时间:" &  CurrentTable.Current("录入时间")
rx1.Cells(0,2).Text = "打印日期:" & Date.Today
rx1.Cells(1,0).Text = " "
rx1.Cells(2,0).Text = "一式四联: 【白色】 财务             【红色】 统计"
rx1.Cells(2,1).Text = "【蓝色】 营销             【黄色】 仓库 "
rx1.Cells(2,2).Text = "第[PageNo]页,共[PageCount]页"
rx1.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.Left
rx1.Cols(1).Style.TextAlignHorz = prt.AlignHorzEnum.Center
rx1.Cols(2).Style.TextAlignHorz = prt.AlignHorzEnum.right
rx1.CellStyle.Spacing.Bottom = 0.5 '底端内容缩进0.5毫米
rx1.Style.FontSize = 8 '字体大小为8磅
Doc.PageFooter = rx1 '作为页脚使用

doc.Preview() '预览

第二,我窗口中所看到的汇总行会自动合并相关单元格,可一打印后,就不合并了,导致排版出了问题,如下图:

图片点击可在新窗口打开查看此主题相关图片如下:qq截图3.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2015/7/10 15:30:13编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
huangfanzi
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1105 积分:8967 威望:0 精华:0 注册:2014/10/25 11:24:00
  发帖心情 Post By:2015/7/10 16:06:00 [显示全部帖子]

第一个问题解决了,我改用了maintable
第二个问题没解决,现在是空行合并了,table表我用是副本

图片点击可在新窗口打开查看此主题相关图片如下:qq截图4.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2015/7/10 16:09:39编辑过]

 回到顶部