Visual Basic - imprimir con formato

Life is soft - evento anual de software empresarial
   
Vista:

imprimir con formato

Publicado por Omar Rivas (14 intervenciones) el 05/08/2009 00:21:28
Amiigos.

Primero que todo agradecer a todos Uds. por la buena voluntad y cooperacion que he recibido por su parte.
ahora tengo otro problema, resulta que necesito que imprimir un archivo que tiene un formato especial.

en este command muestro lo que necesito imprimir, el tema es que tengo un solo registro aqui, como lo hago para que me imprima todos los registro de la tabla

Private Sub Command1_Click()

Set recset = New Recordset

consulta = "select * from socios where cobrador = '" & Combo2 & "' and mes_pago ='" & Combo1 & "' and año='" & Text20 & "'"
recset.Open consulta, conexion, adOpenDynamic


Frame1.Visible = True
Text1 = recset!num_socio
Text11 = Text1.Text
Text3 = recset!NOMBREs
Text12 = Text3.Text
Text4 = recset!DIRECCION
Text13 = Text4.Text
Text5 = recset!SECTOR
Text2 = recset!TELEFONO
'Text6 = recset!fecha_cobro
Text8 = recset!monto
Text17 = Text8.Text
Text9 = recset!COBRADOR
Text16 = Text9.Text
Text21 = recset!saldo
Text18 = Text21.Text
Text19 = Text10.Text
Text10 = Val(Text21) + Val(Text8)

recset.Close

pot favor ayudenme
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:imprimir con formato

Publicado por Rolando (115 intervenciones) el 05/08/2009 01:03:54
Bueno al parecer no tienes problemas en cargar tu variable recordset.

entonces ahi tienes el conjunto de registros , lo que pasa es que tienes que recorergos o buscar el registro que deseas para esto debes usar las propiedades

recset.MoveFirst <<<----- Te ubica en el primer registro
recset.MoveNext<<<----- Te ubica en el siguiente registro del registro actual
recset.MovePrevious<<<----Te ubica en el anterior registro del registro actual
recset.MoveLast<<--- Te ubica en el ultimo registro

y por ultimo recset.recordcount devuelve la cantidad de registros que tiene tu variable.

Un ejemplo usando un list y pintar o imprimir todos los datos es:

for i = 0 to recset.recordcount -1
List1.AddItem recset(0) & recset (1)
recset.movenext
next

ahi estas recoriendo tu variable y pintando la columa 0 y la columna 1 de tus registros y en cada vuelta del for ,avanzas de registro.

Espero te halla servido el ejemplo.

PD: Ojo obviamente todo esto es posible hasta antes de cerrar la variable con recset.Close

saludos

Rolando
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar