Producto1 50.00 1 100.00
Producto2 25.00 5 125.00
Otro prod 60.00 2 120.00
ucto 2
Producto5 25.00 4 100.00
Código:
Printer.Print rs.MoveFirst Do Until rs.EOF With rs Printer.CurrentX = 5 Printer.Print !descripcion; sImp1 = Format(!precio, "###0.00") Printer.CurrentX = 49 - (Printer.TextWidth(sImp1)) 'Alinea los decimales a la derecha? Printer.Print sImp1; sImp2 = Format(!cantidad) Printer.CurrentX = 59 - (Printer.TextWidth(sImp2)) Printer.Print sImp2; sImp3 = Format(!subtotal, "###0.00") Printer.CurrentX = 69 - (Printer.TextWidth(sImp3)) Printer.Print sImp3; Printer.CurrentY = Printer.CurrentY + 0.9 'Espacio entre cada fila del rs End With rsl.MoveNext Loop Printer.Print