Impresión

Me gustaría que me dijeras como imprimir textbox que contienen cantidades pero ordenadas de derecha a izquierda porque lo quiero para una factura
Utilizo el printer. Currentx y y para indicar las coordenadas pero cuando imprime me hace esto:
2.34
1234.34
Y necesito que salgan ordenados al revez porque en la factura necesitan estar justificados por la derecha.
      2.34
1234.34
LLevo bastante tiempo con este problema y nadie me puede dar una solución.
Respuesta
1
Necesitaría que me enviases la parte del código donde imprimes, para ver que variables usas y como las usas.
Claro que si mira:
La primera parte del código obtengo las cantidades y las coloco en textbox y en la parte de abajo las imprimo lo único que les hice a las cantidades fue darles el formato solo para que me salieran dos decimales, en el programa ordena las cantidades bien alineadas a la derecha pero cuando las imrpimo me las ordena a la izquierda, y ya vez que en las facturas generalmente las cantidades están hacia a la derecha punto con punto.
Private Sub calcular_Click()
Dim a, b, c, d, e, f, g, h, r1, iv, st, ri, tn As Double
a = importe1(16).Text
b = importe2(17).Text
c = importe3(18).Text
d = importe4(19).Text
e = importe5(20).Text
f = importe6(21).Text
g = importe7(22).Text
h = importe8(23).Text
r1 = 0
iv = 0
st = 0
ri = 0
tn = 0
r1 = (Val(a) + Val(b) + Val(c) + Val(d) + Val(e) + Val(f) + Val(g) + Val(h))
I.Text = Format(Format(r1, "#,###.00"), "@@@@@@@@@@@")
'I.Text = Format(r1, "###,###.00")
iv = Val(r1) * 0.15
iva(25).Text = Format(Format(iv, "#,###.00"), "@@@@@@@@@@@")
'iva(25).Text = Format(iv, "###,###.00")
st = (Val(a) + Val(b) + Val(c) + Val(d) + Val(e) + Val(f) + Val(g) + Val(h)) + (r1 * 0.15)
suto.Text = Format(Format(st, "#,###.00"), "@@@@@@@@@@@")
'suto.Text = Format(st, "###,###.00")
ri = Val(a) * 0.04
reten.Text = Format(Format(ri, "#,###.00"), "@@@@@@@@@@@")
'reten.Text = Format(ri, "###,###.00")
tn = (st) - (Val(a) * 0.04)
total(26).Text = Format(Format(tn, "#,###.00"), "@@@@@@@@@@@")
'total(26).Text = Format(tn, "###,###.00")
End Sub
Private Sub calculo2_Click()
Dim valor1, valor2 As Double
valor2 = Val(PU.Text)
valor1 = 0
valor1 = Val(valor2)
PUF.Text = Format(valor1, "###,###.00")
'importe1(16).Text = Format(CLng(valor1), "###,###.00")
End Sub
Private Sub Command1_Click()
Printer.PaperSize = 1
'tamaño A4
Printer.ScaleMode = 6 'mm
Printer.CurrentX = 30
Printer.CurrentY = 37
Printer.Print a1(1).Text
Printer.CurrentX = 30
Printer.CurrentY = 43
Printer.Print a1(0).Text
Printer.CurrentX = 30
Printer.CurrentY = 49
Printer.Print a1(2).Text
Printer.CurrentX = 30
Printer.CurrentY = 55
Printer.Print a1(3).Text
Printer.CurrentX = 30
Printer.CurrentY = 61
Printer.Print a1(4).Text
Printer.CurrentX = 160
Printer.CurrentY = 51.5
Printer.Print dia.Text
Printer.CurrentX = 175
Printer.CurrentY = 51.5
Printer.Print mes(5).Text
Printer.CurrentX = 190
Printer.CurrentY = 51.5
Printer.Print anio(6).Text
Printer.CurrentX = 15
Printer.CurrentY = 85
Printer.Print viaje(0).Text
Printer.CurrentX = 15
Printer.CurrentY = 91
Printer.Print viaje(1).Text
Printer.CurrentX = 15
Printer.CurrentY = 97
Printer.Print viaje(2).Text
Printer.CurrentX = 15
Printer.CurrentY = 103
Printer.Print viaje(3).Text
Printer.CurrentX = 60
Printer.CurrentY = 85
Printer.Print relacion(8).Text
Printer.CurrentX = 60
Printer.CurrentY = 91
Printer.Print relacion(9).Text
Printer.CurrentX = 60
Printer.CurrentY = 97
Printer.Print relacion(10).Text
Printer.CurrentX = 60
Printer.CurrentY = 103
Printer.Print relacion(11).Text
Printer.CurrentX = 179
Printer.CurrentY = 81.5
Printer.Print importe1(16).Text
Printer.CurrentX = 179
Printer.CurrentY = 90.5
Printer.Print importe8(23).Text
Printer.CurrentX = 179
Printer.CurrentY = 97.5
Printer.Print importe7(22).Text
Printer.CurrentX = 179
Printer.CurrentY = 104.5
Printer.Print importe6(21).Text
Printer.CurrentX = 179
Printer.CurrentY = 111.5
Printer.Print importe3(18).Text
Printer.CurrentX = 179
Printer.CurrentY = 118.5
Printer.Print importe2(17).Text
Printer.CurrentX = 179
Printer.CurrentY = 125.5
Printer.Print importe2(17).Text
Printer.CurrentX = 179
Printer.CurrentY = 132.5
Printer.Print importe2(17).Text
Printer.CurrentX = 143 'SOBRE ESCRIBIR EN OTROS
Printer.CurrentY = 125.5
Printer.Print Text1.Text
Printer.RightToLeft = True
Printer.CurrentX = 179
Printer.CurrentY = 180
Printer.Print I.Text
Printer.RightToLeft = True
Printer.CurrentX = 179
Printer.CurrentY = 187
Printer.Print iva(25).Text
Printer.RightToLeft = True
Printer.CurrentX = 179
Printer.CurrentY = 194
Printer.Print suto.Text
Printer.RightToLeft = True
Printer.CurrentX = 179
Printer.CurrentY = 201
Printer.Print reten.Text
Printer.RightToLeft = True
Printer.CurrentX = 179
Printer.CurrentY = 208
Printer.Print total(26).Text
Printer.CurrentX = 17
Printer.CurrentY = 219.5
Printer.Print Text4.Text
Printer.EndDoc
Pofa ayudame tengo un buen que no puedo resolver este problema, te agradezco
Voy a ver si me te sirve mi idea:
Cogemos la cadena que queremos imprimir y guardamos su longitud en una variable:
Lon01 =  Len(CStr(cadena))
y después el CurrentX si queremos que quede a una distacia 90 justificado por la derecha:
Printer.CurrentX = 90 - Lon01
Prueba y me dices si te funciona. Es importante que la fuente sea como la courier, que ocupa lo mismo una "i" que una "W".

