如何在vba中收集从for循环创建的所有打印预览？

Sub CollectPrintPreviews()
    Dim printPreviews As Collection
    Set printPreviews = New Collection
    
    Dim i As Integer
    For i = 1 To 10
        ' 创建打印预览并添加到集合中
        Dim printPreview As Object ' 根据实际情况选择合适的对象类型
        Set printPreview = CreatePrintPreview(i)
        printPreviews.Add printPreview
    Next i
    
    ' 遍历集合中的打印预览对象
    For Each printPreview In printPreviews
        ' 在这里进行打印预览的处理操作
        printPreview.Show
    Next printPreview
End Sub

Function CreatePrintPreview(index As Integer) As Object
    ' 创建并返回打印预览对象
    ' 根据实际情况编写代码
End Function