ActiveReportの直接印刷

環境/言語:[VB.NET2003]
分類:[.NET]

質問をさせて頂きます。

現在、帳票の印刷にてActiveReportを使用していますが、
Viewerに表示し、Viewerの印刷ボタンを押して印刷を行っていますが、
ActiveReportをViewerの印刷ボタンを押さずに即印刷を行う方法を
教えて頂きたく思います。

■No16485に返信(黎明さんの記事)
> 現在、帳票の印刷にてActiveReportを使用していますが、
> Viewerに表示し、Viewerの印刷ボタンを押して印刷を行っていますが、
> ActiveReportをViewerの印刷ボタンを押さずに即印刷を行う方法を
> 教えて頂きたく思います。

Viewer に表示させることができれば、できると思うのですが...

Viewer に表示する場合に DataSource に設定する Document のインスタンスに、Print メソッドというメンバがありますので、こちらを実行します。

> Viewer に表示させることができれば、できると思うのですが...
>
> Viewer に表示する場合に DataSource に設定する Document のインスタンスに、Print メソッドというメンバがありますので、こちらを実行します。

との事ですが、現在以下の構文でViewerに表示させています。
Dim rpt As New rptMjyuest(F物件番号, F変更番号, F機種番号)
Viewer1.Document = rpt.Document
rpt.Run()

どこを変えれば宜しいのでしょうか？

■No16508に返信(黎明さんの記事)
> > Viewer に表示させることができれば、できると思うのですが...
> > Viewer に表示する場合に DataSource に設定する Document のインスタンスに、
> > Print メソッドというメンバがありますので、こちらを実行します。
> との事ですが、現在以下の構文でViewerに表示させています。
> Dim rpt As New rptMjyuest(F物件番号, F変更番号, F機種番号)
> Viewer1.Document = rpt.Document
> rpt.Run()
> どこを変えれば宜しいのでしょうか？

説明どおりになってしまいますが、
rpt.Document のインスタンスから Print メソッドを呼び出します。
Viewer 部分は全く不要でございます。

> 説明どおりになってしまいますが、
> rpt.Document のインスタンスから Print メソッドを呼び出します。
> Viewer 部分は全く不要でございます。

Dim rpt As New rptSpec(F物件番号, F変更番号, F機種番号)
rpt.Document.Print()
rpt.Run()

で実行を行うと「追加情報 : The pages collection is empty」
とエラーで止まってしまいます。何か違うのでしょうか？
構文には波線が無いのですが

■No16512に返信(黎明さんの記事)
> > 説明どおりになってしまいますが、
> > rpt.Document のインスタンスから Print メソッドを呼び出します。
> > Viewer 部分は全く不要でございます。
> Dim rpt As New rptSpec(F物件番号, F変更番号, F機種番号)
> rpt.Document.Print()
> rpt.Run()
> で実行を行うと「追加情報 : The pages collection is empty」
> とエラーで止まってしまいます。何か違うのでしょうか？

Report 自体をロードする前に Print メソッドを実行しているからでしょう。
目的としているのは Print メソッドなのですから、その後に Load というのはヘンですよね。

> 構文には波線が無いのですが

コンパイル エラーがあれば実行できませんから、それはわかりますよ。