Centrar datos en un PictureBox

[gasafonso]

Necesito Centrar los datos de un PictureBox, sobre todo las ultimas 3 columnas

Código vb:

For i = FormPacientes.grillaDetallepaciente.Rows - FormPacientes.Text3.text To FormPacientes.grillaDetallepaciente.Rows - 1
   If FormPacientes.grillaDetallepaciente.TextMatrix(i, 1) <> "" Then
     vp.CurrentX = 1
     vp.Print FormPacientes.grillaDetallepaciente.TextMatrix(i, 0);
     vp.CurrentX = 5
     vp.Print FormPacientes.grillaDetallepaciente.TextMatrix(i, 1);
     vp.CurrentX = 7
     vp.Print FormPacientes.grillaDetallepaciente.TextMatrix(i, 2);
     vp.CurrentX = 13
     vp.Print FormPacientes.grillaDetallepaciente.TextMatrix(i, 4);
     vp.CurrentX = 16
     vp.Print FormPacientes.grillaDetallepaciente.TextMatrix(i, 5);
     vp.CurrentX = 19
     'vp.Align = 1
     vp.Print FormPacientes.grillaDetallepaciente.TextMatrix(i, 6)
   End If ' <>""
 Next
 

[SalomonSab]

Para sentrar una texto con el objeto printer lo hago asi:

Código:

'Centramos el texto
        Printer.CurrentX = 19 + ((1.5 - Printer.TextWidth(grillaDetallepaciente.TextMatrix(i, 6))) / 2)
'Lo Imprimimos
        Printer.Print MSHFlexSalidas.TextMatrix(i, 6)

Espero te sirva

[gasafonso]

Perdon , en realida no lo quiero centrar sino alinear a la derecha o sea
tengo datoas asi

0.35
10.25
11.35
1.32
y los quiero asi :

0.35
10.25
11.35
1.32

[SalomonSab]

Me imagino que quieres decir asi:

Código:

 0.35
10.25
11.35
 1.32

si es asi entonces utiliza este codigo:

Código:

'Alineamos a la Izquierda
        Printer.CurrentX = 19 + ((1.5 - Printer.TextWidth(Format(grillaDetallepaciente.TextMatrix(i, 6), "#,##0.00")))
'Lo Imprimimos
        Printer.Print Format(MSHFlexSalidas.TextMatrix(i, 6), "#,##0.00")

Espero sea:

Nos Vemos

[gasafonso]

lo de alinear anda perfecto !!!! pero lo de imprimir no me lo pone asi:

3.005,90
3.098,78
34.678,54
34.999,78

[SalomonSab]

si colocas el codigo donde imprimes te puedo ayudar. al aire no se por donde voy

[gasafonso]

Perdon, asi hago para imprimir

Código vb:

For i = 1 To f_factura.grilla.Rows - 1
   If f_factura.grilla.TextMatrix(i, 1) <> "" Then
     vp.CurrentX = 1
     vp.Print f_factura.grilla.TextMatrix(i, 0);
     vp.CurrentX = 5
     vp.Print f_factura.grilla.TextMatrix(i, 2);
     vp.CurrentX = 13
     vp.Print f_factura.grilla.TextMatrix(i, 3); ' ojo ; no baja el renglón
     vp.CurrentX = 18
     vp.Print f_factura.grilla.TextMatrix(i, 4)
   End If ' <>""
 Next
 

poniendo como me dijiste, osea

vp.Print format(f_factura.grilla.TextMatrix(i, 4), "#,##0.00") no me los ajusta

[SalomonSab]

Claro que no te lo va ajustar porque solo le estas indicando un paramentro y no lo estas Justificando en el ajemplo que te di anteriormente te enseño como ajustar los datos a las derecha que es lo que necesitas:

seria algo asi:

Código:

For i = 1 To f_factura.grilla.Rows - 1
   If f_factura.grilla.TextMatrix(i, 1) <> "" Then
    'Alineamos 
     Printer.CurrentX = 1 + ((1.5 - Printer.TextWidth(Format(f_factura.grilla.TextMatrix(i, 0), "#,##0.00")))
     'Lo Imprimimos
     Printer.Print Format(f_factura.grilla.TextMatrix(i, 0), "#,##0.00")
   End If ' <>""
 Next

[gasafonso]

de esta manera lo imprime pero alineado hacia la izquierda , osea

3065.90
4031.02
35645.32
36214.36

y yo lo necesito hacia la derecha, osea

3065.90
4031.02
35645.32
36214.36


gracias

[SalomonSab]

y ya probaste el codigo que te puse, porque a mi men funciona a la perfeccion me alinea los datos en forma numerica cuando los muestro en la impresión revisa el codigo seguramente tienes algo mal por ahi

[gasafonso]

No me dio resultado el:

Código vb:

Printer.Print Format(f_factura.grilla.TextMatrix(i, 0), "#,##0.00")
 

sale mal, yo lo quiero alineado a la derecha y sale a la izquierda

[SalomonSab]

es que primero lo tienes que alinear y despues imprimir solo estas mandando a imprimir con el codigo que colocas debe ir asi:

Código:

'Alineamos 
     Printer.CurrentX = 1 + ((1.5 - Printer.TextWidth(Format(f_factura.grilla.TextMatrix(i, 0), "#,##0.00")))
     'Lo Imprimimos
     Printer.Print Format(f_factura.grilla.TextMatrix(i, 0), "#,##0.00")

Espero que ahora si los coloque a la derecha

[gasafonso]

Ahhhh, no te habia entendido

Anda perfecto graciasssssssssss

[SalomonSab]

Que bueno que arreglaste tu problema

Saludos