mira disuculpa no habia visto tu mensaje.. o asi que aqui te pongo un código más simple y que hace lo mismo..
Código:
Printer.CurrentX = 5000 - Printer.TextWidth(Format$(Total, "#########.00"))
Printer.CurrentY = 1000
Printer.Print Format$(Total, "#########.00")
nos vemos.. y espero que te sirva..