3 respuestas más de otros expertos

Respuesta
1
Pásame el pedazo de código donde utilizas el currentx
se alinear a la derecha, pero necesites que me pases el código completo así te lo armo.
Es algo así capaz que lo haces.
printer.currenty= 7
Printer.CurrentX = 10 - Printer.TextWidth(variable)
printer.print = variable
Así alineo a la derecha.
Mira en la primer parte del código cálculo las cantidades para guardarlas en textbox y en la parte de
abajo las imprimo con las coordenadas, pero el detalle es que supongo que cuando se trata de coordenadas toma en cuanta de izquierda a derecha por eso cuando me imprime me imprime las cantidades alineadas a la izquierda y ya vez que generalmente en las facturas las cantidades son alineadas a la derecha
Private Sub calcular_Click()
Dim a, b, c, d, e, f, g, h, r1, iv, st, ri, tn As Double
a = importe1(16).Text
b = importe2(17).Text
c = importe3(18).Text
d = importe4(19).Text
e = importe5(20).Text
f = importe6(21).Text
g = importe7(22).Text
h = importe8(23).Text
r1 = 0
iv = 0
st = 0
ri = 0
tn = 0
r1 = (Val(a) + Val(b) + Val(c) + Val(d) + Val(e) + Val(f) + Val(g) + Val(h))
I.Text = Format(Format(r1, "#,###.00"), "@@@@@@@@@@@")
'I.Text = Format(r1, "###,###.00")
iv = Val(r1) * 0.15
iva(25).Text = Format(Format(iv, "#,###.00"), "@@@@@@@@@@@")
'iva(25).Text = Format(iv, "###,###.00")
st = (Val(a) + Val(b) + Val(c) + Val(d) + Val(e) + Val(f) + Val(g) + Val(h)) + (r1 * 0.15)
suto.Text = Format(Format(st, "#,###.00"), "@@@@@@@@@@@")
'suto.Text = Format(st, "###,###.00")
ri = Val(a) * 0.04
reten.Text = Format(Format(ri, "#,###.00"), "@@@@@@@@@@@")
'reten.Text = Format(ri, "###,###.00")
tn = (st) - (Val(a) * 0.04)
total(26).Text = Format(Format(tn, "#,###.00"), "@@@@@@@@@@@")
'total(26).Text = Format(tn, "###,###.00")
End Sub
Private Sub calculo2_Click()
Dim valor1, valor2 As Double
valor2 = Val(PU.Text)
valor1 = 0
valor1 = Val(valor2)
PUF.Text = Format(valor1, "###,###.00")
'importe1(16).Text = Format(CLng(valor1), "###,###.00")
End Sub
Private Sub Command1_Click()
Printer.PaperSize = 1
'tamaño A4
Printer.ScaleMode = 6 'mm
Printer.CurrentX = 30
Printer.CurrentY = 37
Printer.Print a1(1).Text
Printer.CurrentX = 30
Printer.CurrentY = 43
Printer.Print a1(0).Text
Printer.CurrentX = 30
Printer.CurrentY = 49
Printer.Print a1(2).Text
Printer.CurrentX = 30
Printer.CurrentY = 55
Printer.Print a1(3).Text
Printer.CurrentX = 30
Printer.CurrentY = 61
Printer.Print a1(4).Text
Printer.CurrentX = 160
Printer.CurrentY = 51.5
Printer.Print dia.Text
Printer.CurrentX = 175
Printer.CurrentY = 51.5
Printer.Print mes(5).Text
Printer.CurrentX = 190
Printer.CurrentY = 51.5
Printer.Print anio(6).Text
Printer.CurrentX = 15
Printer.CurrentY = 85
Printer.Print viaje(0).Text
Printer.CurrentX = 15
Printer.CurrentY = 91
Printer.Print viaje(1).Text
Printer.CurrentX = 15
Printer.CurrentY = 97
Printer.Print viaje(2).Text
Printer.CurrentX = 15
Printer.CurrentY = 103
Printer.Print viaje(3).Text
Printer.CurrentX = 60
Printer.CurrentY = 85
Printer.Print relacion(8).Text
Printer.CurrentX = 60
Printer.CurrentY = 91
Printer.Print relacion(9).Text
Printer.CurrentX = 60
Printer.CurrentY = 97
Printer.Print relacion(10).Text
Printer.CurrentX = 60
Printer.CurrentY = 103
Printer.Print relacion(11).Text
Printer.CurrentX = 179
Printer.CurrentY = 81.5
Printer.Print importe1(16).Text
Printer.CurrentX = 179
Printer.CurrentY = 90.5
Printer.Print importe8(23).Text
Printer.CurrentX = 179
Printer.CurrentY = 97.5
Printer.Print importe7(22).Text
Printer.CurrentX = 179
Printer.CurrentY = 104.5
Printer.Print importe6(21).Text
Printer.CurrentX = 179
Printer.CurrentY = 111.5
Printer.Print importe3(18).Text
Printer.CurrentX = 179
Printer.CurrentY = 118.5
Printer.Print importe2(17).Text
Printer.CurrentX = 179
Printer.CurrentY = 125.5
Printer.Print importe2(17).Text
Printer.CurrentX = 179
Printer.CurrentY = 132.5
Printer.Print importe2(17).Text
Printer.CurrentX = 143 'SOBRE ESCRIBIR EN OTROS
Printer.CurrentY = 125.5
Printer.Print Text1.Text
Printer.RightToLeft = True
Printer.CurrentX = 179
Printer.CurrentY = 180
Printer.Print I.Text
Printer.RightToLeft = True
Printer.CurrentX = 179
Printer.CurrentY = 187
Printer.Print iva(25).Text
Printer.RightToLeft = True
Printer.CurrentX = 179
Printer.CurrentY = 194
Printer.Print suto.Text
Printer.RightToLeft = True
Printer.CurrentX = 179
Printer.CurrentY = 201
Printer.Print reten.Text
Printer.RightToLeft = True
Printer.CurrentX = 179
Printer.CurrentY = 208
Printer.Print total(26).Text
Printer.CurrentX = 17
Printer.CurrentY = 219.5
Printer.Print Text4.Text
Printer.EndDoc
´porfa que podria yo hacer experto.... tengo un buen de tiempo sin resolverlo
Vamos con unos consejos que a mi me sirvieron muchísimo.
Seguro debes estar trabajando con una factura pre-impresa.
Primero yo trabajo en centímetros, porque modificar algo en mm es muy complicado.
Comprate una buena regla de 30 cm y tenela siempre a mano.
Después olvidate por un momento que es algo pre-impreso, practica el uso de las coordeanadas
y la forma de alinear a la izquierda.
Atención yo uso primero las coordenadas de y y en centímetros
Printer.CurrentY = 1
Printer.CurrentX = 10 - printer.textwidth(a1(1).text)
Printer.Print a1(1).Text
Con el textwidht, logramos que el importe se alinee a la derecha, si imprimís en una hoja en blanco
vas a ver que el texto se imprime el ultimo decimal desde el los 10 cm, y si no usas textwidht el primer numero del importe se imprime desde el 10 y te queda alineado a la izquierda.
Lo que te cambia es la coordenadas por, porque tienes que calcular donde quieres que quede el ultimo decimal.
Te imaginas es medio dificil explicarlo, por eso te pide que hagas una prueba en hoja en blanco
utilizandos todas las opciones,
printer.currentY=1
printer.currentX=1
printer.print "Coordenada 1 de 1"
==================
printer.currentY=10
printer.currentX=10
printer.print "100.36"
printer.currentY=11
printer.currentX=10-printer.textwidth("100.36")
Printer. Print "100.36"
Con esta prueba vas a notar la diferencia.
Respuesta
1
Se me ocurre que hagas una rutina que verifique o cuente cuantos dígitos vas a imprimir, y cuando sepas cuantos vas a imprimir de acuerdo a la cantidad de puntos que estas utilizando para el font, cuentas desde el punto final hacia el inicio para que los números te queden justificados a la derecha.
Respuesta
1
Lo mismito me sucedió
Te voy a dar la idea para solucionarlo
Tienes una posición, a esta posición le restas el ancho ( no se refiere al numero de caracteres) del resultado: por ejemplo:
1500.00 no es lo mismo que
1500 no tienen el mismo ancho.
Pero primero calcula el ancho de esa cadena (aunque sea numérico)
Busca la función que trae el propio visual basic para calcular ancho de canedas.
Suerte y no dudes en consultar.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Imprimir en formato pre-impreso

