Visual Basic - alinear a la derecha

Amigos

si pueden ver el codigo abajo, en para sacar un archivo plano y luego imprimirlo usando el RPV, pero este no es
problema de RPV, sino otro.

el problema que tengo es que cuando sale los valores del debe y haber en la printer o en la pantalla, me salen
aliniados a la izquierda, como se hace para que salgan a la derecha, yo pense que poniendo el format lo iba
a lograr, pero no fue a asi.

salen lo numeros asi.
0.01
100.00
12,992.28
1000.23
1.00
y asi no es? como se hace ?


Do While rs1.Fields("no_doc") = rompe_no_doc

debe = Format(rs1.Fields("debe"), "###,###,##0.00")
haber = Format(rs1.Fields("haber"), "###,###,##0.00")

miformato = "###,###,##0.00"
debe = Format(rs1.Fields("debe"), miformato)
If debe <> 0 Then
Print #1, "{9300}" & Format(debe, "###,###,##0.00")
End If

haber = rs1.Fields("haber")
If haber <> 0 Then
Print #1, "{10800}" & Format(haber, miformato)
End If

Print #1, "{\n}"

En www.ambsoftware.com hay el siguiente codigo, te puede servir de ejemplo y con algunos cambios podras adecuarlo a tus necesidades.

Inicie un nuevo proyecto, inserte un botón CommandButton.
Añada el siguiente código:

Private Sub Command1_Click()
Const TWIPS_POR_CM As Integer = 567 ' 1 Centímetro = 567 Twips
Dim Y As Integer
'Primera línea
Printer.Print "" 'Para inicializar la impresora (muy recomendable)
Printer.FontName = "Times New Roman"
Printer.FontSize = 10
Printer.CurrentY = 5 * TWIPS_POR_CM 'Posición de comienzo
Y = Printer.CurrentY
Printer.CurrentX = 2 * TWIPS_POR_CM 'Posición de la 1ª columna
Printer.Print "Caja"
Printer.CurrentY = Y 'Volver a posicionarnos en la misma línea
Printer.CurrentX = 10 * TWIPS_POR_CM - Printer.TextWidth("10.800")
'Alinear a la derecha
Printer.Print "10.800"
'Segunda línea
Y = Printer.CurrentY 'CurrentY siempre apunta a la siguiente línea después de hacer un Print
Printer.CurrentX = 2 * TWIPS_POR_CM 'Posición de la 1ª columna
Printer.Print "Inventarios"
Printer.CurrentY = Y 'Volver a posicionarnos en la misma línea
Printer.CurrentX = 10 * TWIPS_POR_CM - Printer.TextWidth("1.000")
'Alinear a la derecha
Printer.Print "1.000"
'Fin de la impresión
Printer.EndDoc
End Sub

Saludos desde Lima