2013年3月14日 星期四

以指令方式 列印 Excel 檔案

  客戶又問了一奇怪的問題,客戶的客戶習慣直接將 Excel檔製作的報表直接列印出來查看,而不習慣在螢幕上看完了再列印.

當然..不是用 Print 要列印.XLS 的指令
作法如下

OFFICE 2007 作法
C:\>"C:\Program Files\Microsoft Office\Office12\WINWORD.EXE"  要列印.XLS /q /n /mFilePrintDefault /mFileExit  

可以用於列印  WORD 和 TXT 等類型檔案
官網說明

OFFICE 2003 作法
如果以 OFFICE 的方式用 WINWORD的方去是列印,只會列印出一堆亂碼.
而且 EXECL 沒有提供列印的參數 

Excel 的命令列參數

用外掛小程式的方法..處理吧 !

VB6 作法..

Private Sub Form_Load()
    Dim objExcelApp As Excel.Application
    Dim objSheet As Excel.Worksheet
    Set objExcelApp = CreateObject("Excel.Application")
    objExcelApp.Workbooks.Open  "\要列印.XLS"
    Set objSheet = objExcelApp.ActiveWorkbook.Sheets("Sheet名稱")
    objSheet.Activate
    objSheet.PrintOut 

End Sub

沒有留言:

張貼留言