• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

ASP.NET控制Word/EXCEL转换成PDF格式

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

至于Word转换的可以参照http://topic.csdn.net/u/20090331/08/e6e7f6f5-95d8-4d92-8b76-67e23129bf6c.html

下面主要说说对Excel进行转换的(如果是对Excel进行转换帖子中的.js脚本有问题)

下面是对Excel进行转换的脚本: 

var files = WScript.Arguments;

var fso = new ActiveXObject("Scripting.FileSystemObject");

var word = new ActiveXObject("Excel.Application");

var PDF = new ActiveXObject("PDFDistiller.PDFDistiller.1"); 

word.Workbooks.add(); 

word.ActivePrinter="MS Publisher Color Printer 在 LPT1:";

var docfile = files(0); 

var psfile = files(1) + fso.GetBaseName(files(0)) + ".ps"; 

var pdffile = files(1) + fso.GetBaseName(files(0)) + ".pdf"; 

var logfile = files(1) + fso.GetBaseName(files(0)) + ".log"; 


var doc = word.Workbooks.Open(docfile); 

//Excel文件转成PS文件; 

var xlsheet=doc.Worksheets(1);

xlsheet.PrintOut(1, 2, 1,false,"MS Publisher Color Printer 在 LPT1:",true,true,psfile);//这个是打印机关于得到Excel默认打印机的VBA可以在网上搜,有很多

try{ 


doc.Close(0); 


//PS文件转成PDF文件; 

PDF.FileToPDF(psfile,pdffile,""); 


fso.GetFile(psfile).Delete();//删除PS脚本文件 

fso.GetFile(logfile).Delete();//删除转换的日志文件 


word.Quit(); 

WScript.Echo("isuccess");//成功 

WScript.Quit(0); 

catch(x) 

word.Quit(); 

WScript.Echo("isfail");//失败 

WScript.Quit(0); 


用这种方法进行转换出来了会有一点不足,还需要改进 


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
ASP.NETStateService服务发布时间:2022-07-10
下一篇:
Asp.net中Word文件转换成HTML发布时间:2022-07-10
热门推荐
热门话题
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap