Foxtable(狐表)用户栏目专家坐堂 → [求助]关于EXCEL加入打印背景图片


  共有2145人关注过本帖树形打印复制链接

主题:[求助]关于EXCEL加入打印背景图片

帅哥哟,离线,有人找我吗?
工匠
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:550 积分:5021 威望:0 精华:0 注册:2017/4/20 11:08:00
[求助]关于EXCEL加入打印背景图片  发帖心情 Post By:2018/11/25 15:33:00 [只看该作者]

老师好:请教个问题,就是在EXCEL报表模板里,通过页眉加入了1张图片,作为底层打印(铺满页面的)。如果直接预览可以显示打印该图片,但是通过系统报表打印(有数据对应),那张加入的图片没有带出来了,请问要如何从报表打印也能带出来在文字底层。谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/25 16:36:00 [只看该作者]

你在你的excel模板设置好页眉,插入图片。然后执行代码

 

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

 

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
工匠
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:550 积分:5021 威望:0 精华:0 注册:2017/4/20 11:08:00
  发帖心情 Post By:2018/11/26 13:04:00 [只看该作者]

谢谢有点甜老师,周末还在值班,万分感谢!

 回到顶部