在Excel VBA中打开彩色打印

Question

我有一个继承的Excel电子表格，该电子表格使用VBA进行了很多工作，然后打印一个页面。到目前为止，它具有颜色，并以黑白印刷，并在一条线中以下行：

.BlackAndWhite = True

现在，用户希望在某些情况下进行一些突出显示，并且我们添加了彩色条件格式。但是我无法将电子表格打印为彩色并显示出突出显示。

我可以看到颜色在那里，因为它暂停了我将其打印到PDF，但是保存的PDF不会显示颜色。用户正在打印到颜色打印机，并设置了打印机以在此Excel存在的机器上以彩色打印。还有另一个必须手动运行的版本，并以颜色打印。

这是打印代码（与以彩色打印的代码相匹配，但我很确定以彩色打印的码完全绕过了这一点）：

Public Sub Print_No_Interface()
With Application
    CalcMode = .Calculation
    .Calculation = xlCalculationManual
    .ScreenUpdating = False
    .DisplayAlerts = False
    .EnableEvents = False
    .AutoRecover.Enabled = False
End With

，最后，当它打印时，它称为：

Public Sub Print_Helper()
With Worksheets("Detail").PageSetup
 .LeftMargin = Application.InchesToPoints(0.5)
 .RightMargin = Application.InchesToPoints(0.5)
 .TopMargin = Application.InchesToPoints(0.75)
 .BottomMargin = Application.InchesToPoints(1)
 .CenterHorizontally = True
 .Orientation = xlPortrait
 .FirstPageNumber = xlAutomatic
 .FitToPagesWide = 1
 .FitToPagesTall = 1
 .PrintArea = "A1:M118"
 .PaperSize = xlPaperLegal
 .PrintGridlines = True
 .Zoom = 50
 End With
Worksheets("Detail").PrintOut ActivePrinter:="OUR COLOR PRINTER"
End Sub

我尝试了.blackandwhite = false，并将其评论出来，最后将其删除。但它仍然只用黑白印刷。我现在该如何以彩色打印？

我应该在哪里看，可能会告诉页面以黑白打印？

Answer 1

您需要确保在Excel中正确配置打印机设置。您可以通过：

来更改这些

文件 ->打印 ->打印机属性。