以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口打印添加页眉和页脚  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114012)
--  作者：lk15502
--  发布时间：2018/1/26 15:32:00
--  窗口打印添加页眉和页脚
老师，窗口打印下部有一个表，有可能超过一页A4纸怎么添加页眉页脚；打印按钮的代码如下：
e.Form.Controls("Label2").text = Date.Today
For Each c As Col In Tables(e.Form.Name & "_table1").cols
    If Tables(e.Form.Name & "_table1").FindRow(c.name & " is not null") < 0 Then
        c.visible = False
    End If
Next

Tables(e.Form.Name & "_table1").AutoSizeRows
e.Form.Controls("Table1").MaxRows = e.Form.Controls("最大行数").value
Dim doc As PrintDoc = e.Form.gernateprintdoc() \'定义一个报表
\'doc.PageSetting.Landscape = True \'横向打印
doc.Preview() \'预览
--  作者：有点甜
--  发布时间：2018/1/26 15:42:00
--  

在红色地方加入页眉页脚

 

Dim doc As PrintDoc = e.Form.gernateprintdoc() \'定义一个报表
\'doc.PageSetting.Landscape = True \'横向打印
doc.Preview() \'预览