掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
帳票毎にカラー/モノクロの設定を行いたい。 (ID:28098)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
function IsColorPrint :Boolean; var dev, drv, port: array[1..256] of char; devMode: THandle; pDevMode: PDeviceMode; begin //Printer.PrinterIndex := 0 とか、てきとうなプリンタを選択しておくこと Result := False; //プリンタ情報取得 Printer.GetPrinter(@dev, @drv, @port, devMode); //Lock pDevMode := GlobalLock(devMode); if pDevMode <> nil then begin //カラープリンタであるか Result := ((pDevMode^.dmFields and DM_COLOR) > 0) and //カラー印刷するか (pDevMode^.dmColor = DMCOLOR_COLOR); {Unlock} GlobalUnLock(devMode); end; end; まさか、プリンタの状態にかかわらず、モノクロで出したいのか？ そうであれば、全部黒で描画したらいいだけでは？ それとも、状況に応じて色を変えたいということであれば、各ＱＲコントロールの 色を印刷前に切り換えるしかないのでは？
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.