como imprimir un archivo excel desde vb

pp
05 de Abril del 2004
Hola he realizado un programilla en vb que rellena unas celdas de excel pero no consigo imprimirlo 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(filas, columnas)
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