|
■No17454 (nakaP さん) に返信 > ・何を求めていたか チャート(積み立て棒グラフ)でカラープリンタ印字はカラーで モノクロの場合は網掛けでグラフ印字
> ・それを得るのにどういうコードを書いたのか 以下の通りです。System.Drawing.Printing.PrintSettingクラスのSupportsColor を式フィールドに渡してレポート側はカラー用とモノクロ用のグラフを 作成しており式フィールドからどちらかを非表示にすることにより 切り替え印字しています。
'プリンタのカラーかモノクロの判断 Dim pd As New System.Drawing.Printing.PrintDocument Dim V_Flg As String = "0" If pd.PrinterSettings.SupportsColor Then V_Flg = "1" End If
'判断のフラグを式フィールドに渡す Dim CrRep As New CrystalDecisions.CrystalReports.Engine.ReportDocument CrRep = RepGlbPrintInfo.Rpt With CrRep_002.DataDefinition.FormulaFields .Item("V_Flg").Text = "'" & V_Flg & "'" End With
|