Accessの印刷部数設定について教えて下さい

Access2007のレポート印刷で部数を設定する方法について教えてください。

コンボボックスやテキストボックスを使わず、メッセージボックスに"印刷部数を入力して下さい"とメッセージが出て、部数を入力するという方法にしたいのですが、わかりません。
イメージとしては

http://support.microsoft.com/kb/879856/ja

のようなかんじで、ラベル位置の代わりに部数に入力できるようにしたいと考えております。

よろしくお願いします。

No.2 ベストアンサー 回答者： hatena1989 回答日時： 2013/04/11 17:38

知恵袋でも同じ質問をされてますね。

マルチポストと言ってあまりマナーがよくないこととされています。

「印刷部数」を指定したいのか、「ラベルの繰り返し枚数」を指定したのか、明確でないですね。

「印刷部数」を指定する方法は知恵袋で回答しましたので、「ラベルの繰り返し枚数」を指定する方法を紹介します。

Option Compare Database
Option Explicit

Private 枚数 As Integer
Private カウント As Integer

Private Sub report_open(Cancel As Integer)

枚数 = Val(InputBox("繰り返し枚数を入力してください"))
If 枚数 < 0 Then
枚数 = 0
End If
カウント = 1

End Sub

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

If カウント < 枚数 Then

Me.NextRecord = False
Me.MoveLayout = True
Me.PrintSection = True
End If

End Sub

Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)

If カウント < 枚数 Then
カウント = カウント + 1
Else
カウント = 1
End If

End Sub

この回答へのお礼

どちらでも回答ありがとうございます。
マルチポストということで、大変申し訳ございません。以前知恵袋に質問した際、回答がつかなかったので、
両方利用させて頂いていました。今後はどちらかにしか質問しないように致します。
大変申し分けございませんでした。

お礼日時：2013/04/15 16:43

No.1 回答者： m3_maki 回答日時： 2013/04/11 10:45

こちらが参考になるでしょう。

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

この回答への補足

ご回答ありがとうございます。

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

このやり方ではないやり方を教えて頂きたく、質問しました。
上記ですと、テーブル・クエリを作成しなくては出来ません。
http://support.microsoft.com/kb/879856/ja
のように、レポートだけで出来なるようなものを教えて頂きたく質問しました。
質問がわかりづらくてすみません。

補足日時：2013/04/11 13:43