Cita:
Iniciado por redpos 
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.
Pero, además que no lo va a imprimir formateado como él quiere, si los números no tienen los mismos dígitos, no los va a alinear con Tab.
p.e.
numero1....1256,30
numero2....336,50
cuando debería ser:
Numero1....1.256,30
Numero2......336,50 