excel - 如何选择特定的打印机并选择彩色打印

Question

我有一个 Excel VBA 宏，它尝试以彩色打印，但它只能以黑白打印。

我尝试了两种方法，但都失败了。

方法 1:ActiveSheet.PageSetup.BlackAndWhite = False。此代码似乎不适用于我的环境。我也不允许添加另一个彩色打印机队列。

方法二:Application.Dialogs(xlDialogPrinterSetup).Show。我可以使用此代码在我的环境中显示打印机列表，但不知道如何选择正确的打印机并选择颜色。

ActiveSheet.PageSetup.BlackAndWhite = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="\\printer\printer1", Collate:=True, _
        IgnorePrintAreas:=False
    Sheets("REPORT").Select

想通过扩展我提供的两种方法中的任何一种来进行彩色打印。

Answer 1

我怀疑这是 的问题打印机 设置，而不是您的代码。检查打印机的实际设置方式。如果您使用的是 Win 10，您还有一个问题 - 您需要从系统禁用打印作业的自动管理，它会一直恢复到给定应用程序的最后设置并忽略您的手动设置。

什么ActiveSheet.PageSetup.BlackAndWhite = False确实是 Excel 设置(您将其发送到彩色打印机)。恕我直言，问题出在实际的打印机设置中 - 它在那里设置为 B&W，意思是 转换发生在打印机 .你不能从 VBA 改变它，至少不容易。

您可以做的(但可能需要管理员访问权限)是在系统中设置打印机的第二个(第三个)副本，将其设置为彩色打印，然后在打印之前选择这台“其他”打印机。

我将这种方法用于 Word - 为信封设置一台“打印机”，为双面打印设置一台“打印机”，原始打印机具有公司设置的正常设置。每一台在物理上都是同一台打印机。

那么解决方案是而不是ActivePrinter:="\\printer\printer1"更改ActivePrinter以彩色打印，并在打印输出后再次返回。

编辑:

再次阅读 - 是 "\\printer\printer1"正确的 ?您可以在系统中查看打印机的连接方式，或者在向彩色打印机发送内容时简单地记录宏并查看那里。您可能只需要设置 Application.activeprinter=到另一个，例如Application.activeprinter="\\printer\printer2" .