Visual Basic - Nesecito exportar una imformacion a excel

Hola nesecito exportar una información axcel sin que se vea y asi mismo e imprimir esa información tambien sin que se vea

Gracias chaoooooooooooooooo.....................

Utiliza el CrystaReport y en lugar de Imprimir a una ventana utiliza exportar a un archivo, y cuando vayas a imprimir normalmente utiliza a Impresora no a una ventana. suerte

Tiene que ser a excel por que ya existe un formato predeterminado y el cristal report me sales unos errores ademas nesecita licencia

por favor ayudenme

Gracias chaooooooooooooo................

Este codigo pasa el contenido de un MSHFlexgrid a excel, puedes adaptarlo a tus necesidades.

Set Application = CreateObject("Excel.Application")
Application.Visible = True
Application.WorkBooks.Add

Application.ActiveSheet.Cells(1, 3).ColumnWidth = 40

For i = 1 To MSHFlexGrid1.Rows - 1
Application.Cells(i, 1).Formula = MSHFlexGrid1.TextMatrix(i, 1)
Application.Cells(i, 2).Formula = MSHFlexGrid1.TextMatrix(i, 2)
Application.Cells(i, 3).Formula = MSHFlexGrid1.TextMatrix(i, 3)
Application.Cells(i, 4).Formula = MSHFlexGrid1.TextMatrix(i, 4)
Next

Espero te sirva.

Bien te pongo un ejemplo donde abres tu libro de excel rellenas la informacion lo mandas a imprimir y gurdas los cambios sin mostrar nada, espero y te sirva...!!!

Dim xlApp As Excel.Application
Dim mySheet As Excel.Worksheet
Sub pfImprimir()
Set xlApp = CreateObject("Excel.Application")
vlRuta = App.Path & "\ResImpresion.xls"
xlApp.Workbooks.Open vlRuta 'Abres tu archivo
Set mySheet = xlApp.ActiveSheet
With mySheet
.Cells(5, 3) = "Hola
.Cells(8, 3).value = "Ok"
End With
xlApp.PrintOut 'Se Imprime
xlApp.ActiveWorkbook.Close True 'Guardamos los Cambios
End Sub