Autor Tema: Re: Como justifico el texto en la impresion (Leído 2712 veces)

kiquitam · « **en:** Martes 13 de Mayo de 2003, 17:32 »

Estoy usando el comando printer para la impresion de un archivo texto el problema es que no he podido lograr que salga el texto justificado a la izquierda son varias columnas y la segunda columna ya no la justifica, ademas la primer linea no la imprime aunque si la lee, la impresion sale de la sig forma

columna1 columna2
texto1 texto2
recepcion tex3

MiguelPG · « **Respuesta #1 en:** Lunes 19 de Mayo de 2003, 09:56 »

Utilliza el método Printer.TextWidth del objeto printer.
Te quedará perfectamente alineado
Saludos

richicuas · « **Respuesta #2 en:** Lunes 2 de Junio de 2003, 19:26 »

Para tu problema de impresión, habria que ver si tu problema no es con el control de impresión de Visual Basic, habria que ver que versión estas utilizando, y si se trata de la versión 6, entonces asegurate de tener actualizado tu Service Pack, ya que si no tienes al menos la versión 3 (que es la que corrige el control de impresora), podrias tener muchos problemas no solo para imprimir, sino para algunas cosillas más, ahora bien, si tu problema no es por el Service Pack, entonces intenta con las Propiedades Current X y CurrentY, las cuales te permiten mover tu posición en donde deseas imprimir tu texto .

MiguelPG · « **Respuesta #3 en:** Martes 3 de Junio de 2003, 00:26 »

Hola de nuevo.
Yo pensaba que ya habías solucionado el problema. Bueno por si te sirve de algo, te acompaño un pequeño ejemplo:

Supongamos que los textos a imprimir son Texto1, Texto2,Texto3 y Texto4

Printer.Print ""
Dim Y As Integer
const TW=567
Y=Printer.Current Y 'Almacenamos el valor de la posición actual de Printer.CurentY en la variable Y
Printer.CurrentX=2*TW 'Coloca el margen izquierdo de la primera columna a 2 cms del margen inquierdo
Printer.Print Texto1
Printer.CurrentY = Y 'Para que no salte una línea despues de la imprimir la primera columna

'Supongamos que la segunda columna queremos alinearla a la derecha y a 20 cm del margen izquierdo:
Printer.CurrenteX = 20*TW - Printer.textWidht(Texto2)
Printer.Print texto2

'Si lo que queremos es que la impresión de la segunda columa comience a 20 cm del margen izquierdo
'sin importar en donde acabe:

Printer.CurrentX = 20 * TW
Printer.Print Texto2

Y = Printer.Current Y 'Volvemos a guarda la posición de Printer.CurrentY

printer.CuyrrentX = 2 * TW 'Fijamos el margen izquierdo a 2 cm (Como en la primera fila)
Printer.Print Texto3

Printer.CurrentY = Y 'Para que no avance una nueva fila

'Supongamos que la tercera columna queremos alinearla a la derecha y a 20 cm del margen izquierdo:
Printer.CurrenteX = 20*TW - Printer.textWidht(Texto4)
Printer.Print texto4

'Si lo que queremos es que la impresión de la tercera columa comience a 20 cm del margen izquierdo
'sin importar en donde acabe:

Printer.CurrentX = 20 * TW
Printer.Print Texto4

'Esto lo he hecho desde el bloc de notas (no con el editor de Visual Basic), así que espero que no
'se me haya escapado ningún gazapo.
'Espero que ter sirva.
Saludos.