[求助]piao据设计相关问题，15：40更新了有新问题，请老师看看！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我在项目中做的出入库单，没用关联表加EXCEL做，而是直接参考了piao据设计中实战演练一来做，请问老师，我多页打印时，能像EXCEL那样做出 “第X页，共Y页”的效果吗？

[此贴子已经被作者于2015/7/10 15:42:26编辑过]

可以加入页眉页脚，如

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Dim rx As New prt.RenderTable
rx.Cells(0,0).Text = Date.Today
rx.Cells(0,1).Text = "抗震救灾专题"
rx.Cells(0,2).Text = "第[PageNo]页,共[PageCount]页"
rx.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.Left
rx.Cols(1).Style.TextAlignHorz = prt.AlignHorzEnum.Center
rx.Cols(2).Style.TextAlignHorz = prt.AlignHorzEnum.right
rx.Style.Borders.Bottom = New prt.LineDef '设置底边框
rx.CellStyle.Spacing.Bottom = 0.5 '底端内容缩进0.5毫米
rx.Style.FontSize = 8 '字体大小为8磅
Doc.PageHeader = rx '作为页眉使用
doc.Preview() '预览

http://www.foxtable.com/help/topics/1197.htm

专业报表还没学过，暂时也不想研究，先照着改改算了，请问一下，上面的代码我加在什么地方，是加在窗口中的控件 “打印”按钮中吗？

是，打印按钮。

老师，页眉或页脚上的左中右三个区域的字体大小能分开设置吗？

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Dim rx As New prt.RenderTable
rx.Cells(0,0).Text = Date.Today
rx.cells(0,0).Style.Font = New Font("宋体",12,FontStyle.Bold Or FontStyle.Underline)
rx.Cells(0,1).Text = "抗震救灾专题"
rx.Cells(0,2).Text = "第[PageNo]页,共[PageCount]页"
rx.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.Left
rx.Cols(1).Style.TextAlignHorz = prt.AlignHorzEnum.Center
rx.Cols(2).Style.TextAlignHorz = prt.AlignHorzEnum.right
rx.Style.Borders.Bottom = New prt.LineDef '设置底边框
rx.CellStyle.Spacing.Bottom = 0.5 '底端内容缩进0.5毫米
rx.Style.FontSize = 8 '字体大小为8磅
Doc.PageHeader = rx '作为页眉使用
doc.Preview() '预览

老师，我现在遇到二个piao据设计问题

一是在窗口中的table表在窗口打开时字段标题是居中的，但一打印预览成了左对齐了

二是我设置的piao据是用连打纸哪种，宽度与高分别为241与139.4，我在窗口的页面设计中设置了这个值，但窗口的大小并没有变，这就导致我不能将table排版到合适宽度，处理这个问题的思路应该是什么？

谢谢！

1、用代码处理一下

Dim doc As PrintDoc = e.Form.GernatePrintDoc()

For Each c As object In Doc.Body.Children
    If c.Gettype.Name Like "*Table*" Then
        Dim t As prt.RenderTable = c
        t.Rows(0).Height = 30
        t.Rows(0).Style.BackColor = Color.Red
        t.Rows(0).Style.Font = New Font("宋体", 12, FontStyle.Bold) '设置字体
        For i As Integer = 0 To t.Cols.Count - 1
            t.Cells(0,i).Style.TextAlignHorz = prt.AlignHorzEnum.Center
        Next
    End If
Next

doc.Preview

你设置的是纸张宽度和高度。

如果要设置窗口的宽度和高度，就在窗口的属性里面设置窗口的宽高和控件的宽高。

基本上窗口打印搞成了，感谢老师的指导，但又有二个新问题了，请老师看看！

第一，当我选中窗口中的合计行时，点打印按钮就出错了，图如下：

此主题相关图片如下：qq截图1.jpg

此主题相关图片如下：qq截图2.jpg

以下是打印按钮的代码：

Dim doc As PrintDoc = e.Form.GernatePrintDoc()

Dim rx As New prt.RenderTable

rx.Cells(0,0).Text = "上海金属新材料有限公司"

rx.Cells(1,0).Text = "原料入库通知单"

rx.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '设置居中

rx.CellStyle.Spacing.Bottom = 0.5 '底端内容缩进0.5毫米

rx.Cells(0,0).Style.FontSize = 16 '设置字体大小

rx.Cells(1,0).Style.FontSize = 14 '设置字体大小

Doc.PageHeader = rx '作为页眉使用

Dim rx1 As New prt.RenderTable

rx1.Cells(0,0).Text = "制单:" & CurrentTable.Current("录入人")

rx1.Cells(0,1).Text = "制单时间:" & CurrentTable.Current("录入时间")

rx1.Cells(0,2).Text = "打印日期:" & Date.Today

rx1.Cells(1,0).Text = " "

rx1.Cells(2,0).Text = "一式四联: 【白色】财务【红色】统计"

rx1.Cells(2,1).Text = "【蓝色】营销【黄色】仓库 "

rx1.Cells(2,2).Text = "第[PageNo]页,共[PageCount]页"

rx1.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.Left

rx1.Cols(1).Style.TextAlignHorz = prt.AlignHorzEnum.Center

rx1.Cols(2).Style.TextAlignHorz = prt.AlignHorzEnum.right

rx1.CellStyle.Spacing.Bottom = 0.5 '底端内容缩进0.5毫米

rx1.Style.FontSize = 8 '字体大小为8磅

Doc.PageFooter = rx1 '作为页脚使用

doc.Preview() '预览

第二，我窗口中所看到的汇总行会自动合并相关单元格，可一打印后，就不合并了，导致排版出了问题，如下图：

此主题相关图片如下：qq截图3.jpg

[此贴子已经被作者于2015/7/10 15:30:13编辑过]

主题：[求助]piao据设计相关问题，15：40更新了 有新问题，请老师看看！

主题：[求助]piao据设计相关问题，15：40更新了有新问题，请老师看看！