Problemas con la impresión de varios informes

nosajo
03 de Diciembre del 2003
Hola. Estoy intentando imprimir tres informes seguidos y quiero que para cada uno de ellos salga la ventana de la impresora. El problema es que aunque me salga tres veces esa ventana siempre me saca el mismo informe aunque yo cambie el recordset del que tira. Os pongo parte del código a ver qué pensáis que puedo hacer. Gracias de antemano. Saludos.
'se mira si el presupuesto posee artículos de las tres
'categorías. Si existe una categoría se imprime el
'infome de esa categoría.

msDatos.OpenCurrentDatabase (App.Path & "bibliotecas.mdb")
On Error Resume Next
For intI = 0 To 2
If intI = 0 Then 'dvds
strSql = strSql & "'DVD'"
strInf = "num_Presupuesto=" & "'" & txtNumero & "'" & "and tbl_Formatos.Formato='DVD'"
End If
If intI = 1 Then 'vhs
strSql = strSql & "'VHS'"
strInf = "num_Presupuesto=" & "'" & txtNumero & "'" & "and tbl_Formatos.Formato='VHS'"
End If
If intI = 2 Then 'cds
strSql = strSql & "'CD'"
strInf = "num_Presupuesto=" & "'" & txtNumero & "'" & "and tbl_Formatos.Formato='CD'"
End If
Set rS = bDatos.OpenRecordset(strSql, dbOpenSnapshot)
If Not rS.EOF Then
msDatos.DoCmd.OpenReport "EnviarPresupuesto", acPreview, "cta_EnviarPresupuesto", strInf
'CerrarRecordset rS
SendKeys "({+}{%}{TAB})"
msDatos.DoCmd.RunCommand acCmdPrint
msDatos.DoCmd.Close acReport, "EnviarPresupuesto", acSaveNo
End If
Next intI