ここから質問投稿すると、最大4000ポイント当たる!!!! >>

Word(2013)でA4サイズ4ページ分の文書を作成し、そこにExcelで作った住所録を差し込み、小冊子設定(B4)で印刷を実行したところ、出力されるときに1枚目は住所録の先頭のデータ分が出力され、2枚目は住所録の最終行のデータ分が裏向きに出力され、3枚目は2件目という風に互い違いに出力されるのですが、原因や改善方法など教えていただけないでしょうか?(説明下手で申し訳ありません)

質問者からの補足コメント

  • ※プリンターの機種はリソーのORPHIS EX9050です。

      補足日時:2017/01/26 12:22

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

A 回答 (4件)

こちらでテストで作成した手順を書きます。

こちらではうまくいきました。
まず、ページ設定→余白タブ→印刷の向きを「横」→真ん中あたりの「複数ページの印刷設定」を「本(縦方向に谷折り)」→下の「1冊あたりの枚数」を「すべて」にする
用紙タブでB4を指定

入力画面はB5サイズで表示されるのでそこに差し込む

全部差し込み終わったら、印刷→設定カテゴリの「片面印刷」を「両面印刷 短辺を綴じる」へ変更→用紙がB4になっていることを確認し印刷。

もしできあがったページ数が4の倍数でなかったら、これは1枚に4面作る設定なのでうまくいかないかも知れないため改ページ挿入などで全ページ数が4の倍数になるように調整してください。
    • good
    • 0
この回答へのお礼

ありがとうございました!!

お礼日時:2017/01/26 16:41

No.3さんのアドバイスと似ていますが、一部違うので回答をしますね。



印刷したいのは、こちら↓のような割り付けですよね。
http://www.office-qa.com/Word/wd39.htm

差し込み印刷で4ページ分用意していることも理解できないのですが、
小冊子印刷でB4サイズで印刷したいのなら、No.3さんのアドバイスと
同じでB4サイズにしたほうが良いと思います。
小冊子印刷で指定するとなると、印刷用紙と同じで用意したほうが確実
ですから。
質問例だと、B4サイズで[印刷の向き]が[横]、[複数ページの印刷設定]
を[本(縦方向に谷折り)]で指定します。

差し込み印刷をするなら、上記の指定で1ページ分用意し差し込む部分の
レイアウトをして、[完了と差し込み]にて[個々のドキュメントの編集]で
新規文書へと差し込まれたものを、通常の印刷の手順で印刷すれば、
希望している割り付けになると思います。

各ページがセクションで区切られますが、印刷したときにはページ単位
で割り付けされて裏表にそれぞれページ順で配置されます。
    • good
    • 0
この回答へのお礼

ありがとうございました!!

お礼日時:2017/01/26 16:41

えっと、つまりもとはA4が4枚分だったという事ですか?


それを
>B41枚で見開きで出力しなさい
というのは、B4で冊子を作るということ?それともB4が1枚の裏表?それとも表面だけに印刷?
    • good
    • 0
この回答へのお礼

B4の表側の右半分に1ページ目、2ページ目は裏面の左半分、3ページは同右半分、4ページは表面の左半分に印刷で二つ折にすれば見開きの冊子になるとういう感じです。

お礼日時:2017/01/26 12:37

>小冊子設定(B4)



ってプリンターの設定?
冊子だから、普通は袋とじで印刷して真ん中で綴じるようにするからそんな順番で印刷されるのでは?
そもそも冊子にしたいんですか?
    • good
    • 0
この回答へのお礼

以前はA4裏表を2枚出力してホッチキス止めで出力していたのですが、B41枚で見開きで出力しなさいと上司から指示があり、やむを得ずこの形式にしました。200件ぐらいの名簿になると、出力後に順番どおりに並べ替える作業が大変で、何かいい方法がないかとさがしていたところです。

お礼日時:2017/01/26 12:18

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

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

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

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

Qexcelからexcelへの差し込み印刷

お世話になります。

excelでwordへの差し込み印刷をよく利用するのですが、
同様に、
excelのデータをexcelに流し込んで印刷する方法はありますでしょうか。

