Access2013 ラベル印刷の開始位置が設定できません

Question

いつもお世話になっております。

Accessのラベル印刷機能を使用して

10面のラベルを印刷できるようにしたいのですが

ラベルに無駄が発生しないように、印刷する際に

ラベルの開始位置を設定しました。しかし

1ページ目は開始位置が設定できるのですが

2ページ目以降も1ページ目と同じ開始位置になってしまします。

どのように修正したらよろしいでしょうか。

ご教示お願い致します。

下記のように記述しております。

Option Compare Database

Dim intSkip As Integer

Dim intSkipNum As Integer

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

intSkip = 0

End Sub

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

    'F-01_印刷範囲のtxt_開始位置の値を変数に代入する

    If Len(Forms![F-01_印刷範囲]![txt_開始位置]) > 0 Then

        intSkipNum = Int(Forms![F-01_印刷範囲]![txt_開始位置]) - 1

   Else

        intSkipNum = 0

    End If

    If intSkip < intSkipNum Then

        MoveLayout = True

        NextRecord = False

        PrintSection = False

        intSkip = intSkip + 1

    End If

End Sub

Answer 1

> 1ページ目は開始位置が設定できるのですが

> 2ページ目以降も1ページ目と同じ開始位置になってしまします。

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

> intSkip = 0

>

> End Sub

ページヘッダーセクションの Format イベントで

変数 intSkip の値を 0 にしてしまっています。

>     'F-01_印刷範囲のtxt_開始位置の値を変数に代入する

>     If Len(Forms![F-01_印刷範囲]![txt_開始位置]) > 0 Then

>         intSkipNum = Int(Forms![F-01_印刷範囲]![txt_開始位置]) - 1

>     Else

>         intSkipNum = 0

>     End If

またこれらのステートメントについては、

詳細セクションの Format イベントが発生する都度

実行する必要はありません。

どちらもレポートヘッダーの Format イベントで

実行なさればよろしいと思います。