??CrystalReportsViewer?????????????

[Former Member]

こんにちは。

度々ですが

以下の環境で作業を行っています。

WindowsXP　SP2

VisualStudio2003

CrystalReports2008DeveloperED　SP1

自作CrystalReportsViewer(2008SP1マージモジュール使用）

VS標準のセットアッププロジェクトでインストーラーを作成

ページを指定して印刷を行うと、１～すべて印刷されてしまいます。

印刷ダイアログの"ページ範囲"ですが

"すべて"、"ページ"指定は選択可能

"選択した部分"、"現在のページ"は選択不可

回避策はありますか？

以上　宜しくお願いします。

[Former Member · Accepted solution]

ビューアの印刷アイコンで印刷せずに、PrintToPrinter メソッドを利用したらどうですか。

[Former Member · Accepted solution]

24×7様

返事が遅れましたが

PrintToPrinterを使ってページ印刷を指定して印刷することができましたのでご報告します。

ありがとうございました。

簡単ですが、サンプルソースを貼っておきます。

Dim ps As New Printing.PrinterSettings

ps.Copies = 1

'プリンターの設定をする

PrintDialog1.PrinterSettings = ps

'ページ指定を有効に

PrintDialog1.AllowSomePages = True

If PrintDialog1.ShowDialog = DialogResult.OK Then

Try

'プリンタ名の設定

CrReportDocument.PrintOptions.PrinterName = PrintDialog1.PrinterSettings.PrinterName

'印刷設定　部数、部単位で印刷するか？、開始、終了

CrReportDocument.PrintToPrinter(PrintDialog1.PrinterSettings.Copies, _

False, _

PrintDialog1.PrinterSettings.FromPage, _

PrintDialog1.PrinterSettings.ToPage)

Catch ex As Exception

Set_StatusBar(UltraStatusBar1, 2, "【エラー】" & ex.Source & ex.Message)

Exit Sub

End Try

Set_StatusBar(UltraStatusBar1, 1, "【印刷成功】帳票を正常に印刷しました。")

End If