excelの名簿のデータを
excelの表のフォーマットに流し込んで
1人づつ印刷したいのですが。

お分かりの方いらっしゃいました教えてください。
どうぞ宜しくお願い致します。

Aベストアンサー

イメージはわかるが、エクセルに差込印刷の機能はありません。
ワードなどと違ってA.X氏1人分書類シート作成、B印刷、Aのシートををy氏分のデータでシート内容(セル)を置き換え、印刷、の繰り返しをします。
ーー
例データ Sheet1 A1;D3
連番氏名住所品物
1山田 三郎東京都江東区かばん
2植田 健横浜市港北区帽子
A列はこのたび連番を振りました。
Sheet2   に送り状の書式を体裁よく作ります。
H1セル(どこでも良いが、下記のVLOOKUPの式は変わる)

送り状

住所X
氏名Y

品物Z

上記の品をお送り申し上げます。
ご査収ください

以上
Xの場所のセルに =VLOOKUP($H$1,Sheet1!$A$1:$D$3,2,FALSE)
Yの場所のセルに =VLOOKUP($H$1,Sheet1!$A$1:$D$3,3,FALSE)
Zの場所のセルに =VLOOKUP($H$1,Sheet1!$A$1:$D$3,4,FALSE)

---
結果

送り状

住所山田 三郎
氏名東京都江東区

品物かばん

上記の品をお送り申し上げます。
ご査収ください

以上
ここで
VBE画面で標準モジュールに
Sub test01()
For i = 1 To 2 '人数分
Range("H1") = i
Range("A1:G20").PrintOut '印刷範囲は各人同じとする
Next i
End Sub
を張り付け、実行する。
山田、植田分の紙が2枚印刷されました。
これは質問者はVBAの経験も無いでしょうと、最低限にしてあります。
VBAを勉強してください。
別ブックにある名簿を対象などは複雑になるので避けています。

イメージはわかるが、エクセルに差込印刷の機能はありません。
ワードなどと違ってA.X氏1人分書類シート作成、B印刷、Aのシートををy氏分のデータでシート内容(セル)を置き換え、印刷、の繰り返しをします。
ーー
例データ Sheet1 A1;D3
連番氏名住所品物
1山田 三郎東京都江東区かばん
2植田 健横浜市港北区帽子
A列はこのたび連番を振りました。
Sheet2   に送り状の書式を体裁よく作ります。
H1セル(どこでも良いが、下記のVLOOKUPの式は変わる)

送り状

住所X
氏名Y

品物Z

...続きを読む

Q個別にステープルして印刷したい

お世話になります。

職場で顧客向けに印刷の必要があります。お一人様向けの分をステープルしたいのですが、プリンタドライバの設定が悪いようで、全印刷物をひとまとめにステープルされてしまいます。お一人様分ずつステープルするためには、どのように設定すればよろしいでしょうか?

プリンタのメーカーのサポート窓口にメールしたものの、本日日曜日のため、回答を期待できません。筋違いかと思われましたが、こちらにお問い合わせさせて頂きました。ご回答のほど、よろしくお願い致します。




プリンタ: RICOH imagio MP C3000
印刷状況: Access2000にて管理しているデータベースより、Word2000で作成した文書に設定したフィールドにデータが差し込まれるようになっており、お一人様向けの文書が複数ページに及ぶ。このWord文書を、お一人様向け分ずつステープルされるように印刷したいため、ソートとステープルを設定したものの、すべてのお客様分が印刷されると、それらをすべて一括してステープレしてしまい、お一人様分ずつソートされない。

以上

お世話になります。

職場で顧客向けに印刷の必要があります。お一人様向けの分をステープルしたいのですが、プリンタドライバの設定が悪いようで、全印刷物をひとまとめにステープルされてしまいます。お一人様分ずつステープルするためには、どのように設定すればよろしいでしょうか?

プリンタのメーカーのサポート窓口にメールしたものの、本日日曜日のため、回答を期待できません。筋違いかと思われましたが、こちらにお問い合わせさせて頂きました。ご回答のほど、よろしくお願い致します。




...続きを読む

Aベストアンサー

