[[20121205183847]]　『プリンタ指定して標準に使うプリンタに戻す』 (TAD) 　ページの最後に飛ぶ

『プリンタ指定して標準に使うプリンタに戻す』 (TAD)

 いつも勉強させて頂いております。
 現行、E5セルに番号を入力すると、シート名を印刷する状態しています。
 通常使うプリンタを"canonC3360"に設定されており、
 下記のVBAファイルだけは"Canon iP2700"を使用したいのですが、印刷後
他のファイルを印刷するとプリンタ設定がCanon iP2700になっています。
印刷後、元のcanonC3360に戻して、VBAファイルだけは、"Canon iP2700"にする方法は御座いますか？
色々、調べてみましたが、なんともうまく出来ません。
どうすれば宜しいでしょうか？

Sub 送り状印刷()

  Application.ActivePrinter = "Canon iP2700 series on Ne03:"
    If Range("E5").Value = 1 Then
       Sheets("フットワーク").PrintOut
    End If
    If Range("E5").Value = 2 Then
       Sheets("オカケン").PrintOut
    End If
    If Range("E5").Value = 3 Then
       Sheets("丸常").PrintOut
    End If
    If Range("E5").Value = 4 Then
       Sheets("西濃").PrintOut
    End If
    If Range("E5").Value = 5 Then
       Sheets("西濃ミニ便").PrintOut
    End If
    If Range("E5").Value = 6 Then
       Sheets("飛騨").PrintOut
    End If

    Sheets("運送選択").Select
    Range("E5").Select

 End Sub

WinXP　Excel2003

 これでうまく行きますか？

 Sub 送り状印刷() 
   Dim priter_name As String
   priter_name = Application.ActivePrinter  '標準プリンターの名前を取得
   省略
   Application.ActivePrinter = priter_name　'プリンターを標準に戻す
 End Sub
　
（純丸）(o^-')b

 タイトルを『』に修正しておきました。なぜか「」になってましたので。
 (カリーニン)

 すみません、どうやら説明不足でした。もう一度教えて下さい・・・
 実際は、4つのプリンタが有り、Sub送り状印刷だけは"Canon iP2700"で印刷を行いたく、
印刷が終われば、通常使うプリンタに設定になっている"canonC3360"に戻したいのです。
 純丸様が、作成して頂きましたコードを入力しましたが、通常使うプリンタでしか印刷が行えません。お願いします

 こんにちは

 純丸さんの答えを参考にすれば出来ますよね？

 Sub 送り状印刷()
    Dim s As String
    s = Application.ActivePrinter
    Application.ActivePrinter = "Canon iP2700 series on Ne03:"
    If Range("E5").Value = 1 Then
       Sheets("フットワーク").PrintOut
    End If
    If Range("E5").Value = 2 Then
       Sheets("オカケン").PrintOut
    End If
    If Range("E5").Value = 3 Then
       Sheets("丸常").PrintOut
    End If
    If Range("E5").Value = 4 Then
       Sheets("西濃").PrintOut
    End If
    If Range("E5").Value = 5 Then
       Sheets("西濃ミニ便").PrintOut
    End If
    If Range("E5").Value = 6 Then
       Sheets("飛騨").PrintOut
    End If
    Sheets("運送選択").Select
    Range("E5").Select
    Application.ActivePrinter = s
End Sub
（ウッシ）

 ウッシ様有難う御座いました。希望通り印刷が可能になり助かりました。

コメント返信：

[ 一覧(最新更新順) ]

[[20121205183847]] 『プリンタ指定して標準に使うプリンタに戻す』 (TAD) ページの最後に飛ぶ

[[20121205183847]]　『プリンタ指定して標準に使うプリンタに戻す』 (TAD) 　ページの最後に飛ぶ