Print range to PDF in color

[mecerrato]

I have this code that works perfectly but I need it to be in color, is there a small tweak I can make to print in color?

Sub Save_as_pdf_W2IncomeCalc()
Application.EnableEvents = True
ActiveSheet.Unprotect Password:="Mortgage1"
Dim PrintRng As Range
Dim pdfile As String
'Setting range to be printed
Set PrintRng = Range("A1:DF58")
sPath = Environ("USERPROFILE") & "\Desktop\"

pdfile = Application.GetSaveAsFilename _
    (InitialFileName:=sPath & Worksheets("W2 Income Calc").Range("P5").Value & " " & Worksheets("W2 Income Calc").Range("P6").Value, _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="Select Folder and FileName to save")
Filename = pdfile
If Filename = False Then
Exit Sub
Else
PrintRng.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=pdfile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Call MsgBox(pdfile & " file has been saved!")
ActiveSheet.Protect Password:="Mortgage1"
End If
End Sub

 

[rollis13]

Well, it normally should create color PDF, are you sure that in 'Page Setup' / tab 'Sheet' / section 'Print' / you haven't 'Black and white' checked ? if so uncheck it and try again.

 

[mecerrato]

Well, it normally should create color PDF, are you sure that in 'Page Setup' / tab 'Sheet' / section 'Print' / you haven't 'Black and white' checked ? if so uncheck it and try again.

argh, so simple and I didn't check that, thanks, that fixed it.

 

[rollis13]

Glad I was able to help .
If there is a reason for being checked you could disable/re-enable it in your macro adding these lines of code:

[...]
Else
ActiveSheet.PageSetup.BlackAndWhite = False '<= added
PrintRng.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=pdfile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
ActiveSheet.PageSetup.BlackAndWhite = True '<= added
[...]