以下の作業を行いたいのですが、ご存知の方、教えていただけないでしょうか…
・1つのフォルダにファイルが200個あります
・1ブックにつきSheet1~3までありますが、印刷したいのはSheet2だけです
・2色印刷(マゼンタ・ブラック)で印刷をしたいです
(場合によってはモノクロ、シアン・ブラックもあります)
※印刷設定で既に2色印刷の設定は済んでいます
・シートを印刷するときは1ページにまとめて印刷をしたいです(1Sheetずつ印刷)
・元データの印刷標準はカラーもあれば未設定、マゼンタ・ブラックの設定がされています
・印刷設定の標準はカラーです
・200個のシート2を一括印刷したいです
・もし可能であれば、印刷する順番はフォルダにファイルを入れた順番にしたいです
フリーソフトは使用できないため、マクロ等で回答を頂きたいです
※プログラムは詳しくないため細かいご指示を頂けますと幸いです
ご教示のほどよろしくお願い致します
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
1.まず、Sheet2だけをマクロでひとつのブックにまとめてしまいます。
2.すべてのシートを選択して、ページレイアウトで「次のページ数にあわせて印刷」を縦1x横1に設定します。
3.すべてのシートを選択したまま、いちどモノクロプリンタなど別のプリンタで印刷するように設定します。(実際には印刷しません)
4.OSのプリンタのプロパティで目的のプリンタの標準設定を2色プリントに変更します。
5.Excelに戻って、再度すべてのシートを選択したまま、目的のプリンタで印刷する設定に変更します。
※プリンタのプロパティの設定は、シートを複数選択しても1シートにしか反映しませんでした。なので、プリンタの標準設定で対応することにしています。
1については以下のマクロを参考にしてください。
Sub collectSheet()
Dim dest As Workbook
Dim src As Workbook
Set dest = Workbooks.Add
pathName = "C:\WORK\"
fileNm = Dir(pathName & "*.xlsx")
While fileNm <> vbNullString
Set src = Workbooks.Open(pathName & fileNm)
src.Worksheets("Sheet2").Copy before:=dest.Worksheets(1)
src.Close
fileNm = Dir()
Wend
End Sub
1~5検証していないので、しっかりテストしてから実行してください。
この度はご回答をありがとうございました!!
補足に記載をしてしまっておりましたが、調べながら確認をしていきたいと思います。丁寧なご回答を誠にありがとうございました。
No.1
- 回答日時:
Excelで印刷設定はレイアウトくらいしかできませんよ。
色指定なんてプリンタ側の機能ですからね。
更に言うなら、縮小して1枚に印刷することもプリンタ独自の機能です。
プリンタの仕様が分からないことにはどうにもなりません。
・・・
てことで、たかだか200プックじゃないですか。
一つずつ手で設定して印刷しましょう。
1時間くらいで終わるんじゃないですか。
(全部自動で印刷する場合とかかる時間は変わらないと思いますよ)
早速のご回答をありがとうございます!!
私が望んでいたことはプリンタ独自機能だったのですね…
手間がかかり、作業時間がもったいなかったので、お聞きしてみましたが残念です…
>プリンタの仕様が分からないことにはどうにもなりません。
頂いたご質問の答えになっているかが分からないのですが、機種名はRICOH MP C305 SPです。。。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
誕生日にもらった意外なもの
みなさんがもらった誕生日プレゼントで面白いものがあったらぜひ教えてください!
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
カラーで一括印刷したいです
Access(アクセス)
-
複数のExcelファイルの印刷設定を一括に変えることはできますか?
その他(Microsoft Office)
-
VBAで印刷の設定は可能でしょうか?
Excel(エクセル)
-
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ワードやエクセルで印刷をデフ...
-
エクセルシート A3にしてもA4...
-
Excelの表を二段で印刷したい
-
エクセルでB6サイズに印刷し...
-
JW-CADで印刷すると線が太くなる
-
作成したPDFファイルを自動表示...
-
「詳細な印刷機能を有効にする...
-
Photoshopで両面印刷はできます...
-
パワーポイントの印刷が画面表...
-
ソフト別に印刷設定を自動で変...
-
PDFファイルを印刷するときにフ...
-
word印刷時に勝手に手差し印刷...
-
特定のEXCELのファイルを印刷す...
-
ワードで、10センチの長さの...
-
Wordでの印刷で、白紙が省略さ...
-
PDFでの印刷余白
-
EXCEL 印刷設定を保存する方法
-
PDFのプリントアウトが重す...
-
EXCEL印刷設定で[両面印刷]が表...
-
PDF書類をずらして印刷したい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ワードやエクセルで印刷をデフ...
-
Excelの表を二段で印刷したい
-
エクセルでB6サイズに印刷し...
-
JW-CADで印刷すると線が太くなる
-
エクセルシート A3にしてもA4...
-
ソフト別に印刷設定を自動で変...
-
PDFのプリントアウトが重す...
-
作成したPDFファイルを自動表示...
-
パワーポイントの印刷が画面表...
-
ワード A4サイズで作成した...
-
「詳細な印刷機能を有効にする...
-
エクセルでブックごとにプリン...
-
Photoshopで両面印刷はできます...
-
特定のEXCELのファイルを印刷す...
-
word印刷時に勝手に手差し印刷...
-
EXCEL印刷設定で[両面印刷]が表...
-
ワードで文書A4サイズ2枚をA3...
-
改ページプレビューで設定した...
-
B5をB4に並べて印刷したい!!
-
PDFでの印刷余白
おすすめ情報
ご回答、誠にありがとうございます!!
大変申し訳ございませんが、何をどこにどうしたらいいのか分からないため、
詳しいご回答を頂きたいです…理解力が悪く申し訳ございません。
質問1
>1.まず、Sheet2だけをマクロでひとつのブックにまとめてしまいます。
→①どこにマクロを打ち込めばいいのでしょうか
(新規で作成するのか、200個のExcelファイル全てにマクロを入力する必要があるのか)
質問2
2.~5.までは1.で作ったもののその後の操作という認識で合っておりますでしょうか…?
念のためではございますが、こちらが行いたいのは1つのエクセルにsheetが沢山あり、
それを一括印刷したいのではなく200個あるブックのそれぞれ2sheet目にあるものだけを印刷したいです。
私の記入漏れがありそうなため、お伝えしておきます。
お手間をおかけし申し訳ございません。よろしくお願い致します。