Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12277 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【11369】印刷について さる 04/3/7(日) 2:25 質問
【11370】Re:印刷について かみちゃん 04/3/7(日) 9:53 回答
【11374】Re:印刷について さる 04/3/7(日) 21:27 お礼
【11375】Re:印刷について Ｊカーター 04/3/7(日) 21:50 発言
【11371】Re:印刷について Ｊカーター 04/3/7(日) 11:07 発言
【11376】Re:印刷について さる 04/3/7(日) 21:54 発言
【11377】Re:印刷について Ｊカーター 04/3/7(日) 22:27 回答
【11378】Re:印刷について さる 04/3/7(日) 22:50 発言
【11380】Re:印刷について Ｊカーター 04/3/8(月) 8:13 回答
【11369】印刷について
質問  さる E-MAIL  - 04/3/7(日) 2:25 -
引用なし
パスワード
   作成したシート（ＶＬＯＯＫＵＰ関数で氏名を抽出した）のままで一人ずつ印刷するのでわざわざ一人一人切り替えて印刷しなければならないので大変でした。
そこでＶＢＡで取り込んで行きたい。一括印刷したいので整理番号順で印刷します。
　紹介書シートで
　1.坂本　の紹介書印刷
　2.神戸　の紹介書印刷
　3.石井　の紹介書印刷
　　　　　　・
もしかしたらＦｏｒ〜Ｎｅｘｔで最終セルから最初セルまで印刷し、すべての人を印刷したら終了でしょうか？
どなたへどうか教えてくださるようお願いします。
もし意味がわからない場合は私から直接に作成したBookをメールしますのでご覧ください。おまちしております。
【11370】Re:印刷について
回答  かみちゃん  - 04/3/7(日) 9:53 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>もしかしたらＦｏｒ〜Ｎｅｘｔで最終セルから最初セルまで印刷し、すべての人を印刷したら終了でしょうか？

VBAを使わなくてもできるのではないでしょうか？
印刷するシートが飛び飛びのであれば、Ctrlキーを押しながらシートをクリックする。
印刷するシートが連続しているのであれば、最初のシートをクリックして、最後のシートをShiftキーを押しながらシートをクリックする。
そして、印刷すると、選択したシートが印刷されます。

ただし、左から順に印刷されるので、あらかじめ整理番号順に並べておく必要があります。これは、シート名の頭に01とか02など番号を振っておき、シート名の並べ替えを自動ですることでできると思います。

ただ、紹介書シートに書いてある順に印刷したいのであれば、やはりFor〜Nextでするしかないと思います。
ヒントはこちらを参照してください。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=11259;id=excel
【11371】Re:印刷について
発言  Ｊカーター  - 04/3/7(日) 11:07 -
引用なし
パスワード
   こんにちは。

もしかして「差し込み印刷」したいという事ですか？
【11374】Re:印刷について
お礼  さる E-MAIL  - 04/3/7(日) 21:27 -
引用なし
パスワード
   りん様、ありがとうございました。
IROC 様、ご丁寧に、レスして頂き、ありがとうございました。
皆様のレスを、ありがたく、参考にさせていただきます。
心から、お礼を申し上げます。
【11375】Re:印刷について
発言  Ｊカーター  - 04/3/7(日) 21:50 -
引用なし
パスワード
   あれ？
liee_chang さん　＝　さるさん
ですか？
【11376】Re:印刷について
発言  さる E-MAIL  - 04/3/7(日) 21:54 -
引用なし
パスワード
   ▼Ｊカーター さん：
>こんにちは。
>
>もしかして「差し込み印刷」したいという事ですか？

おそくなってすみませんでした。
はい、そうです。
あなたの意見をお伺いしますのでよろしくお願いします。
【11377】Re:印刷について
回答  Ｊカーター  - 04/3/7(日) 22:27 -
引用なし
パスワード
   こんばんは。

>もしかして
と書いています。つまり
質問の内容がよくわからないが、たぶん「差し込み印刷」と推測した。
という感じの「発言」でした。

ですので
だいたいの手順を文章で書いてみます。

まず新規ブックを作っておいて(Bブックとします。)

ここからはループ処理
　印刷シートに差し込みデータを転記
　印刷シートをBブックにコピー
を差し込みデータ分繰り返して

Bブックを一括印刷
印刷後にBブックは捨てる

という感じにすると
ループ内で印刷を繰り返さず
一回の印刷で終了です。
【11378】Re:印刷について
発言  さる E-MAIL  - 04/3/7(日) 22:50 -
引用なし
パスワード
   ▼Ｊカーター さん：
>こんばんは。
>
>>もしかして
>と書いています。つまり
>質問の内容がよくわからないが、たぶん「差し込み印刷」と推測した。
>という感じの「発言」でした。
>
>ですので
>だいたいの手順を文章で書いてみます。
>
>まず新規ブックを作っておいて(Bブックとします。)
>
>ここからはループ処理
>　印刷シートに差し込みデータを転記
>　印刷シートをBブックにコピー
>を差し込みデータ分繰り返して
>
>Bブックを一括印刷
>印刷後にBブックは捨てる
>
>という感じにすると
>ループ内で印刷を繰り返さず
>一回の印刷で終了です。

ありがとうございます。
できればサンプル作成してくれませんか？
お待ちしております。無理にしないでいいです。
【11380】Re:印刷について
回答  Ｊカーター  - 04/3/8(月) 8:13 -
引用なし
パスワード
   こんにちは。
具体的な内容が不明なため勝手に推測してのサンプルです。
(応用できるということですよね？)
-----------------------------------------------------------------
Sub test()
　　Dim wbPrint As Workbook
　　Dim RngI　　As Range
　　
　　Set wbPrint = Workbooks.Add

　　'Sheet1のA2からA10をSheet2のA1に転記を繰り返す。
　　For Each RngI In Sheet1.Range("A2:A10")
　　　　Sheet2.Range("A1").Value = RngI.Value
　　　　Sheet2.Copy , wbPrint.Worksheets(Worksheets.Count)
　　Next RngI
　　
　　wbPrint.PrintOut , , , True
　　wbPrint.Close False
　　Set wbPrint = Nothing
End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12277 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free