SoloCodigo

por favor alguien que me ayude , el problema es que utilizo un datareport para mandar a imprimir notas de venta pero despues de imprimir la primera la siguiente nota aparese en blanco

el codigo que uso para la impresion es el siguiente

Private Sub Imprimenot(Bandera1 As Boolean)
Dim Qry As String
    If Coneccion1.rsNotaventap_Grouping.State = adStateOpen Then
    Coneccion1.rsNotaventap_Grouping.Close
    End If
        If Coneccion1.rsNotaventa_Grouping.State = adStateOpen Then
    Coneccion1.rsNotaventa_Grouping.Close
    End If
    Qry = "select * from notadeventa where nnota=" & Numnota
If Bandera1 = True Then
Coneccion1.Commands(5).CommandText = " SHAPE {" & Qry & "}  AS Notaventa COMPUTE Notaventa BY 'NNOTA','FECHA','HORA','EMPLEADO','NOMBRE','MAQ'"
NotasV.Title = Label17
'NotasV.PrintReport
'NotasV.Hide
NotasV.Show
Else
Coneccion1.Commands(6).CommandText = " SHAPE {" & Qry & "}  AS Notaventap COMPUTE Notaventap BY 'NNOTA','FECHA','HORA','EMPLEADO','NOMBRE'"
NotasvP.Title = Label17
'NotasvP.PrintReport
'NotasvP.Hide
NotasvP.Show
End If

End Sub


agradeceria su ayuda bye