| |
いつもお世話になっております。
送付案内書がありまして、ｸｴﾘの条件に［担当者を入力する］や=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人なら成り立ちますが、複数人いた場合は成り立ちません・・・
できればこのコードを利用して出るようにしたいのですがまだまだ初心者で分からないのでご教授下さい。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
