商品ごとに異なるシール枚数の印刷をしたいのですが、印刷枚数においてテーブルのリンクがされたエクセルのセルに入力されている数字をそのまま印刷枚数とすることができますでしょうか?
また一回の印刷ボタンのクリックでそれぞれのセルにある枚数を全て印刷することは可能でしょうか?
(アクセス及びエクセルのバージョンは2000を使用)
具体的にいいますと
(1)テーブルのリンクをしたエクセルデータを使用しています。内容は(2)の通りです。
(2)エクセルデータの件数は10件であり、項目は、A1:商品コード、B1:商品名、C1:印刷枚数とします。
(3)C2~C11には、それぞれの異なる印刷枚数が入力されています。
どなたかご存知の方がいらっしゃいましたら教えてください。宜しくお願いします。
No.1ベストアンサー
- 回答日時:
>商品ごとに異なるシール枚数の印刷をしたい
>テーブルのリンクがされたエクセルのセルに入力されている数字をそのまま印刷枚数とする
モジュールを使った方法とテーブルを使った方法があります。テーブルを使った方が簡単ですが・・。
テーブルを使う方法
連番を保存するテーブルを作ります。連番は1から印刷枚数の最大より多めに順に入力しておく。(例えばテーブル名をT連番としフィールドは連番とします)
リンクされているExcelシートのクエリでクエリを作ります。そのクエリにテーブル追加でT連番を追加し連番をクエリのフィールドに追加します。(ExcelソートのデータとT連番はリレーションを取らないように)連番の抽出条件に<=[印刷枚数]と記述します。
そのクエリを開くと印刷枚数分同じレコードが出来ます。
そのクエリをタックシートのレポートのレコードソースにして出力すれば印刷枚数に合わせて同じシールが出力されます。
モジュールを使う場合
レポートの詳細に非表示のテキストボックスを1つ作ります。例えばそのテキストボックス名をText1としExcelシートの印刷枚数のフィールド名を印刷枚数とした場合。
レポートの詳細のプロパティのフォーマット時のイベントに
Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)
Dim 指定枚数 As Integer
指定枚数 = Me!印刷枚数
If [Text1] <> 指定枚数 Then
[Text1] = [Text1] + 1
Else
[Text1] = 1
End If
End Sub
同様に印刷時のプロパティに
Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)
Dim 指定枚数 As Integer
指定枚数 = Me!印刷枚数
If [Text1] <> 指定枚数 Then
[Text1] = [Text1] + 1
Else
[Text1] = 1
End If
End Sub
を記述します。
これで出来ます。
試してみてください。
出来ました!!ありがとうございました。
とても助かりました。
テーブルのやり方は、どうしてこうなるのでしょうか。
もしお時間ありましたら、是非教えてください。
色々探したのですが、まだまだですね。反省と共に感謝いたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAで不特定枚数印刷をしたいです。 4 2022/08/02 07:30
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- フリーソフト 写真の一覧印刷ソフト 2 2023/07/28 16:48
- プリンタ・スキャナー シールを印刷したいです。 同じ正方形の画像を数十枚印刷したいです。1枚の紙に数十枚入る形で印刷したい 4 2022/03/29 19:01
- Excel(エクセル) エクセルの印刷マクロについて質問があります。 現在、下記のマクロで印刷しています。Sheet1のD6 5 2023/06/12 10:59
- Excel(エクセル) エクセル2013「次のページ数に合わせて印刷」が小さすぎる 9 2023/03/28 10:18
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- プリンタ・スキャナー 印刷時にグリス?が付着 1 2023/07/19 14:24
- Excel(エクセル) セルによって印刷するシートを変える方法 EXCEL-VBA 2 2022/08/01 20:48
- 年賀状作成・はがき作成 Wordによる宛名印刷 2 2023/01/04 15:36
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
ACCESSのレポートで、指定した数だけラベル印刷を行うには?
その他(データベース)
-
ACCESS2016 在庫数に応じた枚数のラベルを印刷したい
Access(アクセス)
-
Access 宛名ラベル レポートの印刷部数を指定し、印刷を行う方法
Access(アクセス)
-
-
4
ACCESS ラベルの枚数を指定して印刷したいんですが。
Access(アクセス)
-
5
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
6
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
7
アクセスで特定のレコードのみのレポートを印刷したいのですが。
Access(アクセス)
-
8
Accessで宛名ラベルに同一宛先を複数印刷したい
その他(プログラミング・Web制作)
-
9
Access レポート印刷するときに1ページに収める方法
Access(アクセス)
-
10
ボタン1つで1度に複数枚印刷するには?
Access(アクセス)
-
11
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
12
ACCESSで、フォームで抽出したものをレポートで印刷したいのですが・・・
Access(アクセス)
-
13
アクセスのレポートで同ページ内で2つ同じ内容を表示するには?
Access(アクセス)
-
14
アクセスのフォーム上でのカウントについて
Access(アクセス)
-
15
アクセスでテキストボックスを可視にしたい。
Access(アクセス)
-
16
Accessのフォームにて、詳細行のボタンを行の内容により、表示/非表
その他(Microsoft Office)
-
17
Access(office)のマクロの「値の代入」を使用するとき、式に
その他(データベース)
-
18
Access フォームで条件抽出したものを印刷プレビューしたい
Access(アクセス)
-
19
Accessの印刷部数設定について教えて下さい
その他(Microsoft Office)
-
20
iif関数で3つ以上条件を抽出したい場合
IT・エンジニアリング
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【EXCEL】【VBA】空欄は飛ばし...
-
PDFファイルがカラー印刷できない
-
PDFファイルを印刷すると黒くなる
-
KONICA MINOLTA C253 印刷の...
-
Twitterの投稿を印刷コピーしたい
-
Wordで複数枚印刷しようと...
-
メールの画像が印刷できません。
-
お札の透かしの位置にずれ?
-
印刷をかけるとなぜか文字だけ...
-
印刷方法の見分け方について
-
土日祝を省いた印刷
-
オートフィルタの印刷をしたい。
-
ブログを印刷したい
-
特定のファイルのみ印刷がされ...
-
会社に提出する地図(自宅から...
-
PVC(ポリ塩化ビニール)の有害...
-
右クリックができないページの...
-
ワードなどのB6を原寸でB5...
-
ウェブページを印刷するとき、...
-
Accessのレポートフッターの印...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
特定のファイルのみ印刷がされ...
-
PDFファイルがカラー印刷できない
-
【EXCEL】【VBA】空欄は飛ばし...
-
会社に提出する地図(自宅から...
-
PDFファイルを印刷すると黒くなる
-
テプラー:KING JIM SR720 連...
-
メールの画像が印刷できません。
-
エクセルを使って名簿を連続印...
-
国語辞典が第10版が第12版にな...
-
PDF印刷 一枚だけカラーにする方法
-
PDFの印刷が途中で終わってしま...
-
バックグラウンドとは?何度再...
-
PVC(ポリ塩化ビニール)の有害...
-
印刷の行間が飛んで印刷される
-
エクセルで複数ページを1枚に...
-
手紙で字が汚い時の添え書きは?
-
OutLookメールの一部分だけを印...
-
Twitterの投稿を印刷コピーしたい
-
プリンターの設定「印刷部数」...
-
Wordで複数枚印刷しようと...
おすすめ情報