Imprimir el contenido de un MsFlexGrid
Ghost_Vader
04 de Enero del 2006
tengo un MsflexGrid el cual me muestra unos registros, lo que necesito hacer es imprimir el contenido del MsFlexGrid.
Ghost_Vader
04 de Enero del 2006
gracias por tu ayuda.
mvallejos
04 de Enero del 2006
Por lo que veo, no est谩s usando ningun reporteador, solo una impresi贸n manual.
Para esto, debes recorrer el Flex como si fuera una Matriz, armando una linea de datos por cada fila y envi谩ndola por la impresora
Dim i as integer
Dim j as integer
Dim Linea as String
For i = 1 to Flex.Rows -1
Linea = ""
For j = 0 to Flex.cols -1
Linea = Linea & Flex.TextMatrix(i, j) & " "
Next j
Printer.CurrentX = 57 * 20
Printer.Print Linea
Next i
Printer.EndDoc
Donde con Printer.CurrentX establezco la coordenada X inicial de la impresi贸n de la Linea.
57 Twips en impresora equivale a 1 mm, en el ejemplo se imprime con 2 cm de margen derecho.
Lo que queda por tu cuenta, es formatear el ancho de cada campo como para que te quede todo bien encolumnado.
Saludos
Para esto, debes recorrer el Flex como si fuera una Matriz, armando una linea de datos por cada fila y envi谩ndola por la impresora
Dim i as integer
Dim j as integer
Dim Linea as String
For i = 1 to Flex.Rows -1
Linea = ""
For j = 0 to Flex.cols -1
Linea = Linea & Flex.TextMatrix(i, j) & " "
Next j
Printer.CurrentX = 57 * 20
Printer.Print Linea
Next i
Printer.EndDoc
Donde con Printer.CurrentX establezco la coordenada X inicial de la impresi贸n de la Linea.
57 Twips en impresora equivale a 1 mm, en el ejemplo se imprime con 2 cm de margen derecho.
Lo que queda por tu cuenta, es formatear el ancho de cada campo como para que te quede todo bien encolumnado.
Saludos