Exemplo:
Para justificar a direita você deve usar TextWidth para pegar o tamanho do texto que vai ser impresso.
função:
Tamanho = Printer.TextWidth(Text1)
Depois vc deve pegar a coodenada de onde voce quer que o texto fique alinhado e diminuir o tamanho.
função:
Printer.CurrentX = 10000 - Tamanho
Printer.Print Text1
Printer.EndDoc
té mais