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