Foxtable(狐表)用户栏目专家坐堂 → [求助]设计好的excel模板,打印会多出一张白字


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

主题:[求助]设计好的excel模板,打印会多出一张白字

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


加好友 发短信
等级:幼狐 帖子:130 积分:1255 威望:0 精华:0 注册:2017/4/14 21:52:00
[求助]设计好的excel模板,打印会多出一张白字  发帖心情 Post By:2017/6/30 14:30:00 [只看该作者]

各位狐友,棒忙看下,谢谢
图片点击可在新窗口打开查看此主题相关图片如下:360截图20170630142330680.jpg
图片点击可在新窗口打开查看在打印设计好的模板,内容只有一页能正常打印,但是后面会紧跟一百空白纸出来,是不是设计模板的时候,超出了A4纸的大小?

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


加好友 发短信
等级:超级版主 帖子:106067 积分:539428 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/6/30 15:49:00 [只看该作者]

模板发上来测试一下。

可以把<END>之外的行和列,选上几十行/列,然后整行/列删除测试

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


加好友 发短信
等级:幼狐 帖子:130 积分:1255 威望:0 精华:0 注册:2017/4/14 21:52:00
  发帖心情 Post By:2017/6/30 16:11:00 [只看该作者]

麻烦老师了
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:金卡档案表.xls


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


加好友 发短信
等级:幼狐 帖子:130 积分:1255 威望:0 精华:0 注册:2017/4/14 21:52:00
  发帖心情 Post By:2017/6/30 16:17:00 [只看该作者]

Dim Book As New XLS.Book(ProjectPath & "Attachments\金卡档案表.xls") Dim fl As String = ProjectPath & "Reports\金卡档案表.xls" Book.Build() '生成细节区 Book.Save(fl) '保存工作簿 Dim Proc As New Process '打开工作簿 Proc.File = fl Proc.Verb = "Print" '指定动作 Proc.Start() 这是打印的代码

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


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

参考 2楼的做法

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:金卡档案表.xls


 回到顶部