よろしくお願いします。
フォルダ内に17個のExcelファイル(サイズ50k程度)があります。
全て同様の書式,印刷設定されています。
ファイルの内容を確認せずに一気に全てを印刷したいと思い、
Ctrl+Aで全てを選択した後、右クリックで「印刷」を指定しました。(Excelを開かずに)
すると17個の内、5個のファイルのみ印刷されました。しかもランダムで。
次にこの5個のファイルを削除して、残りを印刷したいのでCtrl+Aで12個選択後、右クリックで印刷…
すると今度は4ファイルランダムで印刷されました。同様のことを繰り返すと、次は3ファイル、次は2ファイル印刷される…となります。
初めから一気に17ファイル出来ないのでしょうか?
Win2000、OfficeXPです。
No.3ベストアンサー
- 回答日時:
またまたNO.1です。
毎回、全てのシートを選択した状態で保存すれば、「ファイルを開く」・・・で印刷しても全シート印刷出来る、という話も出てました。
もしかすると、そうすればフォルダから印刷した場合にも全シート出るのかな、なんて・・・。
でも面倒だし、忘れちゃいますよね。
で、余計なおせっかいでしたが、非常~~~に暇だったので
http://oshiete1.goo.ne.jp/qa1867029.htmlで回答していたmasa_019さんのをちょっとだけアレンジしてみました。
VB知らなくても、メモ帳に貼り付けて保存するだけですのでやってみてください。
(1)ツールの置き場所を決めるor作る。
(2)新規でメモ帳を起動する。
(3)下のソースをそっくりそのままコピーして張り付ける。
(4)名前を付けて保存。名前は任意でOKです。
このとき拡張子は"vbs"としてください。 ←ここ重要!!
例:AllExcelPrint.vbs
(5)エクスプローラで保存したファイルを表示。
(6)もうひとつエクスプローラを開く。印刷したいエクセルファイルをドラッグして
(4)で保存したファイル名上ではなす。(ドラック&ドロップ)
(7)画面が出るので、直接印刷かプレビュー表示を選択して「OK」すると動きます。(動くはず・・・)
・全ファイル、全シート印刷OKです。
・エクセルとテキストファイルは印刷できます。
・ワードには使えませんのでご了承ください。
・プレビューは1ファイル毎に表示されます。1つ閉じたら次をプレビューって感じです。
↓↓↓↓↓↓メモ帳に貼り付けるソース(次の行からコピー)↓↓↓↓↓↓
' -------・---------・---------・---------・---------・---------・---------・
' AllExcelPrint
' 機能:複数Excelファイルを全シート印刷する。
' 出力形式選択により、プレビュー表示か直接印刷が選択できる。
' -------・---------・---------・---------・---------・---------・---------・
Dim fName,pType
Dim xlApp
Dim xlWb
pType = InputBox("1:直接印刷 2:プレビュー表示", "出力形式","1")
'キャンセル or 選択Noがない or 範囲外の場合は終了
If Len(pType) = 0 Then
Wscript.Quit
ElseIf pType<1 or pType>2 Then
MsgBox "1 or 2を選択してください。", vbExclamation, "出力形式選択"
Wscript.Quit
End If
Set xlApp = WScript.CreateObject("Excel.Application")
If pType = "1" then
For Each fName in WScript.Arguments
Set xlWb = xlApp.Workbooks.Open(fName)
xlWb.Worksheets.Printout
xlWb.Close False
Next
Else
xlApp.Visible = True
For Each fName in WScript.Arguments
Set xlWb = xlApp.Workbooks.Open(fName)
xlWb.Worksheets.PrintPreview
Next
End If
xlApp.Quit
Set xlApp = Nothing
↑↑↑↑↑↑メモ帳に貼り付けるソース(前の行までコピー)↑↑↑↑↑↑
No.2
- 回答日時:
NO.1です。
一応過去の回答を見てみたら、
(http://oshiete1.goo.ne.jp/qa1517036.html)
全ファイルが1シートであれば、過去に回答されている方法で出来るようです。
手順:EXCELの「ファイルを開く」ダイアログでファイル名を複数選択し、右クリックで印刷する。
複数シートある場合は、最終保存時に一番上だったシートが印刷されました。
あとはマクロやVBスクリプトでツールを作っているようですね。
やることは対した事ではないので、ツール作りが好きな人にでも頼めば、
凝らなければ半日も掛からずに作ってくれますよ。
過去の他の回答もにソース載ってますから、作ってみては?
度々ありがとうございます。
又、色々調べて頂き本当にありがとうございます。
一応過去ログを確認したのですが探しきれませんでしたので質問させて頂きました。
又、折角探して頂いた過去ログですが、会社のプロキシでブロックされて見れません。
(Chatの区分けになるようでブロックされてしまいます。)
家から確認してみます。
Excelを起動し、「ファイルを開く」からCtrl+Aで全ファイルを選択
右クリックで印刷を選ぶと全ファイルが1シートの場合のみ全ファイル印刷可能ということでしょうか?
今度試してみます。
マクロやVBは私には無理です。周りにもそんな技術を持っている人は残念ながらいません。
会社のPCでフリーソフト禁止の環境ですから上の方法でやってみようと思います。
No.1
- 回答日時:
私も散々探したことがありますが、今のところ聞いたことがありません。
フリーソフトのダウンロードが可能な環境であれば、
フォルダで選択したファイル(複数可)の全シートを印刷するものがありますので、
そちらを使った方が手っ取り早いと思います。
ちなみに私は「ExcelAutoPrin」を使っています。
ご参考まで。
参考URL:http://onegland.hp.infoseek.co.jp/xlsaprn/index. …
早速の回答ありがとうございます。
会社で使用しているPCですが、フリーソフト禁止なので折角教えて頂いたソフトは使えません。
この現象はWINDOWS or Excelの仕様なのでしょうか?
仕様だとしても5ファイル、4,3、…となって最終的には1ファイルしか印刷されないのは何故?って思いました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
ロボットの住む世界で流行ってる罰ゲームとは?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
Excelで複数のファイルを1度に印刷したいです。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Outlook メールの添付ファイル...
-
Docuworks(ドキュワークス)の不...
-
ワードで作ったものをペイント...
-
Webページの見えてない部分も含...
-
Google Apps Scriptで自動印刷
-
スマホでcsvからpdfへの変換と印刷
-
PDF文書を拡大してコンビニで印...
-
OEの住所録印刷について
-
Excelのファイルを複数印...
-
フォルダの削除について
-
コマンドプロンプト 閉じた時の...
-
C:\\Windows\\SoftwareDistribu...
-
ワードパットをワードに
-
アイコン右下の盾を消す方法
-
ファイル名の一部を一括変更 ...
-
エクセルで赤文字が入力されて...
-
iTunes に入ってる曲を全て削除
-
VBA ファイルを開くダイアログ...
-
「デスクトップ」フォルダをDド...
-
デスクトップ上のインターネッ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Docuworks(ドキュワークス)の不...
-
Google Apps Scriptで自動印刷
-
Outlook メールの添付ファイル...
-
エクセルVBAでPDFを作成したい
-
ワードで作ったものをペイント...
-
スマホでcsvからpdfへの変換と印刷
-
Outlook Express未送信メールの...
-
Webページの見えてない部分も含...
-
PDF文書を拡大してコンビニで印...
-
ShellExcuteの"print”がExcel20...
-
EXCEL ファイル更新日時...
-
Excelのファイルを複数印...
-
パソコン画面をコンビニなどの...
-
花子2013 ウィンドウズ10で印...
-
Excel VBA Backstageビューでの...
-
Excel で作ったチラシを JPG に...
-
メールアドレス一覧表を印刷したい
-
デジカメから保存した
-
メールの添付ファイルの印刷
-
outlook2016のアドレス帳の印刷...
おすすめ情報