重要なお知らせ

「教えて! goo」は2025年9月17日(水)をもちまして、サービスを終了いたします。詳細はこちら＞

電子書籍の厳選無料作品が豊富！

Excel一括印刷の仕方

締切済

  • 質問者：hiro-o463
  • 質問日時：
  • 回答数：1件

ひとつのフォルダにExcelブックが50個あり、そのExcelブックにはExcelシートが20シートあります。
50個の全ブックの1シート目だけを一括で印刷する方法はありますか。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

A 回答 (1件)

参考程度に

No.1

  • 回答者： tom04
  • 回答日時：

こんばんは！



VBAでの一例です。
フォルダ内のExcelファイルの拡張子は「xlsx」としています。

Sub Sample1()
Dim myPath As String, fN As String
myPath = "保存場所のパス" & "\"
fN = Dir(myPath & "*.xlsx")
Do Until fN = ""
Workbooks.Open (myPath & fN)
With ActiveWorkbook
.Worksheets(1).PrintPreview '←印刷プレビューでやめています。//
Application.DisplayAlerts = False
.Close
Application.DisplayAlerts = True
End With
fN = Dir()
Loop
End Sub

こんな感じではどうでしょうか？m(_ _)m
    • good
    • 0
    • 件
通報する
この回答へのお礼

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

通報する
お礼日時：2017/03/09 20:34

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

Q質問する（無料）

関連するカテゴリからQ&Aを探す

ページトップページトップ

Q質問する（無料）

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おすすめ情報