PROBLEMA AL IMPRIMIR MSFLEXGRID
Publicado por kaizer (32 intervenciones) el 27/02/2007 19:19:12
Saludos a todos, alguien me puede ayudar en este problema por favor.
Les cuento: tengo este codigo para imprimir el MSFlexGrid.....
Dim Var As String
Dim ImpLinea As Integer
Dim i As Integer
For i = 0 To MSFlexGrid1.Rows - 1
Printer.Print MSFlexGrid1.TextMatrix(i, 0) & "|" & MSFlexGrid1.TextMatrix(i, 1) & "|" & MSFlexGrid1.TextMatrix(i, 9) & "|" & MSFlexGrid1.TextMatrix(i, 10) & "|" & MSFlexGrid1.TextMatrix(i, 11) & ""
ImpLinea = ImpLinea + 1
If ImpLinea = 63 Then
Printer.NewPage
ImpLinea = 0
End If
Next i
Printer.EndDoc
pero el resultado es....
BLA|BLA|BLA|BLA|BLA
Hay alguna forma de separar los datos para q me salgan de esta manera....
BLA | BLA | BLA | BLA | BLA
Les cuento: tengo este codigo para imprimir el MSFlexGrid.....
Dim Var As String
Dim ImpLinea As Integer
Dim i As Integer
For i = 0 To MSFlexGrid1.Rows - 1
Printer.Print MSFlexGrid1.TextMatrix(i, 0) & "|" & MSFlexGrid1.TextMatrix(i, 1) & "|" & MSFlexGrid1.TextMatrix(i, 9) & "|" & MSFlexGrid1.TextMatrix(i, 10) & "|" & MSFlexGrid1.TextMatrix(i, 11) & ""
ImpLinea = ImpLinea + 1
If ImpLinea = 63 Then
Printer.NewPage
ImpLinea = 0
End If
Next i
Printer.EndDoc
pero el resultado es....
BLA|BLA|BLA|BLA|BLA
Hay alguna forma de separar los datos para q me salgan de esta manera....
BLA | BLA | BLA | BLA | BLA
Valora esta pregunta


0