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


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

主题：关于打印问题
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110571 积分：562745 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/25 8:37:00 [显示全部帖子]

这种使用底层用法设置样式的，foxtable的打印无法识别。

 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110571 积分：562745 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/25 8:47:00 [显示全部帖子]

这种修改过的合计行无法导出。只能是导出后自己另外使用代码设置合计行样式和数据：http://www.foxtable.com/webhelp/topics/1146.htm

 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110571 积分：562745 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/25 9:09:00 [显示全部帖子]

把【开发指南-execl报表-类型介绍】这章内容仔细看一遍，学会理解代码再做。先看懂代码是做什么的

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110571 积分：562745 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/25 17:44:00 [显示全部帖子]

属于导出功能，直接导出窗口数据。样式需要重新设计

 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110571 积分：562745 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/26 10:17:00 [显示全部帖子]

Style1.Format =Format ("0.00")''格式化样式的字体颜色设为红色
For r As Integer = 0 To dt.Rows.Count  '填入数据
    Sheet(r + 1,dt.Cols("支出金额").Index).Style = Style '设置折扣单元格的样式
    Sheet(r + 1,dt.Cols("收入金额").Index).Style = Style1 '设置折扣单元格的样式
Next
Sheet(dt.Rows.Count,0).Style = Style 
Book.Save("C:\WINDOWS\Web\Wallpaper\test.xls")
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110571 积分：562745 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/26 11:16:00 [显示全部帖子]

合计行自己添加

Sheet(dt.Rows.Count,0).value = “记录数” & dt.Rows.Count
Sheet(dt.Rows.Count,dt.Cols("支出金额").Index).value = dt.compute("sum(支出金额)")

For r As Integer = 0 To dt.Rows.Count  '填入数据
    Sheet(r + 1,dt.Cols("支出金额").Index).Style = Style '设置折扣单元格的样式
    Sheet(r + 1,dt.Cols("收入金额").Index).Style = Style1 '设置折扣单元格的样式
Next
Sheet(dt.Rows.Count,0).Style = Style 
 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110571 积分：562745 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/26 13:34:00 [显示全部帖子]

完整代码

 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110571 积分：562745 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/26 14:08:00 [显示全部帖子]

什么东西还是这样？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110571 积分：562745 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/26 14:17:00 [显示全部帖子]

dim i as integer = 0
For each c as col in dt.Cols
if c.visible then i+=1
next
For cc As Integer = 0 To i-1 '填入数据
Sheet(dt.Rows.Count+1,cc).Style = Style2
Sheet(0,cc).Style = Style3
Next
 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110571 积分：562745 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/26 15:17:00 [显示全部帖子]

完整代码

 回到顶部
总数 16 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06641 秒, 5 次数据查询