• ベストアンサー

Access2000Proで枚数指定印刷をしたい

Access2000Proにてフォームを使用し、印刷を行っています。 その際「印刷枚数」を入力し印刷ボタンにマクロを割当し印刷を行っています。 現在は、マクロを利用し、その入力された回数分だけそのマクロを繰り返すようになっていますが、これを、繰り返しで無く、直接部数指定は出来ないでしょうか?

  • yara
  • お礼率76% (128/168)

質問者が選んだベストアンサー

  • ベストアンサー
  • DexMachina
  • ベストアンサー率73% (1287/1744)
回答No.3

No.1,2です。 > その中の特定の値が「9」のものだけを選択して、それだけを印刷するものなのです。 レポートのプレビューで表示させたレコードの全てが印刷したいわけではない、ということでしょうか? 確かフォームと違って、レポートでは後から抽出を行うことはできなかったように思います。 (フォームでしたら、「フィルタの実行」アクションで対応できるのですが) 具体的にどういうデータなのかわからないので、ご要望に添う形ではないかもしれませんが、  1)現在、レポートで行っているレコードの確認は、フォームでの確認にする   (フォームのレコードソースを、レポートと同じものにする)  2)「クエリを開く」アクションの「Where条件式」の引数に「[特定フィールド]=9」を指定して、   現在使用しているクエリを開く という方法では対処できないでしょうか。 なお、「特定の値が「9」」以外のものを表示させる必要がないのでしたら、クエリ自体に その条件を組み込んでしまえば、レポート等に変更を加える必要はなくなります。

yara
質問者

お礼

大変参考になりました。 遅れましたが、御礼です。

その他の回答 (2)

  • DexMachina
  • ベストアンサー率73% (1287/1744)
回答No.2

> 印刷アクションですと、そのレポートの指定が出来ないように思うのですが・・・。 そういう場合は、「オブジェクトの選択」アクションを「印刷」の前に実行することで、コマンドボタンが置かれているフォームとは別のオブジェクトの印刷が可能になります。 具体的には、  「オブジェクトの種類」=レポート  「オブジェクト名」=印刷したいレポートの名前 を指定します。 (既に開いているレポートであれば、「データベースウィンドウ内」の引数は既定値の「いいえ」のままでOKです)

yara
質問者

補足

なるほど~。 ちょっと迷いましだが、出来ました。 それで、すみません、もう少し教えて頂きたいのですが・・・。 実は、その印刷は「クエリ抽出データ」を使用していまして、その抽出データは1回につき複数あるのです。その中の特定の値が「9」のものだけを選択して、それだけを印刷するものなのです。 そんな、条件文を入れられるものはあるのでしょうか? 補足というより、もろ新規の質問みたいで恐縮です。

  • DexMachina
  • ベストアンサー率73% (1287/1744)
回答No.1

マクロを組まれているのでしたら、「印刷」アクションの「部数」引数を設定、ではだめですか? 私は印刷をさせるマクロは組んだことがないのですが、ここには式を入力することも可能なようです。 (Access97で確認) 「印刷枚数」が「MF_印刷」というフォームにあるとしたら、「部数」に「=Forms!MF_印刷!印刷枚数」と入力してやれば、ご希望の動作が可能になるのではないでしょうか。 (式の先頭に「=」をつけるのがポイントです)

yara
質問者

補足

回答ありがとうございます。 「印刷」アクションの「部数」引数なのですが、ちょっと試してみましたが、良く分かりません。 というのは、フォーム中に「部数入力欄」と「印刷するためのボタン」を作成してあり、そこに部数を入力→印刷ボタンという流れで、別で作成してあるレポートを印刷したいのです。 印刷アクションですと、そのレポートの指定が出来ないように思うのですが・・・。

