| ■42954 / ) |
Access2007のレポート印刷（VB.NET2003） |
□投稿者/ トッチー (9回)-(2009/10/24(Sat) 22:44:47)
|
分類:[.NET 全般]
OSはXPで
VB.NET2003 Access2007です。
Access12.0 object library は参照設定済みです。
以下のソースで
レポート「帳票作成」の印刷ができます。
ただ、データ量が多くなると
印刷されるページ数が多くなります。
そこで、2ページ以上の場合は
最後と最後から2ページ目のみ印刷すればいい仕様にしたいです。
ページ数を取得すればいいような気がしますが、
半日かけても見つかりません。
Private Sub cmdReport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdReport.Click
Dim ac As Object
Try
ac = CreateObject("Access.Application")
' データベースを開く
ac.OpenCurrentDatabase(mdbpath)
' アプリケーションを表示しない
ac.Visible = False
'レポートを印刷する
ac.DoCmd.OpenReport("帳票作成")
'ac.DoCmd.PrintOut("帳票作成" , PageFrom:=1, PageTo:=2) '1～2ページ
'あとはページ数の設定だけ
ac.closeCurrentDatabase()
ac.Quit()
Catch ex As Exception
MsgBox("Error")
End Try
End Sub
なんとか.Pages(？) でページ数を取得すればできそうですが。
ご教授お願いします。
|
|
