Dim doc As PrintDoc = e.Form.GernatePrintDoc(e.Form.controls("Panel1"))
'Dim doc As PrintDoc = e.Form.GernatePrintDoc()
For Each c As Object In doc.body.children
If typeof c Is prt.RenderTable Then
'c.cols(1).Width = 80 & "mm"
'c.Rows(c.Rows.Count-1).Height = 10 & "mm" '设置首行高度为13mm
c.Rows(0).Height = 10 & "mm"
c.Rows(1).Height = 8 & "mm"
c.Rows(2).Height = 8 & "mm"
c.Rows(3).Height = 8 & "mm"
c.Rows(4).Height = 8 & "mm"
c.Rows(5).Height = 8 & "mm"
c.Rows(6).Height = 8 & "mm"
For n As Integer = 1 To 5
c.cells(0,n).Style.TextAlignHorz = prt.AlignHorzEnum.Center '第一行内容水平居中
c.cols(n).Style.TextAlignHorz = prt.AlignHorzEnum.Center
c.rows(n-1).Style.Font = New Font("宋体", 10,FontStyle.bold) '设置文本对象的字体
c.Rows(n-1).Style.GridLines.All = new Prt.LineDef(0,Color.Black)
Next
c.Rows(5).Style.GridLines.All = new Prt.LineDef(0,Color.Black)
c.Rows(6).Style.GridLines.All = new Prt.LineDef(0,Color.Black)
'c.cols(1).Style.GridLines.All = New prt.LineDef
End If
Next
doc.PageSetting.Width = 210 '纸张宽度为210毫米
doc.PageSetting.Height = 210 '纸张高度为120毫米
Doc.PageSetting.LeftMargin = 1 '设置左边距
Doc.PageSetting.RightMargin = 1 '设置右边距
doc.AutoRotate = False '禁止自动旋转打印内容
doc.PageSetting.Landscape = False '横向打印
doc.Preview()
'Doc.print(False,False)
加好友 
发短信
Post By：2018/11/16 17:58:00 [显示全部帖子]
此主题相关图片如下：qq截图20181116175609.png
