標題: [發問] 請教怎麼打印.TXT文檔到printer ? [打印本頁]

---

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

---

作者: GBKEE    時間: 2018-6-6 20:00

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

回復 1# adrian_9832
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim xPath As String, xBat As String, St As String, Msg As Boolean
   
4.     xPath = "d:\"                 '指定的資料夾
   
5.     xBat = xPath & "Print.Bat"    'Bat-> DOS 下自動執行的檔案
   
6.     St = Dir(xPath & "*.txt", vbDirectory)   '查看指定副檔名的檔案
   
7.     If St <> "" Then
   
8.         Msg = True
   
9.         With CreateObject("Scripting.FileSystemObject").CreateTextFile(xBat, 1)      '建立一個檔案
   
10.             .Write "PRINT " & xPath & St & vbCrLf      '寫入
    
11.             St = Dir    '查看下一個檔案
    
12.             Do While St <> ""
    
13.                 .Write "PRINT " & xPath & St & vbCrLf
    
14.                 St = Dir
    
15.             Loop
    
16.             .Close
    
17.         End With
    
18.         If Msg Then Shell xBat  '執行程式
    
19.         Kill xBat    '刪除一個檔案
    
20.     End If
    
21. End Sub

複製代碼

---

作者: adrian_9832    時間: 2018-6-8 13:21

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

---

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