すでにRICOHから回答が来ていると良いのですが。
(そちらで解決していればこのポストは無視して質問を閉じておいてください)

Windowsの印刷には「部数印刷」と言う機能があり、通常、~部印刷する、と言った場合、この機能を使って「全く同じ文書」を複数出力することを意味します。
要するに、コピーのことを指しています。

質問の状況は、おそらく1ファイルの中で同様のフォームを10人分作って印刷しているのだと思います。
この場合、Windowsの印刷システムとしては10部ではなく、1部とカウントされており、一括でステープルされてしまっているのだと思います。

よって、10人分を分けてステープル処理したい場合、以下のどちらかで可能なはずです。
1. ひとり分ずつ印刷範囲をページ指定し、10回に分けて印刷する
2. 1ファイルにつきひとり分ずつ、計10ファイルに分割して印刷する

なお、手元にWord環境がなく確認できませんが、ひとり分ずつで「セクション区切り」などをすれば、1回の印刷で10部として取り扱うことも可能かもしれません。

すでにRICOHから回答が来ていると良いのですが。
(そちらで解決していればこのポストは無視して質問を閉じておいてください)

Windowsの印刷には「部数印刷」と言う機能があり、通常、~部印刷する、と言った場合、この機能を使って「全く同じ文書」を複数出力することを意味します。
要するに、コピーのことを指しています。

質問の状況は、おそらく1ファイルの中で同様のフォームを10人分作って印刷しているのだと思います。
この場合、Windowsの印刷システムとしては10部ではなく、1部とカウントされ...続きを読む

QWord差し込み印刷で2ページ以降が印刷できない

Word差し込み印刷を作成しましたが、2ページ以降が印刷できません。

例えば、1ページに21個のラベルを印刷できるように設定し、
63行のExcelデータを読み込むように設定した場合、
63/21=3ページ印刷・表示できるとの認識ですが、
1ページ目しか印刷できません。

どなたか、アドバイスをお願いいたします。
ちなみに、作成方法は下記サイトを参照しました。

ttp://hooktail.org/computer/index.php?Word%A4%C8Excel%A4%C7%B0%B8%CC%BE%A5%E9%A5%D9%A5%EB%B0%F5%BA%FE

Aベストアンサー

差込印刷というのは結構ハードルが高いワザです

ラベル印刷だけならフリーのテンプレートなど使うのも手です

宛名ラベラー
http://www.vector.co.jp/soft/win95/writing/se265659.html

ソフト詳細説明

・宛名ラベル,はがきや封筒の宛名を印刷。
・宛名ラベルはA4-10面,12面,18面,21面に対応。
・ラベルの途中から位置を指定しての印刷も可能。
・一人の人を全面に印刷することも可能。
・敬称の変更,連名にも対応。
・印刷プレビューを確認しながらの印刷も可能です。
・エクセルファイルなので様式の変更も簡単。
・いろいろな宛名印刷ソフトがありますが,「エクセルは使えるけどめんどくさいのは勘弁!」という方にぴったり。
・エクセルをさわったことがある人なら操作はとても簡単です。
・Vista&Excel 2007に対応しました。


動作環境ソフト名:宛名ラベラー
動作OS:Vista,XP,WinMe,Win2000,Win98,Win95
機種:汎用 
種類:フリーソフト
作者:田中 博幸

Windows98でも動くようです

差込印刷というのは結構ハードルが高いワザです

ラベル印刷だけならフリーのテンプレートなど使うのも手です

宛名ラベラー
http://www.vector.co.jp/soft/win95/writing/se265659.html

ソフト詳細説明

・宛名ラベル,はがきや封筒の宛名を印刷。
・宛名ラベルはA4-10面,12面,18面,21面に対応。
・ラベルの途中から位置を指定しての印刷も可能。
・一人の人を全面に印刷することも可能。
・敬称の変更,連名にも対応。
・印刷プレビューを確認しながらの印刷も可能です。
・エクセルファイルなので様式の変更も簡...続きを読む

Q特定ページの印刷とホッチキス留め

