Dim Doc As new PrintDoc
Dim rx As prt.RenderText
Dim rt As prt.RenderTable
'rx = new prt.RenderText
'rx.text = "资产负债表"
'rx.Style.FontBold = True '字体加粗
'rx.Style.FontSize = 16 '大体大小为16磅
'rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
'rx.Style.Spacing.Bottom = 3 '和下面的对象(表格)距离3毫米
'rx.Style.TextAngle = -90
'doc.Body.Children.Add(rx) '加入到报表中
rt = new prt.RenderTable
rt.Style.GridLines.All = New prt.LineDef
rt.Cols.Count = 22
rt.rows.Count = 10
rt.Width = 150 '表宽为150毫米
rt.Height = 220 '表高为150毫米
rt.Cells(0,21).Spanrows = 10
rt.cols(21).Style.GridLines.All = New prt.LineDef("0mm", Color.Red)
rt.cols(20).Style.GridLines.All = New prt.LineDef("0mm", Color.Red)
rt.cols(19).Style.GridLines.top = New prt.LineDef
'rt.cols(20).Style.Borders.left = New prt.LineDef("0mm", Color.Red)
'rt.cols(19).Style.GridLines.Top = New prt.LineDef
Dim nms() As String = {"资产","流动资产","货币资金","应收款项"}
rt.Cells(0,21).text = "资产负债表"
rt.Cells(0,19).text = "资产"
rt.Cells(0,18).text = "流动资产:"
rt.Cells(0,17).text = "货币资金"
rt.Cells(0,16).text = "应收款项"
For n As Integer = 0 To 9
rt.Cells(n,n).text = 10 * n
Next
Doc.Body.Children.Add(rt)
rt.Style.TextAngle = -90
'doc.PageSetting.Landscape = True '横向打印
Doc.Preview
黄色部分把第22、21列框线都去掉,橙色部分为20列右边的框线加上,可是怎么换参数都不行,该怎么修改呀?把top 换成Bottom:底边框
Left: 左边框
Right: 右边框
Top: 上边框
Horz: 水平网格线
Vert: 垂直网格线