以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]设计好的excel模板,打印会多出一张白字  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103095)

--  作者:183966998
--  发布时间:2017/6/30 14:30:00
--  [求助]设计好的excel模板,打印会多出一张白字
各位狐友,棒忙看下,谢谢
图片点击可在新窗口打开查看此主题相关图片如下:360截图20170630142330680.jpg
图片点击可在新窗口打开查看在打印设计好的模板,内容只有一页能正常打印,但是后面会紧跟一百空白纸出来,是不是设计模板的时候,超出了A4纸的大小?
--  作者:有点蓝
--  发布时间:2017/6/30 15:49:00
--  
模板发上来测试一下。

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

--  作者:183966998
--  发布时间:2017/6/30 16:11:00
--  
麻烦老师了
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:金卡档案表.xls


--  作者:183966998
--  发布时间: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() 这是打印的代码
--  作者:有点甜
--  发布时间:2017/6/30 16:27:00
--  

参考 2楼的做法

 

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