返回列表 上一主題 發帖

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

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

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
1# 跳轉到 »
發表於 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

        靜思自在 : 【時間無法遮擋】怕時間消逝，花了許多心血，想盡各式方法要遮擋時間，結果是：浪費了更多時間，且一無所成！
返回列表 上一主題