Private Declare Function GetDeviceCaps _
  Lib "gdi32" ( _
  ByVal hDC As Long, _
  ByVal nIndex As Long _
  ) As Long
 
Private Const NUMCOLORS As Long = 24&
 
Public Function IsColorPrinter() As Boolean
 
  With Printer
    IsColorPrinter = GetDeviceCaps(.hDC, NUMCOLORS) > 2 Or _
                     GetDeviceCaps(.hDC, NUMCOLORS) = -1
  End With
 
End Function
 
Dim Color As Boolean
 
Color = IsColorPrinter