Visual Basic - Imprimir contenido datagrid

Life is soft - evento anual de software empresarial
   
Vista:

Imprimir contenido datagrid

Publicado por Martin (6 intervenciones) el 31/01/2008 14:26:10
hola necesito su ayuda les cuento que tengo un código en el cual necesito imprimir los datos contenidos en un Datagrid y me surge el siguiente problema
El datagrid.name = dtgVentas
el Adodc1 al cual esta enlazado el Datagrid se llama adoGrilla
bueno el codigo es el siguiente

For c = 0 to dtgVentas.VisibleRows - 1
For i = 0 to dtgVentas.Columns(3).ColIndex ' esta asi xq solo quiero recuperar desde la Columna 0 a la 3 y funciona bien
'el problema esta acá
Printer.Print Space(10) & dtgVentas.Columns(i).CellText(dtgVentas.RowBookmark(c))
Next i
Next c

bueno resulta que si me imprime todos los datos contenidos en las filas visibles del Datagrid pero lo hace en forma vertical y no en horizontal como se presenta en el datagrid,
es decir asi
Col 0 ' Fila 1
Col 1 ' Fila 1
Col 2 'Fila 1
Col 3 'Fila 1
Col 0 ' Fila 2
Col 1 ' Fila 2.....

lo que quiero es que me imprima asi
Col 0 - Col 1 - Col 2 - Col 3 ... Fila 1
Col 0 - Col 1 - Col 2 - Col 3 ... Fila 2
ojala me entiendan, y espero su ayuda urgente, pero en realidad cuando uds. puedan nomas saludos. desde Formosa, Argentina
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Imprimir contenido datagrid

Publicado por Alan (1 intervención) el 23/12/2008 15:06:39
hola mira despues de estar tres horas logre solucionarlo, tenia un problema parecido
mi solucion fue esta:

'declaro
Dim Col1, Col2, Col3, Col4, Col5 As Column
Dim i As Integer

'armo los titulos
Set Col1 = DBGrid1.Columns(0)
Set Col2 = DBGrid1.Columns(1)
Set Col3 = DBGrid1.Columns(2)
Set Col4 = DBGrid1.Columns(3)
Set Col5 = DBGrid1.Columns(4)
Printer.Print Col5.Caption, Col1.Caption, Col2.Caption, Col3.Caption, Col4.Caption

' cargo los datos del datagrid, es un datagrid pero con nombre DBGrid1
For i = 0 To DBGrid1.VisibleRows - 2
Col1.Text = DBGrid1.Columns(0).CellText(DBGrid1.RowBookmark(i))
Col2.Text = DBGrid1.Columns(1).CellText(DBGrid1.RowBookmark(i))
Col3.Text = DBGrid1.Columns(2).CellText(DBGrid1.RowBookmark(i))
Col4.Text = DBGrid1.Columns(3).CellText(DBGrid1.RowBookmark(i))
Col5.Text = DBGrid1.Columns(4).CellText(DBGrid1.RowBookmark(i))
Printer.Print Col5.Text, Col1.Text, Col2.Text, Col3.Text, Col4.Text

Next

Printer.EndDoc

podes ponerlo todo en un boton imprimir y listo, solucionado
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar