如何用VBA列印特定檔名的Excel檔案?

各位大大,請問如何列印與 ComboBox 選取的選項一樣的Excel檔案?
例如
如果在ComboBox中選取的是"ABC"
那我想要做一個CommandButton,按下後可以把"ABC.xls"檔案直接列印出來,不需要開啟ABC.xls
PS: ComboBox是做在自訂表單中
謝謝

樓主熱帖

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

2^#

發表於 2012-3-15 10:55 | 只看該作者

回復 1# hbjang

樓主應該要將情況描寫的更清楚一些:
有一些條件要說明清楚
1. Combobox 挑選後,進行列印, 那路徑是否已經固定死的,還是要再挑選舉路徑~
2. 檔案中的sheet是否僅只有1個sheet或是要全部sheet都要列印
一些您要的東西~ 要說明清楚唷~
這樣版大或各大大們才能幫您客製化處理您要的~
才能快速的將你的問題處理唷~

學習才能提升自己

TOP

hbjang

小學生 Rank: 1

帖子: 9
主題: 4
精華: 0
積分: 13
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 10
註冊時間: 2012-3-14
最後登錄: 2012-5-14

3^#

發表於 2012-3-15 14:00 | 只看該作者

不好意思,問題沒陳述清楚
1.存放檔案的路徑是固定的
2.每個Excel檔案都只有一個sheet
謝謝

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

4^#

發表於 2012-3-15 14:14 | 只看該作者

本帖最後由 mark15jill 於 2012-3-15 14:22 編輯

回復 3# hbjang

再請教 EXCEL 檔案名稱有規律? 或者是  有完整的檔案名稱??

如果有EXCEL檔案內存放要列印檔案的名稱
如檔案名稱.xls 則可用以下程式直接列印

Sub Macro1()
For ux = 1 To 65535
  If Range("a" & ux).Value <> "" Then
      ee = Range("a" & ux).Value
      ChDir "D:\要列印資料" '檔案存放的資料夾
      Workbooks.Open Filename:="D:\要列印資料\" & ux & ".xlsx"
      Application.ActivePrinter = "Microsoft Office Document Image Writer on Ne05:" ' 這邊為設定印表機(Microsoft Office Document Image Writer on Ne05:)
      ExecuteExcel4Macro _
         "PRINT(1,,,1,,,,,,,,2,""Microsoft Office Document Image Writer on Ne05:"",,TRUE,,FALSE)" ' 這邊為設定印表機(Microsoft Office Document Image Writer on Ne05:)
      ActiveWindow.Close
End If
Next ux
End Sub

TOP

hbjang

小學生 Rank: 1

帖子: 9
主題: 4
精華: 0
積分: 13
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 10
註冊時間: 2012-3-14
最後登錄: 2012-5-14

5^#

發表於 2012-3-15 21:28 | 只看該作者

終於把問題解決了,謝謝

TOP