| |
たん さん、早速の回答ありがとうございます。
>実データ内に、印刷時拡張により、本来のコントロールの大きさ以上に
>なってしまうデータがある為に、詳細の行数がずれ、それにより、
>ページ自体にズレが生じ、結果、ページカウントがずれていると思われます。
詳細、グループフッターにコントロールを入れている為のような気がします。
詳細のレコード件数が１件のみの場合、フッター印刷（合計印刷）をしない
ようにしたいのですが･･･ 見た目はうまくいっているように思えるのですが
コントロールがうまくいってないのでしょうね。
下記のコードを書いてます。
お解りになりましたら、お願いいたします。
Option Compare Database
Dim WK現場カウント As Long
Private Sub Report_Open(Cancel As Integer)
WK現場カウント = 0
End Sub
Private Sub グループフッター1_Format(Cancel As Integer, FormatCount As Integer)
If WK現場カウント <= 1 Then
WK現場カウント = 0
Cancel = True
Exit Sub
End If
WK現場カウント = 0
End Sub
Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)
WK現場カウント = WK現場カウント + 1
End Sub
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
