SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: shaman61 en Sábado 20 de Marzo de 2004, 22:00

Título: Datareport-refresh
Publicado por: shaman61 en Sábado 20 de Marzo de 2004, 22:00

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  :hola:

Título: Re: Datareport-refresh
Publicado por: EL Loco en Martes 30 de Marzo de 2004, 20:19

Con lo q pones no llego a ver el problema , sorry
 :blink: