Crystal Report - Enviar varios trabajos de impresión de una sola ve

Hola estre trozo de código ilustra un procedimiento que tengo para imprimir varias imagenes de una carpeta, tal como está funciona, pero comienza a Imprimir antes de llegar al fin de la barra de progreso. Y mi necesidad es que comienze a Imprimir sólo cuando llegue al fin de esta, como es posible?

Progreso.Max=Registros
Progreso.Visible = True

For n = 0 To Registros
Progreso.Value = n

If LineaActual < (Registros 2) Then
LineaActual = LineaActual + 1
End If

Label1 = "Generando página " & n & " de " & (Registros - 2)
Label1.Refresh
Set picImp = LoadPicture(App.path & "\tmpFiles\tmp" & n & ".WMF")
Printer.PaintPicture picImp, 0, 0
Printer.NewPage
Next n

Progreso.Visible = False
Printer.EndDoc

Muchas Gracias!!!