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
