よろしくお願いします。
フォルダ内に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で質問しましょう!
似たような質問が見つかりました
- PDF 突然PDFファイルが印刷できなくなった 1 2022/12/22 15:47
- フリーソフト 写真の一覧印刷ソフト 2 2023/07/28 16:48
- Windows 10 ネットワークプリンターにファイルを直接送る方法・コマンドないですか?(´・ω・`) 3 2023/03/13 23:15
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- アプリ 公式印刷アプリは外部ストレージ選べずSDカードに保存してある写真を印刷できませんでした!どうすれば? 2 2022/10/08 22:31
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- 会計ソフト・業務用ソフト 一太郎で封筒の宛名印刷したいです。 1 2023/07/20 10:14
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Visual Basic(VBA) 【VBA】印刷マクロのループ処理が反映されません 3 2022/08/09 02:15
- Windows 10 macからwindows11に変えてから印刷の速度が変えられなくなりました。 2 2023/05/31 20:49
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PDF文書を拡大してコンビニで印...
-
Outlook メールの添付ファイル...
-
PDFファイルを印刷すると白い紙が
-
ワードで作ったものをペイント...
-
エクセルVBAでPDFを作成したい
-
Outlook Express未送信メールの...
-
Docuworks(ドキュワークス)の不...
-
Excel で作ったチラシを JPG に...
-
Excel VBA Backstageビューでの...
-
outlook2016のアドレス帳の印刷...
-
Google Apps Scriptで自動印刷
-
EXCEL印刷時「ファイルへ出力」...
-
パワーポイントのスライドを1...
-
ワードパットをワードに
-
フォルダの削除について
-
コマンドプロンプト 閉じた時の...
-
アイコン右下の盾を消す方法
-
C:\\Windows\\SoftwareDistribu...
-
沢山の写真を一度にPCから消す...
-
ダブルクリックすると勝手に削...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Google Apps Scriptで自動印刷
-
PDF文書を拡大してコンビニで印...
-
Outlook メールの添付ファイル...
-
Docuworks(ドキュワークス)の不...
-
ワードで作ったものをペイント...
-
エクセルVBAでPDFを作成したい
-
PDFファイルを印刷すると白い紙が
-
スマホでcsvからpdfへの変換と印刷
-
Outlook Express未送信メールの...
-
ファイルの背表紙に印刷したい
-
メールアドレス一覧表を印刷したい
-
ShellExcuteの"print”がExcel20...
-
EXCEL ファイル更新日時...
-
dxfファイルを開きたいです...
-
Webページの見えてない部分も含...
-
Excel VBA Backstageビューでの...
-
Wordのテキストボックスの文が...
-
outlook2016のアドレス帳の印刷...
-
花子2013 ウィンドウズ10で印...
-
Excelのファイルを複数印...
おすすめ情報