Por fa que alguien me ayude.....

R.u.
08 de Abril del 2004
Hola he realizado un programilla en vb que rellena unas celdas de excel pero no consigo imprimirlo ni que se guarden los cambios, os pongo codigo que utilizo para ver si encontris algun fallico:
Dim excelq As Object
Dim libro As Object
On Error Resume Next
Set excelq = GetObject(, "Excel.application")
If Err.Number = 429 Then
Err.Clear
Set excelq = CreateObject("Excel.application")
End If
Set libro = excelq.Workbook.Open(App.Path & "eq.XLS")
libro.Worksheets(1).Range("Q14").Value = a1 ' le damos el valor a las celdas
libro.Worksheets(1).Range("M31").Value = a2
libro.Worksheets(1).Range("M35").Value = a3
libro.Worksheets(1).Range("M45").Value = a4
libro.Worksheets(1).Range("M14").Value = Year(CDate(a4))
libro.Worksheets(1).Range("F6").Value = " PERSONA CONTACTO:" & " " & a5
libro.Worksheets(1).Range("C6").Value = a6
libro.Worksheets(1).Range("C7").Value = a7
libro.Worksheets(1).Range("C9").Value = a8
libro.Worksheets(1).Range("Q51").Value = a9
libro.Worksheets(1).Range("Q44").Value = a10
excelq.Visible = False
libro.Worksheets(1).Save 'grabamos los valores
MsgBox "ATENCION SE VA IMPRIMIR EL DOCUMENTO ", vbExclamation, "IMPRESION "
libro.Worksheets(1).PrintOut , , , , impre 'imprimimos
libro.Worksheets(1).Close ([yes]) ' cerramos el documento
excelq.Quit
Set libro = Nothing
Set excelq = Nothing

GOD
08 de Abril del 2004
Prueba con las siguientes lineas cuando desees grabar

\'oculta mensajes de Excel
Planilla.DisplayAlerts = False
\'Grabas el archivo
Libro.SaveAs "nombre_archivo"