|
のりぞう さんおはようですます。
横から失礼します。
ネットワークでプリンタを使用する際に名前を指定してしまうと
ドライバを新たに追加したり、はたまた別の人に勝手に追加され
たりした時にエラーになる場合があります。
よって勝手ながらYN62さんのコードを引用させてもらうと。。。
>Sub ChangePrinter()
> Dim myPrn As String
>
> myPrn = Application.ActivePrinter
>
If Application.Dialogs(xlDialogPrinterSetup).Show = True Then
ActiveSheet.PrintOut
End If
>
> Application.ActivePrinter = myPrn
>End Sub
とするか前もって印刷外のセルに書きとめてから使用した方が
良いと思います。
もちろんファイルを閉じるイベントにでも上記のように元の
プリンタに戻す事をお忘れなく。
Sub PriCh()
If Application.Dialogs(xlDialogPrinterSetup).Show = True Then
[G10].Value = Application.ActivePrinter
End If
End Sub
|
|