Access VBA質問箱 IV

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

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


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

4611 / 9994

←次へ　｜　前へ→


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

ツカ - 06/9/25(月) 16:07 -


	引用なし

	パスワード

レポートフッターの下に太線を配置しておいて、
コードに下記の２行を追加するとゆうやり方で解決しました。ありがとうございました。

> 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
　　　　　　Me.太線.Visible = False
>　　　　 Else
>　　　　　　 '行数カウント数のクリア
>　　　　　　 GyouCnt = 0
　　　　　　　Me.太線.Visible = True
>　　　　 End If
>　　 End If
> End Sub

712 hits

▼

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