主题：打印凭证时的表头如何居中

 

3楼、9楼，都绝对没有问题。请认真测试。出问题的截图发上来看看。

请问老师：1、如何设置只有外表格线，无内格线；2、不用预览，直接打印

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) '设置文本对象的字体
        Next
c.Style.GridLines.Horz = new Prt.LineDef(0, Color.white)
c.Style.GridLines.Vert = new Prt.LineDef(0, Color.white)
    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

老师：如何设置打印机？

http://www.foxtable.com/webhelp/scr/1588.htm

 

老师：请问如果另一界面调用数据表时，该数据表自动隐藏，如何做才不令该隐藏呢？

 

参考

 

http://www.foxtable.com/webhelp/scr/1906.htm

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2(1).table

上述例子中就不能隐藏，请问老师应如何修改，给我修改下代码，最好发给我代码，多谢了！