☰

Excel VBA將印表機設定為共用印表機

tag-icon • tag-icon microsoft-excel vba
Excel VBA將印表機設定為共用印表機

我有一個很長的 VBA 將單元格從一頁複製到另一頁，並嘗試將 3 頁列印到不同的印表機。

下面的程式碼似乎沒有更改預設印表機，因此所有頁面都發送到同一台印表機。

 For i = 0 To 15
    curNePrint = Format(i, "00")
    On Error Resume Next
        Application.ActivePrinter = "\\AtanaWin7PC3\DYMO LableWriter 450 on ne" & curNePrint & ":"
    Next i
 Worksheets(le).PrintPreview

我已經使用 printPreview 來節省印表機上的紙張浪費。

誰能幫我為每一頁設定印表機。

謝謝

答案1

剛剛嘗試了您的程式碼，我能夠成功更改印表機。

我認為您的印表機名稱很可能有拼字錯誤。

也許LableWriter應該是LabelWriter？

要確定印表機名稱應該是什麼，我建議手動更改您的活動印表機，然後執行類似 a 的操作，Debug.Print Application.ActivePrinter並仔細將您的字串結果與您指定的內容進行比較。

相關內容