Включение сохранения в файл с уникальным именем или печать нескольких записей автоматически

Question

Мой проект создает форму слияния в Excel (я скопировал ее у кого-то).

Я хотел бы изменить макрос печати, чтобы выполнить одно из следующих действий:

1. Выполнить цикл и напечатать каждую запись в файл (уникальное имя) или

2. Автоматическая печать всех записей (за один раз)

Прямо сейчас, когда я запускаю макрос, я должен вручную распечататькаждый раз.У меня более 200 записей, так что это отнимает много времени.

Sub PrintForms()
    Dim StartRow As Integer
    Dim EndRow As Integer
    Dim Msg As String
    Dim i As Integer

    Sheets("Form").Activate
    StartRow = Range("StartRow")
    EndRow = Range("EndRow")

    If StartRow > EndRow Then
        Msg = "ERROR" & vbCrLf & "The starting row must be less than the ending row!"
        MsgBox Msg, vbCritical, APPNAME
    End If

    For i = StartRow To EndRow
        Range("RowIndex") = i
        If Range("Preview") Then
            ActiveSheet.PrintPreview
        Else
            ActiveSheet.PrintOut
        End If
    Next i
End Sub