No.2ベストアンサー
- 回答日時:
以下のようにしてください。
2回目と3回目の印刷の場合のみ、2部印刷するようにしています。
Sub test()
Dim fld As String
Dim fil As String
Dim wb As Workbook
Dim wc As Long
Dim i As Long
fld = "C:\"
fil = Dir(fld & "\*.xls")
Dim fno As Long: fno = 0
Do While fil <> ""
fno = fno + 1
Set wb = Workbooks.Open(fld & "\" & fil)
ws = wb.Worksheets.count
For i = 1 To ws
If fno = 2 Or fno = 3 Then
wb.Worksheets(i).PrintOut Copies:=2
Else
wb.Worksheets(i).PrintOut
End If
Next i
wb.Close
fil = Dir()
Loop
Set wb = Nothing
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルシートのPDFでの保存 2 2022/09/06 13:05
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- Visual Basic(VBA) VBAで不特定枚数印刷をしたいです。 4 2022/08/02 07:30
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- フリーソフト 写真の一覧印刷ソフト 2 2023/07/28 16:48
- Excel(エクセル) エクセルの印刷マクロについて質問があります。 現在、下記のマクロで印刷しています。Sheet1のD6 5 2023/06/12 10:59
- Windows 10 ネットワークプリンターにファイルを直接送る方法・コマンドないですか?(´・ω・`) 3 2023/03/13 23:15
- Visual Basic(VBA) DisplayAlertsブロパティで ”実行時エラー424オブジェクトが必要です” 5 2022/05/15 18:02
- PDF vbaでpdfを開いて1ページ目のみ印刷する。 1 2022/11/12 12:35
- その他(ソフトウェア) 写真の印刷レイアウトについて 13 2023/05/31 07:20
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
Excel・Word リサーチ機能を無...
-
ExcelのVBA。public変数の値が...
-
メッセージボックスのOKボタ...
-
2つのマクロでチェックボックス...
-
エクセルのマクロについて教え...
-
Excel2013 VBA マクロ実行中に...
-
エクセルのマクロについて教え...
-
VBA初心者 Ctrl+での操作、ボタ...
-
エクセルで別のセルにあるふり...
-
エクセルのマクロについて教え...
-
Excelマクロを引数付で起動
-
「マクロ」の語源
-
エクセルのマクロについて教え...
-
レポートで空データ時に印刷しない
-
ユーザーフォームを起動しなが...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
エクセルで別のセルにあるふり...
-
ExcelのVBA。public変数の値が...
-
エクセルに張り付けた写真のフ...
-
ExcelVBAでPDFを閉じるソース
-
EXCELのVBAでRange("A1:C4")を...
-
Excel VBAからAccessマクロを実...
-
TERA TERMを隠す方法
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
マクロ実行時、ユーザーフォー...
-
Excelのマクロについて教えてく...
-
ソース内の行末に\\
おすすめ情報
Sub test()
Dim fld As String
Dim fil As String
Dim wb As Workbook
Dim wc As Long
Dim i As Long
fld = "C:\"
fil = Dir(fld & "\*.xls")
Do While fil <> ""
Set wb = Workbooks.Open(fld & "\" & fil)
ws = wb.Worksheets.Count
For i = 1 To ws
wb.Worksheets(i).PrintOut
Next i
wb.Close
fil = Dir()
Loop
Set wb = Nothing
End Sub