Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc _
As Long, ByVal nIndex As Long) As Long
Const DEV_BITSPERPIXEL = 12
Const DEV_PLANES = 14
Public Function NumberOfPrinterColours()
NumberOfPrinterColours = GetDeviceCaps(Printer.hdc, _
DEV_PLANES) * 2 ^ GetDeviceCaps(Printer.hdc, DEV_BITSPERPIXEL)
End Function
As Long, ByVal nIndex As Long) As Long
Const DEV_BITSPERPIXEL = 12
Const DEV_PLANES = 14
Public Function NumberOfPrinterColours()
NumberOfPrinterColours = GetDeviceCaps(Printer.hdc, _
DEV_PLANES) * 2 ^ GetDeviceCaps(Printer.hdc, DEV_BITSPERPIXEL)
End Function
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货