Alineación para imprimir...

¿Has probado con el format?.
Printer. print "" & format(.text,"@@@@@@@@@@")
Haber si te funciona.

Sabes que no funcionó lo que me enviaste. Lo probé de varias formas, pero no me resulta.
Otra consulta al respecto... sabes como puedo imprimir en una Matriz de punto, pero con letra normal, NO que haga doble pasada sino que imprima letra normal como en D.O.S.
Y que cuando imprima otro usuario la impresora vuelva a su config. Original...
Gracias...

Ya es raro, a mi si que me funciona. Si quieres con separador de miles.
printer.print "" & format(format(.text,"#,##0.00"),"@@@@@@@@@@@@")
En cuanto a la impresora pon la cualizad a borrador desde las propiedades de la impresora o prueba con printer.quality = 0
Para la letra en negrita que tambien hace que haga dos pasadas, printer.fontbold=false

Sabes que no me funcionó, usé el format,
el "@@@@@@", "###,###" y no lo alinea...,,,,aparece centrado y otros a la izquierda...
tampoco funciona el
printer.printQuality = -1 (borrador)
Respecto a la Impresora "Matriz" de Punto, la letra aparece grande y siempre da doble pasada aunque le coloque Fontbold=false, y
fontname = "courier", cómo lo puedo hacer para que comprima la letra a 17 ó 20 para imprimir hasta un ancho de 132 caracteres, osea, imprimir como se hacia antes en D.O.S.
La idea es, por Ejemplo : si tengo un archivo ".txt" y desde el "D.O.S." le doy un "type archivo.txt > lpt1" y la impresora esta comprimida "manualmente" imprime rapido, eso es lo que quiero desde Visual Basic.
Desde ya gracias...
Que tengas un buen día...

Pra lo primero prueba con esto:
'------------- Fuente de tamaño variable ----------
Dim x As Integer
Dim y As Integer
' Fila Inicial
Printer.CurrentY = 0
Printer.Font.Name = "Times New Roman"
Printer.Font.Size = 6
' Longitud de cadena máxima
x = Printer.TextWidth("999,999.99")
' Longitud de cadena a imprimir
y = Printer.TextWidth(Format(12938.89, "###,##0.00"))
' Calculo de la posicion inicial (Columna)
Printer.CurrentX = (x - y)
' Imprime 1era. Fila
Printer.Print Format(12938.89, "###,##0.00")
' Longitud de cadena a imprimir
y = Printer.TextWidth(Format(938.89, "###,##0.00"))
' Calculo de la posicion inicial (Columna)
Printer.CurrentX = (x - y)
' Imprime 2da. Fila
Printer.Print Format(938.89, "###,##0.00")
Printer.Font.Size = 24
x = Printer.TextWidth("999,999.99")
y = Printer.TextWidth(Format(12938.89, "###,##0.00"))
Printer.CurrentX = (x - y)
Printer.Print Format(12938.89, "###,##0.00")
y = Printer.TextWidth(Format(938.89, "###,##0.00"))
Printer.CurrentX = (x - y)
Printer.Print Format(938.89, "###,##0.00")
'------------- Fuente de tamaño fijo ----------
Printer.Font.Name = "Courier New"
Printer.Font.Size = 6
' Imprime Filas
Printer.Print Format(Format(12938.89, "###,##0.00"), "@@@@@@@@@@")
Printer.Print Format(Format(938.89, "###,##0.00"), "@@@@@@@@@@")
Printer.Font.Size = 24
' Imprime Filas
Printer.Print Format(Format(12938.89, "###,##0.00"), "@@@@@@@@@@")
Printer.Print Format(Format(938.89, "###,##0.00"), "@@@@@@@@@@")
Printer. EndDoc
Para lo segundo:
Utiliza letra de Courier o Courier News y en modo draf la impresora.
Saludos
Roberto Alvarado
Cartagena - Colombia

Sabes que no me funcionó, usé el format,
el "@@@@@@", "###,###" y no lo alinea...
Aparece centrado y otros a la izquierda...
Respecto a la Impresora "Matriz" de Punto, la letra aparece grande y siempre da doble pasada aunque le coloque Fontbold=false, y
fontname = "courier", cómo lo puedo hacer para que comprima la letra a 17 ó 20 para imprimir hasta un ancho de 132 caracteres, osea, imprimir como se hacia antes en D.O.S.
La idea es, por Ejemplo : si tengo un archivo ".txt" y desde el "D.O.S." le doy un "type archivo.txt > lpt1" y la impresora esta comprimida "manualmente" imprime rapido, eso es lo que quiero desde Visual Basic.
Desde ya gracias...
Que tengas un buen día...