標題: 如何用VBA列印特定檔名的Excel檔案? [打印本頁]

---

作者: hbjang    時間: 2012-3-14 19:13     標題: 如何用VBA列印特定檔名的Excel檔案?

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

---

作者: hugh0620    時間: 2012-3-15 10:55

回復 1# hbjang


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

---

作者: hbjang    時間: 2012-3-15 14:00

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

---

作者: mark15jill    時間: 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

---

作者: hbjang    時間: 2012-3-15 21:28

終於把問題解決了,謝謝

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)