请各位大哥帮小弟看看，怎样利用Excel 打印不显示Excel文件直接打印？
请各位大哥帮小弟看看，怎样利用Excel 打印不显示Excel文件直接打印？

界面调用函数
Public Sub ProviderPrint(ByVal dsPrintInfor As DataSet)

Dim strRptPath As String = mcGlobal.GetTplPath
Try
dtPDTPackingInvoice = dsPrintInfor
ExcelApp = New Excel.Application
'设置Excel初始状态
ExcelApp.Visible = False
ExcelApp.AlertBeforeOverwriting = False
ExcelApp.AskToUpdateLinks = False
ExcelApp.DisplayAlerts = False

'打开工作薄
ExcelWorkBook = ExcelApp.Workbooks.Open(strRptPath + mXltFileName)
ExcelWorkBook = ExcelApp.ActiveWorkbook
'打开Sheet
ExcelWorkSheet = ExcelWorkBook.Sheets("Sheet1")
'列字段定义
ColumnValue()
'打印数据
ProviderDecreaseSumPrint()

ExcelApp.Visible = True


'删除Excel引用
ExcelWorkSheet = Nothing
ExcelWorkBook = Nothing
ExcelApp = Nothing

'垃圾回收
GC.Collect()
Catch ex As Exception
If Not ExcelApp Is Nothing Then
ExcelApp.Run("closeExcel")
ExcelApp = Nothing
End If
PubShare.Msg.ShowMsg(2, ex.ToString)
End Try
End Sub

'显示数据
Private Sub PrintProviderDecreaseSum(ByVal dtPDTPackingInvoice As DataSet)
'Dim i As Integer
'Dim j As Integer
Dim PrintHeadInfor As DataTable = dtPDTPackingInvoice.Tables(0)
Dim PrintHead As DataTable = dtPDTPackingInvoice.Tables(1)

If PrintHeadInfor.Rows(0)(DataAccess.Business.ProviderScoreDecrTbl_F.PROVIDERID_FIELD) <> "" Then
'费用卡号
ExcelWorkSheet.Cells(Li_DetailLinePDTPackingHEAD + 2, 1 + Li_DetailColumnPDTPackingHEAD) = _
"'" + MCO001.DBNULL2Str(PrintHead.Rows(0)("FeeCardNo"))
'供应商编码
ExcelWorkSheet.Cells(Li_DetailLinePDTPackingHEAD + 3, 1 + Li_DetailColumnPDTPackingHEAD) = _
"'" + MCO001.DBNULL2Str(PrintHeadInfor.Rows(0)(DataAccess.Business.ProviderScoreDecrTbl_F.PROVIDERID_FIELD))
'供应商名称
ExcelWorkSheet.Cells(Li_DetailLinePDTPackingHEAD + 4, 1 + Li_DetailColumnPDTPackingHEAD) = _
"'" + MCO001.DBNULL2Str(PrintHeadInfor.Rows(0)(DataAccess.Business.ProviderScoreDecrTbl_F.PROVIDERNM_FIELD))
'缴费时间
ExcelWorkSheet.Cells(Li_DetailLinePDTPackingHEAD + 5, 1 + Li_DetailColumnPDTPackingHEAD) = _
"'" + MCO001.DBNULL2Str(PrintHeadInfor.Rows(0)(DataAccess.Business.ProviderScoreDecrTbl_F.CREATEDATE_FIELD))

'缴费项目
ExcelWorkSheet.Cells(Li_DetailLinePDTPackingHEAD + 6, 1 + Li_DetailColumnPDTPackingHEAD) = _
"'" + MCO001.DBNULL2Str(PrintHead.Rows(0)("AdjustItem"))

Dim adjustvalue, curvalue As Decimal
adjustvalue = Format(CDbl(PrintHeadInfor.Rows(0)(DataAccess.Business.ProviderScoreDecrTbl_F.ADJUSTVALUE_FIELD)), "####0.00")
curvalue = Format(CDbl(PrintHeadInfor.Rows(0)(DataAccess.Business.ProviderScoreDecrTbl_F.CURVALUE_FIELD)), "####0.00")

'缴费金额
ExcelWorkSheet.Cells(Li_DetailLinePDTPackingHEAD + 7, 1 + Li_DetailColumnPDTPackingHEAD) = _
"'" + MCO001.DBNULL2Str(adjustvalue) + "元"
'卡内金额
ExcelWorkSheet.Cells(Li_DetailLinePDTPackingHEAD + 8, 1 + Li_DetailColumnPDTPackingHEAD) = _
"'" + MCO001.DBNULL2Str(curvalue) + "元"

End If


End Sub

[解决办法]

VB.NET code

    ExcelApp.Application.Visible = False   'ExcelApp.ActiveWindow.SelectedSheets.PrintPreview   '转到打印预览模式   ExcelApp.ActiveWindow.SelectedSheets.PrintOut   '直接打印