主题：如何对打印出来的周报中加上“已审核”水印？

甜版，这是插入图片的例子（在页眉插入的图片），还是不行

 测试了一下，代码这样写

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\监造周报.xls")
Dim fl As String = ProjectPath & "Reports\监造周报.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
'Sheet.Locked = True '禁止编辑
With Sheet.PrintSetting
    '页眉左边为日期,中间为时间,右边为表名
    .Header = "&L&D &C&T&G &R&F"
    ''在页脚右边打印页号和总页数
    .Footer = "&R第&P页,总&N页"
End With
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿

谢谢甜版，这样可以了，但是我在帮助里没有查到&G，这是指图片吗？，为何我修改 .Footer = "&R第&P页,总&N页"为  .Footer = "&R第&P页,&G,总&N页"却无法把页脚中的同样图片显示出来？

 回复23楼，首先，你要在excel模板那里给页脚插入了图片，才有对应的图片的。

 

 当然，你可以直接在excel模板设置好页眉页脚，而不需要用代码设置。

甜版，我已经在EXCEL模板的页眉页脚插入了图片，在不增加&G前，生成的报表是显示不出来图片的，在你修改代码后（增加&G）才能把页眉的图片打印出来，这在我传的例子中已经可以看出。现在我同样在页脚也插入了这个图片，可以不管增不增加&G 都打不出这个图片。

另外，我又测试了，如果不用代码，而用系统自己的报表生成，我点击报表生成菜单，连页眉的图片都打不出来。

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

点击浏览该文件:监造周报.xls

 打不出来，是你肯定用代码重新设置过了页眉页脚。如果不弄的话，是会保持原来的

甜版，你把我传的模板放在我的例子里，你看能把图片打印出来吗？

页脚代码改成这样就可以打印页脚图片了