アクセスにおける宛名ラベル任意の場所からのの印刷

質問

マイクロソフトのアクセス2010を使用し始めた初心者です。
宛名ラベル（２列×６行、１２枚構成）の任意の場所、たとえば、３枚印刷した残りの場所から、つまり４枚目のところから印刷をするようなことをしたいのですが。
ネットで　http://www.newsbit.org/vol09/index.html　を見て、やってみたのですが、印刷プレビューでは、正しく表示されるのですが、実際印刷してみると、最初の場所からしか印刷できません。
自宅、職場、どちらの環境で行っても同じ結果です。
どなたか、お教え願います。

回答No.1

m3_maki

> http://www.newsbit.org/vol09/index.html

十分、テストもせずにアップしたんでしょうね。
ほとんど素人のコードです。
Option Explicit を記述しないレベルの人のコードは参考にしてはいけません。

-----------------------------------
現在のものを動くように修正する方法です。

レポートのデザインで、レポートヘッダー/フッター を追加してください。
どちらも高さは 0 にします。
コードは、以下のように。

Option Compare Database
Option Explicit

Dim intSkip As Integer
Dim intSkipNum As Integer

Private Sub レポートヘッダー_Format(Cancel As Integer, FormatCount As Integer)
　　If Len(Forms![フォーム1]![テキスト1]) > 0 Then
　　　　intSkipNum = Int(Forms![フォーム1]![テキスト1]) - 1
　　Else
　　　　intSkipNum = 0
　　End If
　　intSkip = 0
End Sub

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
　　If intSkip < intSkipNum Then
　　　　MoveLayout = True
　　　　NextRecord = False
　　　　PrintSection = False
　　　　intSkip = intSkip + 1
　　End If
End Sub

-----------------------------------

他にもいろいろな方法がありますので興味があればご覧ください。

Access 2002 で印刷済みの宛名ラベルをスキップする方法および複数個印刷する方法
http://support.microsoft.com/kb/299024/JA

宛名ラベルを指定位置から指定枚数 印刷する方法
http://www.f3.dion.ne.jp/~element/msaccess/AcTipsRptHowToPrintRabelSpecificNumber.html

お礼

早速のご返答、ありがとうございます。
当方、初心者のため、ご返答に対して反応できていない状態です。
ですが、いろいろ勉強して、アドバイスを参考に対処していこうと思います。