Quisiera generar un reporte en un formato pre-impreso. Considero que es más recomendable hacerlo con el Objeto Printer pero no sé como usarlo.
1 respuesta

Alinear a la derecha datos numéricos

De Enciso, Mi nombre es Víctor Loredo espero me puedas ayudar. Ya que he visto que tienes bastante conocimiento en visual basic. Un servidor apenas tiene poco tiempo aprendiendo este lenguaje. Le doy salida a impresión a unos datos numéricos...
1 respuesta

Error 482, error de impresora. Vb6

Deje esta pregunta en un foro pero no me contestaron, a ver si tu pudieras ayudarme, he instalado el spk6 de vb6 y ni así funciona. Te describo el problema. Mil gracias por adelantado Tengo el siguiente problema. Imprimiendo unos campos de una base...
1 respuesta

Edición e impresión de texto

Te rogaría que me ayudses con lo siguiente. Necesito imprimir en una impresora usb tipo tickets un texto tipo memo (como por ejemplo una receta) que se me ajuste al tamaño del papel (unos 7 u 8 cm), por lo que salvo que exista alguna forma de mandar...
2 respuestas

Alineación para imprimir...

Espero Que bien. Bueno mi consulta es la siguiente : Estoy imprimiendo (a papel) los datos de una grilla con las sgtes instruc.. ******************** .Col = 7 'es un Valor Printer.CurrentY = 3 Printer.CurrentX = 15 Printer.Print " " & .Text & " "...
2 respuestas

