rt.Rows(6).Style.TextAlignHorz = prt.AlignHorzEnum.Center
rt.Rows(6).Style.TextAlignVert = prt.AlignVertEnum.Center
rt.Cells(1,1).SpanCols = 4
rt.Cells(1,6).SpanCols = 2
rt.cells(1,0).text = "地 址"
rt.cells(1,1).text = ""
rt.cells(1,5).text = "单号"
rt.cells(1,6).text = ""
rt.Cells(2,1).SpanCols = 4
rt.Cells(2,6).SpanCols = 2
rt.cells(2,0).text = "手 机"
rt.cells(2,1).text = ""
rt.cells(2,5).text = "组名"
rt.cells(2,6).text = ""
rt.Cells(3,1).SpanCols = 4
rt.Cells(3,6).SpanCols = 2
rt.cells(3,0).text = "收货单位"
rt.cells(3,1).text = ""
rt.cells(3,5).text = "款号"
rt.cells(3,6).text = ""
rt.Cells(4,1).SpanCols = 4
rt.Cells(4,6).SpanCols = 2
rt.cells(4,0).text = "收货地址"
rt.cells(4,1).text = ""
rt.cells(4,5).text = "颜色"
rt.cells(4,6).text = ""
rt.Cells(5,1).SpanCols = 4
rt.Cells(5,6).SpanCols = 2
rt.cells(5,5).text = "日期"
rt.cells(5,6).text = ""
rt.Cells(6,0).text = "尺码"
rt.Cells(6,1).text = "件数"
rt.Cells(6,2).text = "尺码"
rt.Cells(6,3).text = "件数"
rt.Cells(6,4).text = "尺码"
rt.Cells(6,5).text = "件数"
rt.Cells(6,6).text = "尺码"
rt.Cells(6,7).text = "件数"
Dim tb As Table = Tables("送货主表.送货明细")
Dim xl As Integer = Tb.Rows.count
For c As Integer = 0 To 3
For r As Integer = 7 To 21
If c*15+r-7 >= xl Then
Exit For
End If
'rt.cells(c*15+j-7,c*2).text = tb.rows(c*15+j-7)("款号")
'rt.cells(c*15+j-7,c*2+1).text = tb.rows(c*15+j-7)("送货数量")
rt.cells(r,C * 2).text = tb.rows(c*15+r-7)("款号")
rt.cells(r,c * 2 + 1).text = tb.rows(C*15+r-7)("送货数量")
Next
Next
rt.Rows(23).Style.Borders.All = New prt.LineDef("0mm", Color.white) '去掉第23行表格线
Dim i As Integer
For i = 0 To 7
rt.cells(23,i).Style.Borders.All = New prt.LineDef("0mm", Color.white)
Next
rt.Rows(23).Style.Borders.Top = New prt.Linedef '补回23行顶线
rt.Rows(24).Style.Borders.All = New prt.LineDef("0mm", Color.white) '去掉第24行表格线
For i = 0 To 7
rt.cells(24,i).Style.Borders.All = New prt.LineDef("0mm", Color.white)
'rt.cells(23,1).Style.Borders.All = New prt.LineDef("0mm", Color.white)
Next
''rt.Rows(23).Style.Borders.vert = New prt.LineDef("0mm", Color.white) '去掉第一行表格线
'
'rt.Rows(24).Style.Borders.All = New prt.LineDef("0mm", Color.white) '去掉第24行表格线
'rt.Rows(0).Style.Borders.Bottom = New prt.Linedef '增加第一行底线
'
rt.Rows(22).Height = 20 '标题行高
rt.cells(22,0).text = "备注"
rt.Cells(22,1).SpanCols = 7
Dim ss As Integer
ss = tb.Compute("sum(送货数量)")
MessageBox.show(ss)
rt.cells(22,1).text = "合计 " & ss
rt.cells(22,1).Style.TextAlignHorz = prt.AlignHorzEnum.Left
rt.cells(22,1).Style.TextAlignVert = prt.AlignVertEnum.Top
rt.cells(23,0).text = "收货单位"
rt.cells(24,0).text = "及经手人"
rt.Cells(23,1).SpanCols = 3
rt.cells(23,1).SpanRows = 2
rt.cells(23,1).text = "(盖章)"
rt.cells(23,4).text = "送货单位"
rt.cells(24,4).text = "及经手人"
rt.Cells(23,5).SpanCols = 3
rt.cells(23,5).SpanRows = 2
rt.cells(23,5).text = "(盖章)"
'rt.Rows(23).Style.Borders.All = New prt.LineDef("0mm", Color.white) '去掉第23行表格线
''rt.Rows(23).Style.Borders.vert = New prt.LineDef("0mm", Color.white) '去掉第一行表格线
'
'rt.Rows(24).Style.Borders.All = New prt.LineDef("0mm", Color.white) '去掉第24行表格线
''rt.Rows(0).Style.Borders.Bottom = New prt.Linedef '增加第一行底线
doc.Preview() '预览