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