Visual Basic - Problema para...............

Hola a todos y todas.
Necesito hacer lo siguiente, que al momento de mandar imprimir en Crystal, ose al momento de imirimir un Orden de Compra me actualice un campo, que esta en 0 quiero que lo ponga en 1 ose que lo actualice a 1.

Ya lo puedo hacer el problema es que por ejemplo al darle Imprimir, primeramente me presente un Previw para consultar y ya desde ahi ya me actualiza ese campo, como le hago para que me lo actualice hasta que ya se haya impreso en papel?.

Gracias.

Envio Codigo:
Private Sub ImprimeInfo()
Dim RepDes As Integer
Dim OrdIni As Integer
Dim OrdFin As Integer

rsCon.MoveFirst
OrdIni = rsCon("Orden")
rsCon.MoveLast
OrdFin = rsCon("Orden")

rsCon.MoveFirst
Call dbCon.Cm_Ejecuta_Query("UPDATE EncOrdenesCompra SET Impresa = 1 WHERE Orden = " & OrdIni)
rsCon.MoveLast
Call dbCon.Cm_Ejecuta_Query("UPDATE EncOrdenesCompra SET Impresa = 1 WHERE Orden =" & OrdFin)

ReDim GloParametros(2)
GloParametros(0) = nEmpresa
GloParametros(1) = OrdIni
GloParametros(2) = OrdFin

Call frmReporte.ShowPreviewWindow("", Me, pathREPORTES & "Comp0012.rpt", "", "", RepDes, "", "")
frmReporte.Show 1
End Sub

Gracias.
Monterrey-Mexico