関連するQ&A

  • ACCESS レポートの印刷枚数指定について

    商品ごとに異なるシール枚数の印刷をしたいのですが、印刷枚数においてテーブルのリンクがされたエクセルのセルに入力されている数字をそのまま印刷枚数とすることができますでしょうか? また一回の印刷ボタンのクリックでそれぞれのセルにある枚数を全て印刷することは可能でしょうか? (アクセス及びエクセルのバージョンは2000を使用) 具体的にいいますと (1)テーブルのリンクをしたエクセルデータを使用しています。内容は(2)の通りです。 (2)エクセルデータの件数は10件であり、項目は、A1:商品コード、B1:商品名、C1:印刷枚数とします。 (3)C2~C11には、それぞれの異なる印刷枚数が入力されています。 どなたかご存知の方がいらっしゃいましたら教えてください。宜しくお願いします。

  • ACCESS ラベルの枚数を指定して印刷したいんですが。

    ACCESS2003で荷物の送り状を作っています。 フィールドには、宛先名、住所、個数、重量などの情報を入れますが、 これを利用して、荷物を発送するときのラベルを作りたいのです。 ラベルの発行枚数を入力すると、レポートにその分のラベルが印刷されるようにしたいのですが、どのようにしたらよいのでしょうか。 初心者です。どうぞよろしくお願いいたします。

  • アクセスのフォーム上に個人データの一覧があり、その一つ一つに「印刷指定

    アクセスのフォーム上に個人データの一覧があり、その一つ一つに「印刷指定」のトグルボタンを作っています。このボタンにチェックしたもののみレポートを開いて、印刷するようにマクロを作成したいのですが、条件式の作り方がわかりません。マクロでなくても他の方法でもよいです。トグルボタンのチェックあり、なしの場合はどのように表記するのでしょうか。どなたか御教授下さい。よろしくお願いいたします。

  • ACCESS97で単表フォーム上からレポート印刷をする。

    ACCESS97でマクロを使用しています。 単表フォーム上にコマンドボタン(レポートを開くマクロを使用し、単表フォームのIDを入力し印刷しています。)を配置しています。 レポートを印刷するのに、IDの入力を省略したい、どうすれば良いでしょうか。 マクロまたはVisual Basicでお願いします。

  • アクセスの印刷VBAを教えて下さい

    アクセス初心者です。 バージョンは2002を使っています。 ネットで探して詳しく分からないままプログラムしています。 フォームで印刷のコマンドボタンを作ってそのボタンをクリックすると表示されてる 1ページのみ印刷したいのですが全てのレコードが印刷されてしまいます。 どうすればいいのか教えて下さい。 下記が今現在のVBAです。 Private Sub 印刷_Click() Dim varCopies As Variant varCopies = InputBox("部数を数字で入力してください", "印刷部数の指定") If Len(varCopies) = 0 Then Exit Sub End If If IsNumeric(varCopies) = False Then MsgBox "部数は数字で入力してください", vbOKOnly + vbCritical, "入力エラー" Exit Sub ElseIf CLng(varCopies) = 0 Then MsgBox "部数は0以上で入力してください", vbOKOnly + vbCritical, "入力エラー" Exit Sub End If If MsgBox("印刷しますか?" & vbCrLf & "部数=" & varCopies _ , vbYesNo + vbInformation, "印刷の確認") = vbYes Then DoCmd.OpenForm "伝票", acPreview, , , acFormReadOnly DoCmd.PrintOut acPrintAll, , , , CLng(varCopies) DoCmd.Close acForm, "伝票" End If End Sub

  • ACCESSフォームの印刷について

    Accessのフォームにボタンを作成し、マクロで印刷できるように設定しています。 ただ、フォームのサイズがB4のため、ボタンを押し印刷すると当然B4になってしまいます。 これをA4に縮小して印刷するようにするにはどうしたらいいでしょうか? いい方法を知っている方がいましたら、ご回答お願いします。

  • エクセルの印刷指定

    お世話になります。 エクセルのシートが10枚あるとします。 Sheet1の名前は「指定表」Sheet2以降は「1枚目・・・9枚目」と変更してあります。 VBAで「指定表」のA1に「1」と入力しマクロの登録ボタンを押すと、「1枚目」が出力され、以下「2」と入力し登録ボタンを押すと「1枚目」と「2枚目」が出力される、「3」なら「1~3枚目」が出力される。 と言うように入力された数値の値のシートの枚数が出るようなマクロをご教示ください。

  • ACCESS2002にてバーコード印刷を連続用紙に指定枚数分だけしたい

    ACCESS2002にてバーコード印刷を所定枚数分だけしたいと思います、複数のデータの中から、1データだけを抜粋して所定連続用紙に指定した枚数分だけを印刷したいので詳細に教えて下さい。当方初心者です

  • Access2000でリスト指定の印刷

    現在Access2000で顧客管理のデータベースを作成しています。 指定したレコードだけを印刷する、指定レコード印刷フォームを作成しようと思い、フォームにリストボックスを貼り付け、そのフォームに印刷ボタンを作成しました。 その、印刷ボタンのプロパティ(クリック時)のイベント設定は、次のように設定したのですが、うまく動きません。 Private Sub 印刷ボタン_Click() On Error GoTo Err_印刷ボタン_Click Dim stDocName As String Me.Visible = False stDocName = "kokyaku_report" DoCmd.OpenReport stDocName, acNormal, , "id = " & id Exit_印刷ボタン_Click: Exit Sub Err_印刷ボタン_Click: MsgBox Err.Description Resume Exit_印刷ボタン_Click End Sub ちなみに、テーブルの主キーは「id」としております。 申し訳ありませんが、お分かりの方がいらっしゃったら宜しくお願い致します。

  • 印刷枚数を表示させるには?

    ACCESS2000のフォームを使ってクエリを表示させています。フッター部分に「現在の印刷枚数/全体の印刷枚数」を表示させるにはどうしたらよいでしょうか。 http://oshiete1.goo.ne.jp/kotaeru.php3?q=672533 にて質問してますが、カテゴリ違いのため、訂正させていただきました。

専門家に質問してみよう