ネットが遅くてイライラしてない!?

宛名ラベル印刷について教えてください。
テーブルに1件(1レコード)の宛名があります。それをソースに宛名ラベルを作成
すると、1枚分の宛名ラベルが印刷されるのですが、1ページの宛名ラベル全てに
(12枚とか16枚とか)同じ宛名を印刷する方法はありますか?
テーブルに、12レコードとか16レコードぶん同じ内容をコピーすればできますが、
あくまで1レコードで・・・。
どなたかお教えください。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

なるほど!VBAですか!


では下記のページでわかりますよ!

参考URL:http://www.microsoft.com/JAPAN/support/kb/articl …
    • good
    • 0
この回答へのお礼

ありがとうございます。解決しました!

お礼日時:2002/03/24 10:09

一つの宛名につき複数のラベルを印刷するのなら、単純にレポートのデザインビューで、詳細セクションの項目を12個コピーすればよいのではないでしょうか。


こうすれば、一つのレコードにつきコピーした数だけ印刷されると思います。
私もまだまだ初心者なので、わかる範囲でのアドバイスです。

この回答への補足

宛名ラベルウィザードで作成した場合、詳細部分は基本的に1つです。ここの長さを
変更すると指定のラベルに合わなくなります。ウィザードを使用せずレポートを
作成する場合、ラベルに合うようにレイアウトするのは困難・・・。
12個コピーする方法でしたら、テーブルに同じ宛名を12レコードコピーするほうが
スマート(?)のような気がします。実際、その方法ではできるんですけど、VBA
なんかを使えば1レコードのままスマートにできるのかなと・・・。

補足日時:2002/03/17 16:58
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QAccessでの宛名ラベル出しについて

ホントに初心者です。
Accessでラベルを出す際に、テーブルには何件もデータが入っているのですが、その中のいくつかをピックアップして、なおかつ、一枚の用紙に同じ宛先を複数印刷したい時はどのようにすればよいでしょうか?
分かりやすく教えて頂ければ幸いです。

Aベストアンサー

>一枚の用紙に同じ宛先を複数印刷したい時はどのようにすればよいでしょうか?

モジュールを使った方法とテーブルを使った方法があります。テーブルを使った方が簡単ですが・・。

テーブルを使う方法
連番を保存するテーブルを作ります。連番は1から印刷枚数の最大より多めに順に入力しておく。(例えばテーブル名をT連番としフィールドは連番とします)
別々の枚数が必要ならラベルの元になるテーブルに印刷枚数というフィールドを作りそこに必要な枚数を入力しておきます。
そのテーブルを元にクエリを作りそのクエリにテーブル追加でT連番を追加し連番をクエリのフィールドに追加します。(テーブルとT連番はリレーションを取らないように)連番の抽出条件に<=[印刷枚数]と記述します。
そのクエリを開くと印刷枚数分同じレコードが出来ます。
そのクエリをラベルのレポートのレコードソースにして出力すれば印刷枚数に合わせて同じシールが出力されます。

全て同じ枚数ならクエリの抽出条件を変えれば出来ます。
連番の抽出条件に
<=[何枚出力しますか]
と記述します。レポートをプレビューや印刷をする際に[何枚出力しますか]というパラメータダイアログが表示されますのでそこに出力したい枚数を入力すればラベルが入力された数字の枚数出力されます。

モジュールを使う場合
レポートの詳細に非表示のテキストボックスを1つ作ります。例えばそのテキストボックス名をText1としテーブルトの印刷枚数のフィールド名を印刷枚数とした場合。
レポートの詳細のプロパティのフォーマット時のイベントに
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
を記述します。
これで出来ます。

試してみてください。

>その中のいくつかをピックアップして
抽象的すぎますが・・作ったクエリで必要なレコードを抽出できるような抽出条件を作らないとできません。
例えばテーブルにYes/No型のフィールドを追加して出力したいレコードにチェックをしれクエリでそのフィールドに
True
と条件をいれればチェックされているレコードだけ抽出できます。
このように抽出条件を考えてみてください。

>一枚の用紙に同じ宛先を複数印刷したい時はどのようにすればよいでしょうか?

モジュールを使った方法とテーブルを使った方法があります。テーブルを使った方が簡単ですが・・。

テーブルを使う方法
連番を保存するテーブルを作ります。連番は1から印刷枚数の最大より多めに順に入力しておく。(例えばテーブル名をT連番としフィールドは連番とします)
別々の枚数が必要ならラベルの元になるテーブルに印刷枚数というフィールドを作りそこに必要な枚数を入力しておきます。
そのテーブルを元にクエリ...続きを読む

Qアクセスで特定のレコードのみのレポートを印刷したいのですが。

