Access VBA質問箱 IV

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

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


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

796 / 9994

←次へ　｜　前へ→


	【12507】担当別で空白行に罫線を引きたい

AAA - 14/4/18(金) 7:55 -


	引用なし

	パスワード

いつもお世話になっております。送付案内書がありまして、ｸｴﾘの条件に［担当者を入力する］や=Date（）という条件を入れて、空白行に罫線を引く為に下記の内容を入れて使用していました。 Option Compare Database Option Explicit 'ページ印字可能行数の設定 Const AblGyou = 10 '行数カウント変数 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 本題ですが、担当者を入れるのをやめ改ページで担当者ごとに出したく、改ページの設定で担当者別にはでるようになったのですが、最後の人しか上記の罫線がでないので最初の人（1ページ目）の空白行に　も罫線を引きたい。今日の日付で担当者が1人なら成り立ちますが、複数人いた場合は成り立ちません・・・できればこのコードを利用して出るようにしたいのですがまだまだ初心者で分からないのでご教授下さい。