Option Explicit
 
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
 
Private Sub Command1_Click()
 
If IsColorPrinter Then
MsgBox "Ja, der Standarddrucker ist ein Farbdrucker!"
Else
MsgBox "Nein, der Standarddrucker ist kein Farbdrucker!"
End If
 
End Sub

EALA FREYA FRESENA