Foxtable(狐表)用户栏目专家坐堂 → 如何对打印出来的周报中加上“已审核”水印?


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

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

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/26 11:13:00 [显示全部帖子]

 不会做,就上传具体例子

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/27 11:18:00 [显示全部帖子]

 你想说什么?是说生成excel的时候,水印正常,但是保存成pdf的时候,就消失?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/27 14:04:00 [显示全部帖子]

 那你在excel里面实现了这个效果了吗?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/27 15:00:00 [显示全部帖子]

 你在excel的打印预览那里也不出现图片?不可能吧?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/27 15:13:00 [显示全部帖子]

以下是引用audience68在2014-11-27 15:05:00的发言:
打印按钮的代码就是我前面上传的

 

例子啊,代码别人怎么运行啊。

 

只要你报表生成了图片,就不存在打印的时候不显示的问题


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/28 9:36:00 [显示全部帖子]

1、你生成的excel报表,根本就没有设置水印啊

 

2、你的新模板或者就模板生成的都没有没有多行的内容啊;

 

3、不理解你说的什么效果不好的情况。

 

--------------------------------------

 

所做的例子,请尽量简单,说明要达到什么要求就好,不要什么都弄上来,而且不能体现


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/28 10:01:00 [显示全部帖子]

  水印,必须是插入图片,而不能是文本框啊。

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/28 10:40:00 [显示全部帖子]

 测试了一下,代码这样写

 

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) '保存工作簿


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/28 11:36:00 [显示全部帖子]

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

 

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


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/28 11:56:00 [显示全部帖子]

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

 回到顶部
总数 11 1 2 下一页