- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]打印问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53633)
-- 发布时间：2014/7/12 9:12:00
-- [求助]打印问题
打印的表格可以设置颜色吗 如图所示？用于区分开每个用户~ 客服说数据太多看的会晕 求大神指导下 怎么弄
此主题相关图片如下：4.jpg
-- 发布时间：2014/7/12 9:13:00
--
是用模版实现 还是？？
-- 发布时间：2014/7/12 9:14:00
--
参考这里http://www.foxtable.com/help/topics/1148.htm
-- 发布时间：2014/7/12 9:57:00
-- [求助]打印问题
我现在是中间加个空格区分开 感觉也行~ 变颜色感觉很麻烦！
现在问题 我表格里面会员编号、装箱斤数、小计都是合并的~ 打印出来变成不是合并的了 代码怎么调整？？
打印代码：
Tables("装配表").cols("日期").Visible=False
Tables("装配表").cols("装箱参考").Visible=False
Dim m As Integer=1
Dim n As Integer=0
Dim dt As Table = Tables("装配表")
Dim Book As New XLS.Book \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
Dim Style As Xls.Style = Book.NewStyle \'新建一个样式
Style.BackColor = Color.LightGreen \'样式的背景颜色设为红色
For c As Integer = 1 To 5 \'添加列标题
Sheet(0, c).Value = dt.Cols(c).Name
Next
For r As Integer = 0 To dt.Rows.Count - 1 \'填入数据
For c As Integer = 1 To 5
Sheet(r +m, c).Value = dt.rows(r)(c)
Next
n=n+1
If n>=7 Then
m=m+1
n=0
End If
Next
\'打开工作簿
Book.Save("c:\\reports\\test.xls")
Dim Proc As New Process
Proc.File = "c:\\reports\\test.xls"
Proc.Start()
Tables("装配表").cols("装箱参考").Visible=True
怎么设置合并呢
此主题相关图片如下：11.png
此主题相关图片如下：11.png-- 发布时间：2014/7/12 10:03:00
--
http://www.foxtable.com/help/topics/0559.htm
-- 发布时间：2014/7/12 10:27:00
-- [求助]有问题~
但是这样的话 我之前设置的 打印完一个客户加一行空格就没用了 跟我之前的打印效果是一样的~
代码是这样子的：
Tables("装配表").cols("日期").Visible=False
Tables("装配表").cols("装箱参考").Visible=False
Dim m As Integer=1
Dim n As Integer=0
Dim dt As Table = Tables("装配表")
此主题相关图片如下：22.png
此主题相关图片如下：22.pngDim Book As New XLS.Book \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
Dim Style As Xls.Style = Book.NewStyle \'新建一个样式
Style.BackColor = Color.LightGreen \'样式的背景颜色设为红色
For c As Integer = 1 To 5 \'添加列标题
Sheet(0, c).Value = dt.Cols(c).Name
Next
For r As Integer = 0 To dt.Rows.Count - 1 \'填入数据
For c As Integer = 1 To 5
Sheet(r +m, c).Value = dt.rows(r)(c)
Next
n=n+1
If n>=7 Then
m=m+1
n=0
End If
Next
Dim tb As Table = Tables("装配表")
Dim flg As New SaveExcelFlags
flg.MergedRanges = True
tb.SaveExcel(ProjectPath & "test.xls","装配表",flg)
Dim Proc As New Process
Proc.File = ProjectPath & "test.xls"
Proc.Start()
Tables("装配表").cols("装箱参考").Visible=True
-- 发布时间：2014/7/12 10:29:00
--
既然已经合并区分了,也没必要隔一行了吧,就这样看起来都够直观了,不用浪费功夫了啊
-- 发布时间：2014/7/12 10:35:00
-- 客户要求~有点犯2
我跟他说下吧~