3流プログラマのメモ書き

元開発職→社内SE→派遣で営業支援の三流プログラマのIT技術メモ書き。 このメモが忘れっぽい自分とググってきた技術者の役に立ってくれれば幸いです。(jehupc.exblog.jpから移転中)

(.Net)ActiveReports で指定された行毎にラインを表示、改ページする

やりたいことはこんな感じです。この場合5行毎にラインを引いています。

まず、指定された行毎にライン表示ですが、詳細セクションにラインを引きます。

あとは、 Detail.Format イベントで、指定行に来たらラインの Visible を True にそれ以外は、False にするだけでいいようです。

下図のように赤で囲った Line の Visible を調整します。

改ページと上記の指定行毎のLine表示は下記のコードのようになります。

Private Sub Detail_Format(ByVal sender As Object, ByVal e As System.EventArgs) Handles Detail.Format

m_intRowNumber = m_intRowNumber + 1

If m_intRowNumber < 45 Then

' 件数が45件に満たない場合、改ページは行いません。

Me.Detail.NewPage = NewPage.None

Else

' 45件出力した後、改ページを行い、カウンタをリセットします。

Me.Detail.NewPage = NewPage.After

m_intRowNumber = 0

End If

 

'5行おきにLineを引く

If m_intRowNumber Mod 5 = 0 Then

Me.SeparatorLineFive.Visible = True

Else

Me.SeparatorLineFive.Visible = False

End If

End Sub