[求助]打印问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

打印的表格可以设置颜色吗如图所示？用于区分开每个用户~ 客服说数据太多看的会晕求大神指导下怎么弄
图片点击可在新窗口打开查看

此主题相关图片如下：4.jpg

是用模版实现还是？？

我现在是中间加个空格区分开感觉也行~ 变颜色感觉很麻烦！

现在问题我表格里面会员编号、装箱斤数、小计都是合并的~ 打印出来变成不是合并的了代码怎么调整？？

打印代码：

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

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)

n=n+1

If n>=7 Then

m=m+1

n=0

End If

'打开工作簿

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

但是这样的话我之前设置的打印完一个客户加一行空格就没用了跟我之前的打印效果是一样的~

代码是这样子的：

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

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)

n=n+1

If n>=7 Then

m=m+1

n=0

End If

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

既然已经合并区分了,也没必要隔一行了吧,就这样看起来都够直观了,不用浪费功夫了啊

主题：[求助]打印问题