☰

Excel VBA でプリンターを共有プリンターに設定する

tag-icon • tag-icon microsoft-excel vba
Excel VBA でプリンターを共有プリンターに設定する

あるページから別のページにセルをコピーし、3 ページを異なるプリンターで印刷しようとする長い VBA があります。

以下のコードはデフォルトのプリンターを変更していないようで、すべてのページが同じプリンターに送信されます。

 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 であるべきでしょうか?

プリンタ名を決定するには、アクティブなプリンタを手動で変更し、次のような操作を行って、Debug.Print Application.ActivePrinter文字列の結果を指定した内容と慎重に比較することをお勧めします。

関連情報