以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码打印表页眉页脚问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74515)

--  作者:实话实说
--  发布时间:2015/9/13 9:51:00
--  代码打印表页眉页脚问题
以下是直接打印表的代码,页眉和页脚默认在左边,如何设置在中或右边呢

With Tables("生产计划").PrintInfo    
    .PageHeader = "鸿力电缆有限公司生产计划"  \'页眉
    .PageFooter = "第[PageNo]页,共[PageCount]页"  \'页脚
    .PaperKind = 9 \'纸张类型设为自定义  \'A4
    .LeftMargin = 15  \'左边距
    .RightMargin = 5  \'右边距
    .TopMargin = 10  \'上边距
    .BottomMargin = 10  \'上边距
End With


--  作者:lsy
--  发布时间:2015/9/13 10:00:00
--  
With Tables("生产计划").PrintInfo    
    .PageHeader = "鸿力电缆有限公司生产计划||"  \'左
    ‘.PageHeader = "|鸿力电缆有限公司生产计划|"  \'中
    ’.PageHeader = "||鸿力电缆有限公司生产计划"  \'右
    .PageFooter = "第[PageNo]页,共[PageCount]页"  \'页脚
    .PaperKind = 9 \'纸张类型设为自定义  \'A4
    .LeftMargin = 15  \'左边距
    .RightMargin = 5  \'右边距
    .TopMargin = 10  \'上边距
    .BottomMargin = 10  \'上边距
End With

--  作者:实话实说
--  发布时间:2015/9/13 10:10:00
--  
谢谢,帮助里没有.
--  作者:大红袍
--  发布时间:2015/9/13 10:18:00
--  

设置好以后,弹出来看一下就行

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=72808&skin=0