papelucho
21 de Diciembre del 2005

HOLA AMIGOS
TENGO EL SIGUIENTE PROBLEMA
YO YA HE CREADO UN PROGRAMA Y EN UN FORMULARIO TENGO PARA HACER UN CONSULTA ENTRE FECHAS Y ME SALE LOS RESULTADOS BUSCADOS BIEN EN EL MSFLEXGRID , LA DUDA ES COMO IMPRIMO ESTE RESULTADO QUE ME SALE EN EL MSFLEXGRID, HACIENDO CLICK EN UN COMMANDBUTTON NO SE COMO HACERLO ¿ SE PUEDE HACER MEDIANTE CRYSTAL REPORT ?

ESTOY USANDO VISUAL BASIC 5.0 EMPRESARIAL

SALUDOS

mvallejos
21 de Diciembre del 2005

Este es el gran cuello de botella de VB, la impresión, si no hechás mano a herramientas externas, no hay forma.
Ahora bien, la única solución a la impresión sin usar
compenentes es el Objeto Printer

Ejemplo

Dim Linea as String
Dim i as Integer,J as integer

for i = 0 1 to Flex.Rows
Linea = ""
For j = 1 Th Flex.Cols
Linea = Linea & Flex.TextMatrix(i,j) & " "
Next j
Printer.Print Linea
Next i
Printer.EndDoc

Podrás utilizar las propiedades CurrentX y CurrentY del Printer como para que las líneas de texto no salgan pegadas al inicio de la hoja.

Jpeiro
21 de Diciembre del 2005

Hay dos formas:
Una es imprimir de forma puntual el contenido de las celdas y dibujar la tabla y otra más sencilla que imprime la tabla y su contenido:
'Si form1 es tu form==>
Form1.printform
Printer.end doc
Esta última te imprimirá el frente del form1, con el grid completo si esta al frente, todo lo demás son impresiones puntuales.