У меня есть унаследованная электронная таблица 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, комментируя его, инаконец, удалив его.Но это все еще печатает только в черно-белом.Как мне заставить его печатать в цвете сейчас?
Где еще мне искать, что может указывать странице печатать черным по белому?