Hola amigo, espero que me ayuden, no se como poner el simbolo de cordoba al imprimir en un Mshflexgrid y alinear los datosala izquierda del grid, cuando imtrodusco datos de distinta longitud se imprimen de sordenadamente , gracias por su ayuda


Esto es lo que tengo


With MSHFlexGrid1
For i = 0 To .Rows - 1
Printer.Print Tab(5); .TextMatrix(i, 1);'Imprime el contenido dela primera columna y fila
Printer.Print Tab(20); .TextMatrix(i, 2);
Printer.Print Tab(90); Format(.TextMatrix(i, 3), "###,###.00");
Printer.Print Tab(110); Format(.TextMatrix(i, 4), "#,###,###.00");
p = p + 1
If p > 0 = 20 Then
End If
Next
End With
Printer.CurrentX = 10
Printer.CurrentY = 270
Printer.Print TxtChequeN
MousePointer = 0
End If
Printer.EndDoc


Ejemplo como debe se la impresión C$ 1,225.00

Prueba con este código:

Código:

Private Sub ImprimirGrid_Click()
Dim sCifra As String, dAncho As Double


With MSHFlexGrid1
 Printer.ScaleMode = vbCharacters
 Printer.Print "";
 For i = 0 To .Rows - 1
 Printer.Print Tab(5); .TextMatrix(i, 1);
 Printer.Print Tab(20); .TextMatrix(i, 2);
 ' para que las cifras salgan alineadas a la derecha
 sCifra = Format(.TextMatrix(i, 3), "#,##0.00")
 dAncho = Printer.TextWidth(sCifra)
 Printer.CurrentX = 90 - dAncho
 Printer.Print "C$ " & sCifra;
 sCifra = Format(.TextMatrix(i, 4), "#,##0.00")
 dAncho = Printer.TextWidth(sCifra)
 Printer.CurrentX = 110 - dAncho
 Printer.Print "C$ " & sCifra
 Next
End With
Printer.EndDoc


End Sub

Saludos