商品ごとに異なるシール枚数の印刷をしたいのですが、印刷枚数においてテーブルのリンクがされたエクセルのセルに入力されている数字をそのまま印刷枚数とすることができますでしょうか?
また一回の印刷ボタンのクリックでそれぞれのセルにある枚数を全て印刷することは可能でしょうか?
(アクセス及びエクセルのバージョンは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も見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
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のフォームのテキストボックスにLOOKUPで表示したい
Access(アクセス)
-
12
Accessでコードを入れると名前がでるようにしたい
Access(アクセス)
-
13
アクセスのレポートで同ページ内で2つ同じ内容を表示するには?
Access(アクセス)
-
14
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
15
このオブジェクトに値を代入することはできません
その他(データベース)
-
16
アクセスでテキストボックスを可視にしたい。
Access(アクセス)
-
17
Access2003レポート:最終ページへ移動
その他(プログラミング・Web制作)
-
18
アクセスのフォーム上でのカウントについて
Access(アクセス)
-
19
Accessのフォームで、画面表示されているものを印刷する
Access(アクセス)
-
20
iif関数で3つ以上条件を抽出したい場合
IT・エンジニアリング
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【EXCEL】【VBA】空欄は飛ばし...
-
特定のファイルのみ印刷がされ...
-
PDFファイルがカラー印刷できない
-
印刷の行間が飛んで印刷される
-
PDFファイルを印刷すると黒くなる
-
テプラー:KING JIM SR720 連...
-
バックグラウンドとは?何度再...
-
プリンターの設定「印刷部数」...
-
OutLookメールの一部分だけを印...
-
Webページ印刷時にヘッダー・フ...
-
メールの画像が印刷できません。
-
windows media playerの画像を...
-
PDF印刷 一枚だけカラーにする方法
-
ExcelでのVBA チェックボック...
-
エクセルを使って名簿を連続印...
-
Twitterの投稿を印刷コピーしたい
-
会社に提出する地図(自宅から...
-
PDFの印刷が途中で終わってしま...
-
横向き印刷を固定したいです。
-
マクロ実行時 ウィンドウで実...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
特定のファイルのみ印刷がされ...
-
PDFファイルがカラー印刷できない
-
会社に提出する地図(自宅から...
-
パソコンが壊れて肝心なときに...
-
【EXCEL】【VBA】空欄は飛ばし...
-
PDFファイルを印刷すると黒くなる
-
テプラー:KING JIM SR720 連...
-
メールの画像が印刷できません。
-
エクセルを使って名簿を連続印...
-
手紙で字が汚い時の添え書きは?
-
Twitterの投稿を印刷コピーしたい
-
PDF印刷 一枚だけカラーにする方法
-
PDFの印刷が途中で終わってしま...
-
バックグラウンドとは?何度再...
-
印刷の行間が飛んで印刷される
-
PVC(ポリ塩化ビニール)の有害...
-
Wordで複数枚印刷しようと...
-
エクセルで複数ページを1枚に...
-
Windows 10 印刷出来ない
-
エクセルでコメント印刷すると...
おすすめ情報