印刷をVBAでしたい とあるフォルダに1〜5までの名前がついたbookが保存されてます このbook

印刷をVBAでしたい


とあるフォルダに1〜5までの名前がついたbookが保存されてます
このbookを1枚ずつ一括印刷するマクロはできたのですが、例えば1,4,5は1枚、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")
  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

    補足日時：2022/03/28 09:54

No.2 ベストアンサー 回答者： tatsumaru77 回答日時： 2022/03/28 11:12

以下のようにしてください。

２回目と３回目の印刷の場合のみ、２部印刷するようにしています。

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

この回答へのお礼

ありがとうございます！
できました。あとは応用させていただきます。
助かりました！

お礼日時：2022/03/28 11:43

No.1 回答者： tatsumaru77 回答日時： 2022/03/28 09:43

そのマクロを提示してください。

そうすれば、良い回答が得られやすくなります。