Macro Help - previewing merged data in excel

[SimplyDig]

I modified the example from this site (Spreadsheet Page Excel Tips: Mail Merge - Without Word) to create forms I needed and it worked great but when I use the preview button (Macro below) it opens individual windows. How do I get it to preview all forms in one window so I can then print or close the preview all at once.

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

I appreciate any help I can get, thank you!

 

[SimplyDig]

Any advice here?