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

来自访问帮助：
以下示例将 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 中有内置功能可以完成此操作。

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

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

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