| |
お世話になります。色々試したのですが行き詰ってしまったので ご教授お願い致します。
レポートでデータのない空欄の部分にも罫線を最後まで表示するようにしているのですが↓（引用しました)
Option Compare Database
Option Explicit
'ページ印字可能行数の設定
Const AblGyou = 31
'行数カウント変数
Dim GyouCnt As Integer
Private Sub ページフッター_Format(Cancel As Integer, FormatCount As Integer)
'行数カウント数のクリア
GyouCnt = 0
End Sub
Private Sub レポートフッター_Format(Cancel As Integer, FormatCount As Integer)
'総行数がページ印字可能行数と同じ場合
If GyouCnt = AblGyou Then
'行数カウント数のクリア
GyouCnt = 0
'空白行を印字しない
Me.MoveLayout = False
Me.PrintSection = False
Else
'行数カウントを加える
GyouCnt = GyouCnt + 1
'ページ行数に満たない場合、空白行を印字
If GyouCnt < AblGyou Then
'次のレコードへ移動設定を無効とする
Me.NextRecord = False
'次の印刷位置への移動設定を有効とする
Me.MoveLayout = True
'セクション印刷の設定を有効とする
Me.PrintSection = True
Else
'行数カウント数のクリア
GyouCnt = 0
End If
End If
End Sub
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
'行数カウントを加える
GyouCnt = GyouCnt + 1
End Sub
直線を引いたりして一番最後の行の下の線だけ太字にしたいのですがそれは可能でしょうか？
すみませんが、宜しくお願いします。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
