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

hbjang

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

hugh0620

回復 1# hbjang


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

hbjang

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

mark15jill

回復 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

hbjang

終於把問題解決了,謝謝