商品ごとに異なるシール枚数の印刷をしたいのですが、印刷枚数においてテーブルのリンクがされたエクセルのセルに入力されている数字をそのまま印刷枚数とすることができますでしょうか?
また一回の印刷ボタンのクリックでそれぞれのセルにある枚数を全て印刷することは可能でしょうか?
(アクセス及びエクセルのバージョンは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
ボタン1つで1度に複数枚印刷するには?
Access(アクセス)
-
6
Accessの印刷部数設定について教えて下さい
その他(Microsoft Office)
-
7
Accessで宛名ラベルに同一宛先を複数印刷したい
その他(プログラミング・Web制作)
-
8
アクセスで特定のレコードのみのレポートを印刷したいのですが。
Access(アクセス)
-
9
「Access」 レポート上の値を印刷部数にする方法について教えてください。
Access(アクセス)
-
10
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
11
Access フォームで条件抽出したものを印刷プレビューしたい
Access(アクセス)
-
12
Access2013 レポートを印刷するために開いた、レポートビューをVBAで閉じる方法を教えて。
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PDFファイルがカラー印刷できない
-
特定のファイルのみ印刷がされ...
-
【EXCEL】【VBA】空欄は飛ばし...
-
Webぺージの印刷が途中まで...
-
PDF印刷 一枚だけカラーにする方法
-
OutLookメールの一部分だけを印...
-
手紙で字が汚い時の添え書きは?
-
PDFファイルを印刷すると黒くなる
-
EXCELのマクロで、モノクロ印刷...
-
テプラー:KING JIM SR720 連...
-
(エクセルマクロ)DBの中で、...
-
【至急】印刷時に、HTMLのよう...
-
バックグラウンドとは?何度再...
-
Windows Media Player画面の印刷
-
googleスプレッドシートで印刷...
-
高校1年生の数学の問題なんです...
-
エクセルで複数ページを1枚に...
-
機密文書を印刷できなくするには
-
特定のホームページのweb印刷が...
-
セルのフォント色と背景色
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PDFファイルがカラー印刷できない
-
【EXCEL】【VBA】空欄は飛ばし...
-
特定のファイルのみ印刷がされ...
-
テプラー:KING JIM SR720 連...
-
PDFファイルを印刷すると黒くなる
-
PDF印刷 一枚だけカラーにする方法
-
Twitterの投稿を印刷コピーしたい
-
手紙で字が汚い時の添え書きは?
-
メールの画像が印刷できません。
-
エクセルを使って名簿を連続印...
-
バックグラウンドとは?何度再...
-
OutLookメールの一部分だけを印...
-
印刷の行間が飛んで印刷される
-
PDFの印刷が途中で終わってしま...
-
PVC(ポリ塩化ビニール)の有害...
-
プリンターの設定「印刷部数」...
-
エクセルでコメント印刷すると...
-
会社に提出する地図(自宅から...
-
エクセルで複数ページを1枚に...
-
ワードなどのB6を原寸でB5...
おすすめ情報