麻辣家族討論版版 » Excel程式區 » 請教怎麼打印.TXT文檔到printer ?

返回列表下一主題上一主題發帖

[發問] 請教怎麼打印.TXT文檔到printer ?

中學生 Rank: 2

帖子: 79
主題: 19
精華: 0
積分: 148
點名: 0
作業系統: WINDOW7
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-5-21
最後登錄: 2023-3-13

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2018-6-6 09:53 | 只看該作者

[發問] 請教怎麼打印.TXT文檔到printer ?

我手頭上有一個用VBA 讀取大約60個 TXT文件的路徑如以下請問怎麼發送到Printer 列印出來

C:\namelist.txt
C:\namelis1t.txt
C:\namelis2t.txt
C:\namelis3t.txt
C:\namelis4t.txt
C:\namelis5t.txt
C:\namelis6t.txt
C:\namelis7t.txt
C:\namelis8t.txt
C:\namelis9t.txt
C:\namelis10t.txt
C:\namelis11t.txt
C:\namelis12t.txt
C:\namelis13t.txt
C:\namelis14t.txt
C:\namelis15t.txt
.........

樓主熱帖

收藏

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2018-6-6 20:00 | 只看該作者

本帖最後由 GBKEE 於 2018-6-7 05:28 編輯

回復 1# adrian_9832
試試看

Option Explicit
Sub Ex()
Dim xPath As String, xBat As String, St As String, Msg As Boolean
xPath = "d:\" '指定的資料夾
xBat = xPath & "Print.Bat" 'Bat-> DOS 下自動執行的檔案
St = Dir(xPath & "*.txt", vbDirectory) '查看指定副檔名的檔案
If St <> "" Then
Msg = True
With CreateObject("Scripting.FileSystemObject").CreateTextFile(xBat, 1) '建立一個檔案
.Write "PRINT " & xPath & St & vbCrLf '寫入
St = Dir '查看下一個檔案
Do While St <> ""
.Write "PRINT " & xPath & St & vbCrLf
St = Dir
Loop
.Close
End With
If Msg Then Shell xBat '執行程式
Kill xBat '刪除一個檔案
End If
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

中學生 Rank: 2

帖子: 79
主題: 19
精華: 0
積分: 148
點名: 0
作業系統: WINDOW7
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-5-21
最後登錄: 2023-3-13

3^#

發表於 2018-6-8 13:21 | 只看該作者

謝謝大大的回復
我試過上方的編碼但是我的炭粉打印機沒反應我想可能要再找找問題再那裡

靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。

返回列表下一主題上一主題