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

質問

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

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

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

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

よろしくお願いします。

回答No.2

hatena1989 · ベストアンサー

知恵袋でも同じ質問をされてますね。
マルチポストと言ってあまりマナーがよくないこととされています。

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

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

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

お礼

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

回答No.1

m3_maki

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

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

補足

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

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

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