VBA：临时更改 Windows 7 默认打印机

Question

是否有可能仅更改一项“作业”的 Windows 默认打印机？在 Windows XP / Vista / 7 下无需管理员权限是否可以使用？

我想要做什么：

• 默认打印机是 Canon ABC
• 想要
• 在打印后通过 Epson XYZ 打印想要再次恢复我的默认打印机 Canon ABC。

最好的情况是它无需管理权限且无需“消息框”或 UI 对话框即可工作。

应该在 VBA 下使用或（勉强）在 C# / .NET 下使用

Answer 1

在 C# 中，您可以打印到计算机上安装的任何打印机。您无需更改默认打印机。我不知道它在 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");
}

这将在您在对话框中选择的打印机上打印“Hello”。

Answer 2

来自 Access 帮助：
以下示例将 Printers 集合中的第一台打印机设置为系统的默认打印机，然后报告其名称、驱动程序信息和端口信息。

  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)

Answer 3

由于您没有具体说明您的“工作”实际上是什么，我将在这里提供一个更简单的答案。

作为编程方法的替代方法，如果您专门尝试通过特定打印机打印特定的报告，MS Access 中的内置功能可以实现此目的。

只需选择报告的“打印预览”视图，然后选择：“

页面设置”->“页面设置”->“打印预览”。页面选项卡->使用特定打印机 ->然后浏览并选择！

这最终满足了我的需求，所以希望它也能帮助你。