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

名前

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

本文 ななしさん有難うございます。 早速、サンプルを作ってみました。 VB6.0 ですと プリンターのハンドルをPrinter.hdcで渡せば 上手く調べることが出来ました。 EXCEL VBA で調べたいのですが、 Sub test1() Const BITSPIXEL = 12 Dim ret As Long Dim lnghPrinter As Long Dim ActivePrinterName As String ActivePrinterName = Mid$(Application.ActivePrinter, 1, _ InStr(1, Application.ActivePrinter, " on ") - 1) ret = OpenPrinter(ActivePrinterName, _ lnghPrinter, _ ByVal vbNullString) Debug.Print GetDeviceCaps(lnghPrinter, BITSPIXEL) '<-- ここ ret = ClosePrinter(lnghPrinter) End Sub 最悪、VB6.0でACTIVEX.DLLを作成すればなんとか成りそうですが 出来れば、EXCELの中だけで何とかしたいと思います。 GetDeviceCaps でどうすれば良いかご教示をお願いいたします。