暱稱: 隨風飄蕩的羽毛 頭銜: [御用]潛水艇
高中生 
- 帖子
- 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 |
|