ワード2000で作成した1500ページのテキストがあります。これを、5ページごとにホッチキス留めする形で印刷したいと思っています。ワードでは、このような形での印刷はできるのでしょうか。(ページ数が多いので5ページごとにページ指定しながらの印刷は現実的ではないと思っています。)
ほかの方法でも結構です。ご回答是非よろしくお願いします。

Aベストアンサー

私の知る限り、ステイプルによるフィニッシャーできるのは部数単位で
あって、差し込み印刷を含む文書を部数以外で綴じる機能はないと思います。

Wordで1500ページを部数として分割することは無理なので、文書を特定
ページで分割して別ファイルとして保存後に、ファイルごとに1部印刷
することで対応するしかないと思います。
5ページごとにセクション区切りがされているのなら、セクション単位
で印刷指定する方法もありますが、それも面倒でしょうからセクション
単位でファイルを分割したほうが早いかと思います。

プログラムで別のファイルとして各ページまたは文書の一部を保存する
方法。(Word2000に対応しているか未確認)
http://support.microsoft.com/kb/306348/ja

QA4用紙にwordで差し込み印刷を2枚分印刷したい

よろしくお願いします。
A4横の用紙にA5縦の原稿を2枚左右に並べた状態で2枚分を印刷したいのですが。左右内容は差込データ部分以外同じです。 宛名部分にエクセルからのデータを差し込みたいのですが、左側の用紙部分に仮称xlsAA様が差し込まれ、次に右側の用紙部分に仮称xlsBB様が差し込まれ、2枚目の用紙の左側に仮称xlsCC様が・・・・と差し込み印刷をし、その後、左右にこちらで紙をカットし使用したいのですが、一枚にひとつのレコード?になってしまいます。
これが可能なのであればA4サイズの用紙に4枚分を印刷し4分割にカットしたいと考えています。 A4サイズの紙を使用しA5サイズを差し込み印刷できれば、半分の印刷手間で助かります。
経費削減のため、お知恵を貸してください。
お願いいたします。

Aベストアンサー

いろいろな方法で対応できますが、一番簡単なのは[袋とじ]を利用する
方法でしょうね。
Wordのバージョンが記載されていないので、私が使用しているWord2002
での説明です。

[ページ設定]→[余白]タブで[印刷の向き]を[横]にし、[印刷の形式]を
[袋とじ]にして[余白]などを指定し[ OK ]します。
(このときの用紙サイズはA4サイズのままで)

この設定にするとA5サイズに用紙1枚分が分かれて表示されますので、
各ページに宛名の差し込みフィールドを配置します。

2ページ目にするときは[改ページ]を挿入して、そのページの先頭など
などに[差し込み印刷]ツールバー上にある[Wordフィールドの挿入]から
[ Next Record (次のレコード) ]を選択して挿入することで、改ページ
以降(2ページ目)が別レコードになるようにします。
1ペー目の内容をコピーしてそのまま≪Next Record≫の後ろに貼り付け
したら、ページごとにレコードが変わっているのを確認します。

このまま印刷をしてもかまいませんし、[新規文書への差し込み]である
[各レターの印刷]などで確認したあとで印刷してもかまいません。

A4サイズを4等分にするのなら、[段組み]と組み合わせてもできますが、
設定が面倒なのでラベル印刷と同じように表で分割した中に割り振った
ほうがよいかもしれません。
この方法以外では、A5サイズを上下に[袋とじ]で分割したものを[印刷]
でA4サイズに2ページ分割り付けすることでも対応できます。

[差し込み印刷]を理解していないと、基本的なレイアウト以外はかなり
面倒な設定が必要になりますので、プリンタ側のオプションで割り付け
印刷をしたほうが簡単かもしれませんね。

いろいろな方法で対応できますが、一番簡単なのは[袋とじ]を利用する
方法でしょうね。
Wordのバージョンが記載されていないので、私が使用しているWord2002
での説明です。

[ページ設定]→[余白]タブで[印刷の向き]を[横]にし、[印刷の形式]を
[袋とじ]にして[余白]などを指定し[ OK ]します。
(このときの用紙サイズはA4サイズのままで)

