以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  excel报表指定打印机直接打印，不进入excel  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=27461)
--  作者：gslxzy
--  发布时间：2013/1/1 20:28:00
--  excel报表指定打印机直接打印，不进入excel

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.Start()

 

 

上面代码中如何不进入EXCEL直接发送到指定打印机直接打印啊
--  作者：sunsenfeng
--  发布时间：2013/1/1 20:30:00
--  

Dim Book As New XLS.Book(ProjectPath & "Attachments\\订单.xls")
Dim file As String = ProjectPath & "Reports\\订单.xls"
Book.Build() \'生成细节区
Book.Save(file) \'保存工作簿


Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(file)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
With Ws.PageSetup
    .PaperSize = MSExcel.XlPaperSize.xlPaperA4   \'纸张大小
    .CenterHorizontally = True   \'页面水平居中
    .CenterVertically = True \'页面垂直居中
    .Zoom = False \'以下设置将缩印在一页内
    .FitToPagesWide = 1  \'按照1页的宽度打印
    .FitToPagesTall = 1  \'按照1页的高度打印
End With
App.Visible = True
Ws.PrintPreview
App.Visible=False
wb.save
wb.close
App.Quit
--  作者：sunsenfeng
--  发布时间：2013/1/1 20:31:00
--  

Dim Book As New XLS.Book(ProjectPath & "Attachments\\订单.xls")
Dim file As String = ProjectPath & "Reports\\订单.xls"
Book.Build() \'生成细节区
Book.Save(file) \'保存工作簿


Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(file)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
With Ws.PageSetup
    .PaperSize = MSExcel.XlPaperSize.xlPaperA4   \'纸张大小
    .CenterHorizontally = True   \'页面水平居中
    .CenterVertically = True \'页面垂直居中
    .Zoom = False \'以下设置将缩印在一页内
    .FitToPagesWide = 1  \'按照1页的宽度打印
    .FitToPagesTall = 1  \'按照1页的高度打印
End With
\'App.Visible = True
Ws.PrintOut
wb.save
wb.close
App.Quit
--  作者：sunsenfeng
--  发布时间：2013/1/1 20:32:00
--  

前一个是打印预览

后一个是打印

 
--  作者：ahbzczy
--  发布时间：2013/1/1 20:36: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()
--  作者：sunsenfeng
--  发布时间：2013/1/3 11:27:00
--  
只要定义了Process,那么Start()时候就会打开Excel
--  作者：gslxzy
--  发布时间：2013/1/4 12:13:00
--  
出现一个奇怪的现象，用上面的代码在一台电脑上打印时没有问题，而在另台电脑上打印时，出现MSExcel未定义类型，是什么原因
--  作者：sunsenfeng
--  发布时间：2013/1/4 13:00:00
--  
大概是Office安装有问题
--  作者：lsy
--  发布时间：2013/9/24 7:31:00
--  
好帖顶起来
--  作者：qq864729713
--  发布时间：2014/4/20 0:56:00
--  
虽然不是我问的问题, 但是解决了我的问题,
 谢谢你,