Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4617 / 9994

←次へ　｜　前へ→


	【8621】レポートの罫線を最後まで表示

ツカ - 06/9/22(金) 16:27 -


	引用なし

	パスワード

お世話になります。色々試したのですが行き詰ってしまったのでご教授お願い致します。

レポートでデータのない空欄の部分にも罫線を最後まで表示するようにしているのですが↓（引用しました)

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

直線を引いたりして一番最後の行の下の線だけ太字にしたいのですがそれは可能でしょうか？
すみませんが、宜しくお願いします。

744 hits

▼

【8621】レポートの罫線を最後まで表示 ツカ 06/9/22(金) 16:27

≪