アクセス2003である特定のレコードのみのレポートを印刷したいと思っています。現在開いているフォームのレコードのみを印刷(レポートとして)印刷するには、ファイル→印刷→ページ指定で現在印刷しているのですが、他に方法はないでしょうか?単に「レポートの印刷」とすると全てのレコードが印刷されてしまいます。今のところ特定のレコードのみ印刷するには、まずページ数を調べなければいけないので不便です。せっかくパラメータクエリなどで、そのレコードのフォーム画面を表示させても、レポート印刷につながらないので、どなたか良い方法を教えていただけないでしょうか?よろしくお願いいたします。

Aベストアンサー

レポートの基となるクエリを開きます。
フォームに表示されている項目の中で主キーとなるフィールドがどれかを決めます。
そのクエリの中でその主キーフィールドのWHERE条件の欄を選択してビルドを開きます。
レポートを選択するフォームの一覧を開きます。
先ほど選んだ主キーの項目を選んでダブルクリックします。
Ok
そうすれば、フォームから印刷ボタンを押せば開いているページだけが印刷されます。
但し、複数ページの指定をするには、更に複雑な設定が必要ですが、
今の照会した方法を応用すればできるはずです。

Qアクセスで郵便番号にハイフンをつけて印刷したい

アクセスの得意な方、教えてください。
データベースの実データはハイフン無しの7桁の
半角数字の郵便番号を印刷する時、
「999-9999」と、3桁目と4桁目の間にハイフンを
入れタイのですが、どうやったらいいか分かりません。
レポートの郵便番号のプロパティの何処でどのように
設定すればハイフン入りで印刷できるのでしょうか??
教えてください!!

Aベストアンサー

一番てっとり早い方法としてオススメです。

1.レポートの郵便番号のプロパティ
2.[データ]タブの[定型入力]で右端のボタンをクリック
 (こんな形のボタンです。 [・・・] )
3.ウィザードで、「郵便番号」を選んで、「次へ」
4.ずっと「次へ」で「完了」

あっという間に簡単にできますよ。

QAccess 同じデータをたくさんのレコード(同一列)に一度に入力するには

いつもお世話になっています。
Accessの基本的な入力に関して教えてください。
同じデータをたくさんのレコード(同一フィールド)に一度に入力するには、どうすればよいか教えてください。

Excelの列方向へのコピーと同じような感覚でできないのでしょうか?

よろしくお願いします。

Aベストアンサー

質問の回答にならないかも知れませんが・・・

1.EXCELでコピーするための元データを作成します
  ※仮にレコードが1000件ある場合はEXCELで1000行作ります。

2.Excelのデータをコピーします。

3.Accessのテーブルを開きます。

4.先頭レコードの貼り付けをしたい項目にカーソルを合わせます。(カーソルは白の十字)

5.下方向へドラッグし、項目を選択します。

6.貼り付けをします。

※貼り付けに失敗した場合、元に戻せませんので必ず元ファイルのコピーを取ってから行ってください

よろしければ、お試し下さい

QAccessのRefresh・Requery・Repaintの違い

Requeryはもう一度ソースレコード(テーブル)を読み込むようです。このとき、テーブルの先頭レコードに移動してしまいます。
Refreshは最新のレコード(テーブル)を再表示するような気がします。レコードの移動は起こらない気がします。
Repaintは、VBAでキャプションなどを変更したとき使っています。
でも、よくわかっていません。
どんなときにどんなメソッドを使えばいいのでしょうか?
詳しい方、よろしくお願いいたします。

Aベストアンサー

たびたびすみません。
調べてたらこんなのがでてきました。
http://www.nurs.or.jp/~ppoy/access/access/acF007.html

参考URL:http://www.nurs.or.jp/~ppoy/access/access/acF007.html

QWordの差込印刷、同じラベルを複数作るのは?

Wordの差込印刷で質問です。Excelのお客さまデータを使い一人あたり10枚のラベル(10面1枚)を作成したいと思います。
データを10回コピーすればできるとは思いますが、簡単に作れる方法があるのではないかと思います。ご存知の方教えてください。

Aベストアンサー

#2でご回答有りますが、差込印刷では
<<フィールド名>><<NextRecord>> の<<NextRecord>>が入る事で
エクセルなどの次ぎの行の「フィールド名」のデータを見に行く(行かせる)のです。
これを10個あるフィールド指定とNextRecordの対のうち、最後のNextRecordだけ残し、他のシール区画のものを消すと、同じ行のデータを使うため、同じ内容が10個出ます。そして最後の次ぎすなわち新ページ用紙だけ次の行を見に行くので、内容が変わり増すので、目的のようになります。

QAccessで宛名ラベルに同一宛先を複数印刷したい

Access2010で下記宛先テーブルに対して、フォームで印刷したい宛先と枚数を指定することで同一の宛先のラベルを複数枚印刷することを考えています。

宛先テーブル(コード、名称)
1、会社A
2、会社B
3、会社C



例えば

コード:2 枚数:20

