imprimir DataGrid

[atomix02]

hola

soy yo otra vez pidiendo su ayuda . alguien tendra el codigo de algun metodo para imprimir mi dataGrid donde muestro los datos de mi base de datos.. es de mucha importancia que se impriman las lineas de divicion y todo el royo asi tipo impresion de excel por favor me urge

saludos

[Laforge]

...mmm o usas crystal rep. o te lo pintas a mano....

[atomix02]

hola
la verdad nunca he usado el crystal.. asi k intentava entender unos codigo que me baje del internet pero es todo un enredo. con el crystal es mucho mas facil?
me podrias decir como..
saludos

[jcastrob1980]

Utiliza el datareport y no te compliques la vida, todo lo que puedes ver en un datagrid, se imprime en el datareport

[Baco_]

MMMM... y por que no pasas tu datagrid a excel ???
y lo presentas ahi como reporte (para mi es mucho mejor asi) ....


Private Sub Command1_Click()
Dim i As Long, j As Long
Dim objExcel As Object
Dim objWorkbook As Object
On Error Resume Next ' por si se cierra Excel antes de cargar los datos
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add
For i = 0 To MSHFlexGrid1.Rows - 1
MSHFlexGrid1.Row = i
For j = 0 To MSHFlexGrid1.Cols - 1
MSHFlexGrid1.Col = j
objWorkbook.ActiveSheet.Cells(i + 1, j + 1).Value = MSHFlexGrid1.Text
Next
Next
objExcel.Cells.Select
objExcel.Selection.EntireColumn.AutoFit ' Ancho de columna
objExcel.Range("A1").Select
objExcel.ActiveWindow.SelectedSheets.PrintPreview ' Previsualizar informe
Set objWorkbook = Nothing
Set objExcel = Nothing

End Sub

'DEBRIAS CAMBIAR EL MSHFLEXGRID POR TU DATAGRID A VER SI TE RESULTA AHI CUENTAS


SUERTE

[GeoAvila]

Iniciado por Baco_

MMMM... y por que no pasas tu datagrid a excel ???
y lo presentas ahi como reporte (para mi es mucho mejor asi) ....


Private Sub Command1_Click()
Dim i As Long, j As Long
Dim objExcel As Object
Dim objWorkbook As Object
On Error Resume Next ' por si se cierra Excel antes de cargar los datos
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add
For i = 0 To MSHFlexGrid1.Rows - 1
MSHFlexGrid1.Row = i
For j = 0 To MSHFlexGrid1.Cols - 1
MSHFlexGrid1.Col = j
objWorkbook.ActiveSheet.Cells(i + 1, j + 1).Value = MSHFlexGrid1.Text
Next
Next
objExcel.Cells.Select
objExcel.Selection.EntireColumn.AutoFit ' Ancho de columna
objExcel.Range("A1").Select
objExcel.ActiveWindow.SelectedSheets.PrintPreview ' Previsualizar informe
Set objWorkbook = Nothing
Set objExcel = Nothing

End Sub

'DEBRIAS CAMBIAR EL MSHFLEXGRID POR TU DATAGRID A VER SI TE RESULTA AHI CUENTAS


SUERTE

temo que no resulta con el DataGrid y hay regularmente se cambia el Data Grid por el Flexgrid.. es menos laborioso..

nos vemos..