この設定にするとA5サイズに用紙1枚分が分かれて表示されますので、
各ページに宛名の差し込みフィールドを配置します。

2ページ目にするときは[改ページ]を挿...続きを読む

QWordの差込印刷でNextRecordを使いたいのですが、教えてください

教えてください。
Wordの差込印刷でNextRecordを使うと、データソースの順序通りではなく、飛々に差し込まれてしまうのはどうしてでしょうか?

Wordのメイン文書の設定は、標準のWord文書
データソースは、Excelの3列101行(1行はタイトル)の表です。
Excelの1列目は、本の名前(タイトル名)
Excelの2列目は、作者(タイトル名)
Excelの3列目は、出版社(タイトル名)

このデータソースをWordの白紙の標準文書に、1行目に本の名前、2行目に作者、3行目に出版社として差込フィールドの挿入をします。
そして、Wordフィールドの挿入のNextRecordを使って、5行目から7行目に同じ差込フィールドを挿入し、同じく9行目から11行目にも同じ差込フィールドを挿入します。
次に新規文書への差込を実行すると、Word文書の1ページには、データソースExcelの2行目から4行目が、Word文書の2ページ目には、データソースExcelの5行目から7行目が差し込まれて、34ページまで続く予定なのですが、データソースExcelの順序が飛々なのです。

どうしてもNextRecordがうまく機能しません。どうか教えていただけないでしょうか?

教えてください。
Wordの差込印刷でNextRecordを使うと、データソースの順序通りではなく、飛々に差し込まれてしまうのはどうしてでしょうか?

Wordのメイン文書の設定は、標準のWord文書
データソースは、Excelの3列101行(1行はタイトル)の表です。
Excelの1列目は、本の名前(タイトル名)
Excelの2列目は、作者(タイトル名)
Excelの3列目は、出版社(タイトル名)

このデータソースをWordの白紙の標準文書に、1行目に本の名前、2行目に作者、3行目に出版社として差込フィールドの挿入をします。
そ...続きを読む

Aベストアンサー

以下「NE」と書いているのは、「NextRecord」の略とします。
現在は
(文書1)
<<タイトル>>
NR
<<作者>>
NR
<<出版社>>
NR
となっていませんか。
第1行目 <<タイトル>>
第2行目 <<作者>>
第3行目<<出版社>>
第4行目
NR
第5行目 <<タイトル>>
第6行目 <<作者>>
第7行目 <<出版社>>
第8行目
NR
としてはどうでしょうか。(勘違いでしたら済みません)
エクセルでは1行が1レコードです。
だから、持ってくるエクセルのデータに付いて、次の行に移って持ってくるときにNextRecordを置きます。
<<>>の中に指定するのは「フィールド」といって
項目名に当たりますが、文書上のこの順序と位置は
画面上に指定します。
プログラム的考えなんですが、この経験がないと判り難い
だろうと思いますが。
差しこみ印刷で「一文書上で」、エクセルの次行の項目を使わないときはNRは意識しなくても良いように成っています。
エクセルが、差しこみ印刷でも、ある場面ではNRを意識させない設計になっているので戸惑う点であります。

以下「NE」と書いているのは、「NextRecord」の略とします。
現在は
(文書1)
<<タイトル>>
NR
<<作者>>
NR
<<出版社>>
NR
となっていませんか。
第1行目 <<タイトル>>
第2行目 <<作者>>
第3行目<<出版社>>
第4行目
NR
第5行目 <<タイトル>>
第6行目 <<作者>>
第7行目 <<出版社>>
第8行目
NR
としてはどうでしょうか。(勘違いでしたら済みません)
エクセルでは1行が1レコードです。
だから、持ってくるエク...続きを読む

Q差し込み印刷で番地を漢数字にしたいのですが

Word2007を使っています。

封筒に縦書きで住所を入れたいと思っています。
名簿から差し込み印刷をしようとしています。
名簿は住所の番地を半角で入力しました。

横書きならスムーズなのかもしれませんが、今回縦書きにしたいと思うので漢数字にしたいのですが、1枚1枚直すことはできますが、そうしなくても自動的に漢数字に変換されるようにどこかで設定ができるのでしょうか。

