¿Cómo Imprimo un recordset?

Estoy programando en VB 6.0 con Access XP y deseo imprimir lo almaceno en un Recordset y no se como
1

1 Respuesta

7.200 pts.
Ejecuta esta sentencia.
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "select * from ImpFact", conTree, adOpenStatic, adLockOptimistic
Printer.Font = "arial"
Printer.FontSize = 8
Printer.FontBold = False
Printer.FontUnderline = False
do while basedato.eof=true
`le das la ubicacion
Printer.CurrentX = 5000 Printer.CurrentY = 3000
aqui imprimes
printer.print basedato.Fields("campo")
aqui finalizas la impresion
Printer. EndDoc
Aquí descargas la basedato
Set adoPrimaryRS = Nothing

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas