VBA：Windows 7のデフォルトプリンタを一時的に変更する

Question

Windowsのデフォルトプリンタを1つの「ジョブ」のみに変更する可能性はありますか？ Windows XP/Vista/7では管理権限を持たないと機能しますか？私は何をしたいか

：

• デフォルトのプリンタはキヤノンABC
• が再び私のデフォルトのプリンタキヤノンABCをバック有することにしたい印刷後エプソンXYZ
• を経由して印刷したいです。

「管理者権限がなくても、メッセージボックスやUIダイアログなしでうまくいくかどうか」

は、C＃ではC＃/。NET

Answer 1

下VBAの下、または（しぶしぶ）使用する必要がありますがコンピュータにインストールされている任意のプリンタに印刷することができます。デフォルトのプリンタを変更する必要はありません。私はそれがVBAで同じかどうかを正確にはわかりませんが、C＃で動作します。

編集：

によりあなたのコメントに私は途中であなたを導くことを期待して、少しのサンプルを追加しました：

public void DoPrint() 
{ 
    var printDialog = new PrintDialog(); 
    if (printDialog.ShowDialog() == DialogResult.OK) 
    { 
     var printDocument = new PrintDocument 
      { 
       DefaultPageSettings = { PrinterSettings = printDialog.PrinterSettings } 
      }; 
     printDocument.PrintPage += OnPrintPage; 
    } 
} 

private void OnPrintPage(object sender, PrintPageEventArgs e) 
{ 
    e.Graphics.DrawString("Hello"); 
} 

これは、あなたが選択したプリンタに「こんにちは」を印刷しますダイアログで

Answer 2

アクセスヘルプから：
次の例では、プリンタコレクション内の最初のプリンタをシステムの既定のプリンタにし、その名前、ドライバ情報、およびポート情報を報告します。

Dim prtDefault As Printer 
    dim strOldDefault as string 
    strOldDefault = Application.printer 

    Set Application.Printer = Application.Printers(0) 

    Set prtDefault = Application.Printer 

    With prtDefault 
     MsgBox "Device name: " & .DeviceName & vbCr _ 
      & "Driver name: " & .DriverName & vbCr _ 
      & "Port: " & .Port 
    End With 

編集：あなたは簡単にそれを変更する前に、デフォルトのプリンタを保存し、印刷後に再び戻ってそれを設定することができます。また、デフォルトプリンタの変更は遅いプロセスなので、不要な変更を避けるために、変更する前にデフォルトプリンタが何であるかを確認することをお勧めします。保存/復元するには

---

：

Dim strOldPrinter As String 
'save old printer' 
strOldPrinter = Application.Printer.DeviceName 
'....do stuff' 
'restore old Printer' 
Set Application.Printer = Application.Printers(strOldPrinter)