とフォームで入力し、同フォームに配置した[印刷]ボタンを押すと管理用の乱数とともに20枚分の宛名ラベルを印刷します。


会社B   会社B
2183 3901

会社B   会社B
5563 4231

 ・      ・
 ・      ・
 ・      ・

同じような過去の質問と回答も拝見しましたが、それぞれ求める内容が微妙に異なりマッチしませんでした。
皆様のお知恵を拝借致したくよろしくお願いいたします。

Aベストアンサー

>管理用の乱数
はボタンを押した時に適当に作ってかまわないのですよね?
それともルールが有るのかな?
または、もう用意されている?
Rnd関数でも重複する可能性が有るので、「ごめん、ごめん」ですむ話なのか
「切腹してお詫びを」になってしまうのか・・・。
管理用の乱数さえ考えなくて良ければ先人の方が紹介されていますが
http://www.f3.dion.ne.jp/~element/msaccess/AcTipsRptHowToPrintRabelSpecificNumber.html
乱数が絡んでくるとレコードセットを廻しつつ・・・になると思います。
http://hatenachips.blog34.fc2.com/blog-entry-210.html

YU-TANG氏とhatena氏の所でAccessに関しては256%解決?

Q[ACCESS][レポート]2列に印刷がしたい

ACCESSのレポートで、ひとつのテーブルの内容を、2列に印刷することは可能でしょうか?
たとえばA4ヨコの用紙で、印刷する項目が3つしかなかった場合、右に余白ができてしまうので、印刷する項目が用紙の下までいったら、次に右上からもう一列印刷をする、というようなことを実現したいのです。

Aベストアンサー

先日同じ質問に回答しました。

参考URL:http://oshiete1.goo.ne.jp/kotaeru.php3?q=250509

Qアクセエスのレコードの更新をVBAでするには?

アクセスで、一覧表のフォームにボタンを取りつけています。レコードの内容を変更したら、ペンの形のマークが現れますね。これは変更中ということですが、そこでボタンを押しても変更は確定されないから、更新確定させたいのです。

それで、DoCmd.Requery を最初の行に入れてみたら、元の一覧表は最初のレコードに飛んでしまう。

元の一覧表の位置を動かさないために、Ctrl+Enter キーを押して更新確定させたような状態をVBAで実現する方法あるのでしょうか?

よろしくお願いします。

Aベストアンサー

No1 です。
今回の場合には
Docmd.RunCommand acCmdSaveRecord の方が良かったですね
文字通りレコードを保存します。
Requery に引きづられてしまいました (^_^;)

Recalc、Refresh、Requery の使い分けは下記が参考にはなりますか?
http://www.nurs.or.jp/~ppoy/access/access/acF007.html

QACCESSのフォームからデータの追加ができない

現在Accessの基本を勉強中です。
テーブルを元にフォームを作成し、フォームから新しく名前や会社名などを直接入力し、追加できるようにしたいです。
ところがフォームから入力を行うと、内容が追加されず一番最初に登録した人の名前が書き換わるだけになります。
どのように新しくデータを追加できるようになるのでしょうか?
まったくの初心者なので、どの機能を使えばよいか戸惑ってます。
どうかよいご意見をお願い致しますm(__)m

Aベストアンサー

データを追加する場合は、新規レコードに移動(=新規レコードを選択)する必要があります。

最も簡単なのは・・・
そのフォームの最下方に、レコードセレクタ(『レコード: [|<][<][   1][>][>|][*]/1』といった
感じの部分)が表示されていたら、そこで『[*]』のボタンを押すと、新規レコードに移動できます。
(もしレコードセレクタが表示されていないようなら、フォームのプロパティシートを開いて、
 『書式』タブの『レコードセレクタ』の設定値を「はい」にして下さい)

他には、
 ・フォーム自体を入力専用にする
 (フォームのプロパティシートの『データ』タブで『データ入力用』を「はい」に設定:
  既存のレコードは表示されなくなります)
 ・レコード移動用のコマンドボタンを設置する
 (フォームをデザインビューで開き、ツールボックス(矢印や、新規のテキストボックス等を
  設置する際に使用するツールバー)の左から二番目にあるウィザードボタンが押された
  状態にして、新規コマンドボタンを設置すると、簡単に作れると思います)
といった方法があります。

データを追加する場合は、新規レコードに移動(=新規レコードを選択)する必要があります。

最も簡単なのは・・・
そのフォームの最下方に、レコードセレクタ(『レコード: [|<][<][   1][>][>|][*]/1』といった
感じの部分)が表示されていたら、そこで『[*]』のボタンを押すと、新規レコードに移動できます。
(もしレコードセレクタが表示されていないようなら、フォームのプロパティシートを開いて、
 『書式』タブの『レコードセレクタ』の設定値を「はい」にして下さい)

他には、
 ・フォー...続きを読む


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング