質問: 1 End If End Sub お忙しい中大変申し訳ございませんが、どうぞ宜しくお願い致します。
回答: 印刷枚数が違うというなら、その判定を行っている式にブレークポイントを設定して、その時点のそれぞれの判定項目の値を追ってみてはどうですか? 少ない枚数で自分の意図する値で動いているかをプログラムに成り代わって追ってみれば、間違いが見えてくると思います。 但し、私ならこのつくり方はせず、事前にフォーム+VBAで印字用テーブルにデータを作りこみ、印刷しない部分は全てNullにするなどして、機能を外出しにして、レポートは印字するだけにすると思います。 この方法なら、事前に印字するイメージがデータで見えるため、無駄な印字テストが要らないからです。