教えてください。
宜しくお願い致します。

Aベストアンサー

自動的に漢数字に変換されます。
住所を表示した状態で、住所部分を右クリックして、フィールドの編集で、数字を漢数字に変換する、にチェックが入っていることを確認して下さい。

Qエクセルから帳票形式に差込印刷したいのですが

皆さん初めまして!

エクセルで1万件に近いデータがあります。

これらを帳票形式に差込印刷したいと思えば、ワードの「差込印刷」機能以外に、エクセル自体で行なうことは不可能でしょうか?

(例:請求データを請求書フォームに印刷)

ワードの差込印刷は便利ですが、エクセルデータ形式(特に金額のカンマ区切り表示が必要なため)を参照する際は、フィールド設定の数の制限が22列まで?で・・・行き詰っています(私は約40列あります)。

エクセル・ワードの操作は上級手前の操作まではいけますが、
エクセルでVBA、差込印刷マクロを作るとまではいけないもので・・・何か妙案がありましたらご教示願います・・・

Aベストアンサー

#01です。出血大サービスです(^^;
ただし不具合以外の修正はご自身でお願いします。
2行目~4行目と項目の定義の箇所は再度設定し直してください。

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub InsPrint()
Const org As String = "Sheet1" '元データのシート名
Const prs As String = "Sheet2" '印刷するシート名
Const strt As Integer = 2 '元データの実データ開始行
Dim idx, fromL, toL As Long
Dim oSht, pSht As Worksheet
Dim res, res2
 Set oSht = Worksheets(org)
 Set pSht = Worksheets(prs)
 res = MsgBox("印刷行範囲を指定しますか?" & Chr(13) & _
  "はい:指定する、いいえ:指定しないで全件印刷、CANCEL:印刷しない", vbYesNoCancel)
 Select Case res
  Case Is = vbCancel
   Exit Sub
  Case Is = vbYes
   res2 = Application.InputBox("印刷開始行を半角数字で入力して下さい", Type:=1)
   If TypeName(res2) = "Boolean" Then
    MsgBox "印刷を中止しました", vbOKOnly
    Exit Sub
   Else
    If res2 >= strt And res2 <= oSht.Range("A65536").End(xlUp).Row Then
     fromL = res2
    Else
     MsgBox "開始行が不適切です。印刷を中止しました", vbOKOnly
     Exit Sub
    End If
   End If
   res2 = Application.InputBox("印刷する最終行を入力して下さい" & Chr(13) & _
     "99999を入力すると最終行まで印刷します", Type:=1)
   If TypeName(res2) = "Boolean" Then
    MsgBox "印刷を中止しました", vbOKOnly
    Exit Sub
   Else
    If res2 = 99999 Then
     toL = oSht.Range("A65536").End(xlUp).Row
    Else
     If res2 >= fromL And res2 <= oSht.Range("A65536").End(xlUp).Row Then
      toL = res2
     Else
      MsgBox "最終行が不適切です。印刷を中止しました", vbOKOnly
      Exit Sub
     End If
    End If
   End If
  Case Else
   fromL = strt
   toL = oSht.Range("A65536").End(xlUp).Row
 End Select

 For idx = fromL To toL
'以下の行を項目数だけコピーして定義する
  pSht.Range("A1").Value = oSht.Cells(idx, "A").Value
'
  pSht.PrintOut '印刷
'5頁につき8秒休止する
  If (idx Mod 5) = 0 Then
   DoEvents
   Sleep 8000
  End If
 Next idx
End Sub

#01です。出血大サービスです(^^;
ただし不具合以外の修正はご自身でお願いします。
2行目~4行目と項目の定義の箇所は再度設定し直してください。

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub InsPrint()
Const org As String = "Sheet1" '元データのシート名
Const prs As String = "Sheet2" '印刷するシート名
Const strt As Integer = 2 '元データの実データ開始行
Dim idx, fromL, toL As Long
Dim oSht, pSht As Worksheet
Dim res, res2
 Set oSht = Works...続きを読む

Qラベルの差込印刷で2ページ目以降を印刷プレビューで確認したい

