以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]打印问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=53633)
--  作者：good131577
--  发布时间：2014/7/12 9:12:00
--  [求助]打印问题
打印的表格可以设置颜色吗 如图所示？用于区分开每个用户~ 客服说数据太多看的会晕  求大神指导下 怎么弄
图片点击可在新窗口打开查看此主题相关图片如下：4.jpg
图片点击可在新窗口打开查看
--  作者：good131577
--  发布时间：2014/7/12 9:13:00
--  
是用模版实现 还是？？
--  作者：Bin
--  发布时间：2014/7/12 9:14:00
--  
参考这里http://www.foxtable.com/help/topics/1148.htm
--  作者：good131577
--  发布时间：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
图片点击可在新窗口打开查看
--  作者：Bin
--  发布时间：2014/7/12 10:03:00
--  
http://www.foxtable.com/help/topics/0559.htm
--  作者：good131577
--  发布时间：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
图片点击可在新窗口打开查看
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


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
--  作者：Bin
--  发布时间：2014/7/12 10:29:00
--  
既然已经合并区分了,也没必要隔一行了吧,就这样看起来都够直观了,不用浪费功夫了啊
--  作者：good131577
--  发布时间：2014/7/12 10:35:00
--  客户要求~有点犯2
我跟他说下吧~