Access VBA質問箱 IV

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

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


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

758 / 9994

←次へ　｜　前へ→


	【12545】Re:7行レポート作成について（初心者です）

asahi - 14/5/19(月) 16:58 -


	引用なし

	パスワード

サンプルファイルを見させていただきましたら、グループ化3行目に売上明細ID
をつくる方法があるのがわかりました。
ありがとうございます。

ただ、7行以降改ページにしたいのですが、
『フィールドがない場合も用紙の最後まで罫線を出力する』
で記載の通り記述すると、1行づつの明細になり8行明細があると8枚印刷されてしまいます。

Option Compare Database
Option Explicit
Dim RowCnt As Long

Private Sub ページヘッダーセクション_Format(Cancel As Integer, FormatCount As Integer)

　Me.MoveLayout = False
　RowCnt = 0
　
End Sub

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)

RowCnt = RowCnt + 1

　　If RowCnt >= 7 Then '1ページ当たり7件
　　

　　　 Me.詳細.ForceNewPage = 2　'カレントセクションの後で改ページ

　　Else

　　　 Me.詳細.ForceNewPage = 0　'カレントセクションの前で改ページ

　　End If

End Sub

たびたびすみませんがよろしくお願いします。

369 hits

▼

【12538】7行レポート作成について（初心者です） asahi 14/5/14(水) 14:18