12/10/2008, 04:02
|
| | | Fecha de Ingreso: octubre-2008
Mensajes: 12
Antigüedad: 15 años, 7 meses Puntos: 0 | |
| Respuesta: Imprimir recordset - expertos en el objeto printer
lo mas sencillo es poner Tab de la siguiente manera
Private Sub cmdImprimir_Click()
Printer.Print
Printer.CurrentX = 800
Printer.Print "Descripción" ; 'hay que poner ; al final para mantener la misma linea, si lo quitas se escribe lo siguiente en otra linea
Printer.Print Tab(80); "Precio"
rsTemporal.MoveFirst
Do Until rsTemporal.EOF
With rsTemporal
Printer.CurrentX = 800
Printer.Print .Fields("nomprod") ;
Printer.Print Tab(80); Fields("precioventa")
End With
rsTemporal.MoveNext
Loop
Printer.EndDoc
End Sub
jugando con los Tab colocas cada cosa en su sitio. |