Imprimir desde Visual Basic

Estoy intentando imprimir desde Visual Basic 6.0 directamente utilizando la propiedad PRINTER. PRINT. Necesito justificar en columnas varios campos, pero no lo consigo. ¿Me puedes comentar como puedo hacerlo? Muchas gracias y saludos. Así mismo...
2 respuestas

¿Es posible añadir datos por filas y columnas en el dbgrid sin estar fijos a una base de datos?

Tengo un nuevo problemilla. Quiero hacer mi listado (de libros por ejemplo) dinámicamente. Había pensado en que se crearan label automáticamente, y poner un vbscroll, pero no se como enlazarlo para que me las muestre todas. Entonces pensé en usar un...
1 respuesta

Justificar Texto en Visual Basic 5.0

Quisiera saber como puedo justificar texto al imprimir con: Printer. Print "Como puedo justificar este texto" Necesito que el texto quede alineado en ambos costados.
3 respuestas

Como imprimo un datagrid!

Tengo este problema hace bastante tiempo y no como resolverlo espero que me puedan ayudar, solo necesito imprimir datos de un data grid.
1 respuesta

Sumar dos campos en access 2013

Tengo una tabla con cuatro campos los cual tres quiero sumar y en el cuarto quiero que me aparezca el resultado de las tres ya intente de varias maneras como: [totalimporte]=nz([importe1]+[importe2]+[importe3]) Esto lo ingrese en eventos al cargar...
2 respuestas