カラー印刷の機能があるか取得するには (ID:90166)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 魔界の仮面弁士さん有難うございました。 WinXP では上手く動きましたが WinMEでは、カラープリンターでも、モノクロプリンターでも CreateDCで１が戻ります。 どちらのＯＳもデバイスコンテキストハンドルは取得できています。 Sub test() Const BITSPIXEL = 12 Dim ret As Long Dim lnghPrinter As Long Dim ActivePrinterName As String Dim devm As DEVMODE Dim intPos As Integer devm.dmSize = LenB(devm) intPos = InStr(1, Application.ActivePrinter, " on ") If intPos > 0 Then ActivePrinterName = Mid$(Application.ActivePrinter, 1, intPos - 1) End If If intPos = 0 Then intPos = InStr(1, Application.ActivePrinter, " の ") If intPos > 0 Then ActivePrinterName = Mid$(Application.ActivePrinter, intPos + 3) Else MsgBox ("ありえねぇ〜") Exit Sub End If End If lnghPrinter = CreateDC("WINSPOOL", ActivePrinterName, vbNullString, devm) Debug.Print GetDeviceCaps(lnghPrinter, BITSPIXEL) ret = DeleteDC(lnghPrinter) End Sub