En VB 6, pues no creo poder alludarte o darte otra forma como la de arriva del crystal reprts, pero te sugerisria que en una base de datos guardes todos los datos de los usuarios cn una tabla de altas, u con una tabla de busqueda que el usuario busque por medio de su ID sus datos y que aparescan en una tabla paresida a exel, que le pongas la opision de imprimir y que implima sus datos
Ojala te allude la consulta siguiente para la tabla de busuqueda de los usuarios de tu programa;
ovimente mucho depende del diseño que le des
Public CONEXION As ADODB.Connection
Public TABLA As ADODB.Recordset
Private Sub CMDANTERIOR_Click()
TABLA.MovePrevious
If TABLA.BOF Then
TABLA.MoveLast
End If
Call MUESTRA
End Sub
Private Sub CMDFINAL_Click()
TABLA.MoveLast
Call MUESTRA
End Sub
Private Sub CMDINICIO_Click()
TABLA.MoveFirst
Call MUESTRA
End Sub
Private Sub CMDSALIR_Click()
Unload Me
End Sub
Private Sub CMDSIGUIENTE_Click()
TABLA.MoveNext
If TABLA.EOF Then
TABLA.MoveFirst
End If
Call MUESTRA
End Sub
Private Sub Form_Load()
Set CONEXION = New ADODB.Connection
CONEXION.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=
\recursamiento\AGENDA.accdb;Persist Security Info=False"
CONEXION.Open
Set TABLA = New ADODB.Recordset
TABLA.Open "AMIGOS", CONEXION, adOpenDynamic, adLockOptimistic, adCmdTable
Call MUESTRA
End Sub
Private Sub MUESTRA()
LBLCURP.Caption = TABLA!CURP
LBLNOMBRE.Caption = TABLA!NOMBRE
LBLDOMICILIO.Caption = TABLA!DOMICILIO
LBLCP.Caption = TABLA!CP
LBLCOLONIA = TABLA!COLONIA
LBLCIUDAD.Caption = TABLA!CIUDAD
LBLESTADO.Caption = TABLA!ESTADO
LBLTELEFONO.Caption = TABLA!TELEFONO
LBLCELULAR.Caption = TABLA!CELULAR
LBLEMAIL.Caption = TABLA!EMAIL
LBLFECHA_NAC.Caption = TABLA!FECHA_NAC
End Sub
