以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  通过excel报表进行打印，打印后提示 是否保存，能否取消  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49815)
--  作者：ljh29206
--  发布时间：2014/4/24 14:14:00
--  通过excel报表进行打印，打印后提示 是否保存，能否取消

Dim dt As Table = Tables("CAF库存表")
dt.Filter=""
dt.Select(0,0,dt.Rows.Count-1,0)
Dim Book As New XLS.Book(ProjectPath & "Attachments\\盘点汇总票.xls") \'打开模板
Dim fl As String = ProjectPath & "Reports\\盘点汇总票.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Book.Build() \'生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
proc.Verb ="Print"
Proc.Start()

代码以上

 

通过excel报表进行打印，打印后提示 是否保存，能否取消这个对话框  ，由于我是循环打印，每次都弹出来 很烦人！！！！
--  作者：有点甜
--  发布时间：2014/4/24 14:16:00
--  

 这个就需要用到vba来打印了，参考下面的例子

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook
    wb = App.WorkBooks.Open("D:\\Test.xls")
    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

 

 

[此贴子已经被作者于2014-4-24 14:16:39编辑过]