Visual Basic - Imprimir contenido

Life is soft - evento anual de software empresarial
 
Vista:

Imprimir contenido

Publicado por Marito (77 intervenciones) el 06/02/2004 00:40:05
Hola como estan..que posibilidad habria de imprimir el contenido de un Recordset..es decir los campos y sus determinados datos..!!
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 contenido

Publicado por Carlos (3 intervenciones) el 06/02/2004 07:10:40
Hola:

Diseñe un algortimo para resolver lo que deseas. Si tienes una duda no dudes en contactarme. Para eso debes tener el data ligado a cajas de texto o etiquetas para llamarles del modo Printer.Print

'Primero debe configurar la impresora
Printer.FontSize = 8
Printer.FontName = "Arial"
'Aqui declaro e inicializo la variable contador para llevar la cuenta de los renglones
Dim contador As Integer
contador = 0
'Mover el Data al primer registro
Data1.Recordset.MoveFirst
'Inciar un ciclo
Do While Datos.Recordset.EOF = False
'Dentro del ciclo vamos a colocar lo que se quiera imprimir Por ejemplo:
Printer.Print Tab(3); "Máquina: "; txtMaquina.Text;
'Avanzamos un registro
Datos.Recordset.MoveNext
'Actualizamos contador
contador = contador + 1
'Si el contador vale 50, o sea si llego al final de la hoja con ese tipo de letra y tamaño
If contador = 50 Then
'Imprimir lo que sigue en una pagina nueva
Printer.NewPage
End If
'Se cierra el ciclo
Loop
'Indicamos el final del docto para que se imprima
Printer.EndDoc

Espero haber sido util

Carlos

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