Word2003です
ラベルの差込印刷で1ページ目のレコードは表示されるのですが
2ページ目以降のレコードをプレビューで確認したいのですが
できません
表示させる方法を教えて下さい

具体的には
1ページに21のレコードが入っています
2ページ目のレコード22~42
3ページ目のレコード43~63のレコードを
それぞれのページごとにプレビューで確認したいのです

よろしくお願いします。

Aベストアンサー

「ラベルのプレビュー表示」で、「>>」を何回か押したら表示されたように思いますが・・・

でなければ、「差し込み印刷の完了」ボタンを押して、「各ラベルの編集」をクリックしてみてください。

「WordとExcelで宛名ラベル印刷」
http://hooktail.org/computer/index.php?Word%A4%C8Excel%A4%C7%B0%B8%CC%BE%A5%E9%A5%D9%A5%EB%B0%F5%BA%FE

「宛名ラベルの印刷」
http://hamachan.fun.cx/word/atena.html

Qエクセルの名簿一覧表からすでにエクセルで作られている一人づつのシートに差込印刷

エクセルでできている名簿リストから、すでにエクセルでできている個人別のシートに差込印刷したいのです。一人ずつセル参照で作ることはできるのですが、全部で300人分くらいあるのでワードの差込印刷のように一度にできる方法が知りたいのです。本日中にやらねばならないので手作業では、間に合いそうにありませんしVBAの勉強をしている余裕もありません。

Aベストアンサー

VBAでもない解答をします。ただファイル-印刷の操作を
300回すること。最終部のようにすれば、VBAで自動化も出来ます。
(1)Sheet2のA1:E3に住所録が
氏名郵便番号住所1住所2
山田 和郎111-1111東京都小平市新町2-1-2光マンション222
木之下 重雄222-2222東京都三鷹市本町4-3-2三国荘201
あるとします。本番ではA1:E300とかに住所録があります。
(2)Sheet1は印刷する画面シートです。
F1セルに2、
F2に="Sheet2!A"&F1
F3に="Sheet2!B"&F1
F4に="Sheet2!C"&F1
F5に="Sheet2!D"&F1
F6に="Sheet2!E"&F1
郵便番号を置くセルをB3として式=INDIRECT(F3)
府県市を入れるセルをB5として式=INDIRECT(F4)
町番地を入れるセルをB6として式=INDIRECT(F5)
気付を入れるセルをC6として式=INDIRECT(F6)
名前を入れるセルをB8として式=INDIRECT(F2)
C8に「様」を入れる。
(3)F1セルが2の時は
111-1111

東京都小平市
新町2-1-2光マンション222

山田 和郎様
となりますが、このA1:C8を印刷する。
(4)F1セルの値を3に変える(3を入力する)と
222-2222

東京都三鷹市
本町4-3-2三国荘201

木之下 重雄様
と瞬時に変るが、これを印刷する。
(5)F1を4、5、6、・・・と変えて印刷、変えて印刷すれば良い。
この(5)の部分だけをマクロの記録やVBAにすれば、
同じVBAでも既解答よりずっと易しいと思いますがいかがででしょうか。
Sub test01()
Worksheets("sheet1").Activate
For i = 2 To 3 '300
Cells(1, "F") = i
Range("a1:c8").PrintOut
Next i
End Sub
行高、セル幅、フォントサイズなどは手動で設定。
氏名、郵便番号、住所を置くセルは自由に出来ます。
上記でF1:F6も自由に別列に設定できます。

VBAでもない解答をします。ただファイル-印刷の操作を
300回すること。最終部のようにすれば、VBAで自動化も出来ます。
(1)Sheet2のA1:E3に住所録が
氏名郵便番号住所1住所2
山田 和郎111-1111東京都小平市新町2-1-2光マンション222
木之下 重雄222-2222東京都三鷹市本町4-3-2三国荘201
あるとします。本番ではA1:E300とかに住所録があります。
(2)Sheet1は印刷する画面シートです。
F1セルに2、
F2に="Sheet2!A"&F1
F3に="Sheet2!B"&F1
F4に="Sheet2!...続きを読む


人気Q&Aランキング