data report

tema enviado por Vero en Visual Basic 6.0
tema iniciado el 25/08/2009

Hola Soy Vero les cuento q necesito: la idea es imprimir codigo de barras varias veces del mismo codigo por hoja; yo tengo en la bd el codigo generado y a traves de lineas de codigo leo este codigo de barra y lo agrego al data report... hasta ahi anda perfecto... mi problema es que me sale el codigo una vez y no lo puedo generar varias veces... se entiende? les adjunto el codigo q hice...

Dim numero As Integer
    numero = CInt(txtNroArticulo.Text)
    If recor.State = 1 Then recor.Close
    sql = "SELECT  cod_art,descripcion FROM Articulo WHERE id_articulo = " & numero & " "
'SI DESEAS OBTENER UN REGISTRO EN ESPECIAL DEBES CAMBIAR EL COMANDO SQL
    recor.LockType = adLockOptimistic
    recor.CursorLocation = adUseClient
    recor.CursorType = adOpenDynamic
    recor.Open sql, con
'AQUI SE ASIGNA EL DATA SOURCE DEL RECORDSET AL DATA SOURCE DEL DATAREPORT
   
    With drCodBarras
        Set .DataSource = Nothing
            .DataMember = ""
        Set .DataSource = recor.DataSource
'AQUI SE HACE REFERENCIA A LAS CASILLAS DE TEXTO DEL DATAREPORT
'Y SE LES ASIGNA UN CAMPO A CADA UNA PROVENIENTE DEL RECORDSET
        For i = 1 To 2
            .Sections("Sección1").Controls.Item(i).DataMember = ""
            .Sections("Sección1").Controls.Item(i).DataField = recor.Fields(i - 1).Name
        Next i
    End With
    drCodBarras.Show vbModal