MSFlexGrid1
Publicado por Mauro Berardo (1 intervención) el 07/06/2006 16:21:46
hola tengo la siguinte duda por que los datos de MSFlexGrid1 salen mal ejemplo
las colunma osea corridos cuando quiero imprimir con el codigo que esta abajo
apellido y nombre------ Numero de DNI ------Costo-----
Mauro 30.454.646 $4777
Diego 20.236.200 $577
tendria que salir asi los datos
Nombre------ Numero de DNI ------Costo-----
Mauro 30.454.646 $4777
Diego 20.236.200 $577
este codigo uso y sale mal
Dim Var As String
Dim ImpLinea As Integer
For I = 0 To MSFlexGrid1.Rows - 1
Printer.Print MSFlexGrid1.TextMatrix(I, 1) & " " & MSFlexGrid1.TextMatrix(I, 2) & " " & MSFlexGrid1.TextMatrix(I, 3) & " " & MSFlexGrid1.TextMatrix(I, 4) & " " & MSFlexGrid1.TextMatrix(I, 5) & " " & MSFlexGrid1.TextMatrix(I, 6) & " " & MSFlexGrid1.TextMatrix(I, 7) & " " & MSFlexGrid1.TextMatrix(I, 8) & " " & MSFlexGrid1.TextMatrix(I, 9) & " " & MSFlexGrid1.TextMatrix(I, 10) & " " & MSFlexGrid1.TextMatrix(I, 11) & " " & MSFlexGrid1.TextMatrix(I, 12) & ""
ImpLinea = ImpLinea + 1
If ImpLinea = 18 Then
Printer.NewPage
ImpLinea = 0
End If
Next I
Printer.EndDoc
las colunma osea corridos cuando quiero imprimir con el codigo que esta abajo
apellido y nombre------ Numero de DNI ------Costo-----
Mauro 30.454.646 $4777
Diego 20.236.200 $577
tendria que salir asi los datos
Nombre------ Numero de DNI ------Costo-----
Mauro 30.454.646 $4777
Diego 20.236.200 $577
este codigo uso y sale mal
Dim Var As String
Dim ImpLinea As Integer
For I = 0 To MSFlexGrid1.Rows - 1
Printer.Print MSFlexGrid1.TextMatrix(I, 1) & " " & MSFlexGrid1.TextMatrix(I, 2) & " " & MSFlexGrid1.TextMatrix(I, 3) & " " & MSFlexGrid1.TextMatrix(I, 4) & " " & MSFlexGrid1.TextMatrix(I, 5) & " " & MSFlexGrid1.TextMatrix(I, 6) & " " & MSFlexGrid1.TextMatrix(I, 7) & " " & MSFlexGrid1.TextMatrix(I, 8) & " " & MSFlexGrid1.TextMatrix(I, 9) & " " & MSFlexGrid1.TextMatrix(I, 10) & " " & MSFlexGrid1.TextMatrix(I, 11) & " " & MSFlexGrid1.TextMatrix(I, 12) & ""
ImpLinea = ImpLinea + 1
If ImpLinea = 18 Then
Printer.NewPage
ImpLinea = 0
End If
Next I
Printer.EndDoc
Valora esta pregunta


0