Imprimir hoja de calculo
Me gustaría saber como puedo imprimir desde un botón de un formulario una hoja de calculo de excel sin tener que abrir excel.
Muchas gracias.
Nota. Tengo access 2002, y la hoja de calculo es una planilla
Muchas gracias.
Nota. Tengo access 2002, y la hoja de calculo es una planilla
1 Respuesta
Respuesta de juanito01
1
En un botón...
Private Sub Comando5_Click()
On Error GoTo Err_Comando5_Click
Dim oApp As Excel.Application
Dim cuaderno As Excel.Workbook
Dim hoja As Excel.Worksheet
Set oApp = CreateObject("Excel.Application")
oApp.Visible = False
Set cuaderno = oApp.Workbooks.Open("c:\miexcel.xls")
Set hoja = cuaderno.Worksheets("hoja1")
hoja.PrintOut
cuaderno.Close
Set cuaderno = Nothing
Set oApp = Nothing
'Only XL 97 supports UserControl Property
On Error Resume Next
oApp.UserControl = True
Exit_Comando5_Click:
Exit Sub
Err_Comando5_Click:
MsgBox Err.Description
Resume Exit_Comando5_Click
End Sub
Debes tener la librería Microsoft Excel 9.0 Object Library incluida en el diálogo Referencias.
Private Sub Comando5_Click()
On Error GoTo Err_Comando5_Click
Dim oApp As Excel.Application
Dim cuaderno As Excel.Workbook
Dim hoja As Excel.Worksheet
Set oApp = CreateObject("Excel.Application")
oApp.Visible = False
Set cuaderno = oApp.Workbooks.Open("c:\miexcel.xls")
Set hoja = cuaderno.Worksheets("hoja1")
hoja.PrintOut
cuaderno.Close
Set cuaderno = Nothing
Set oApp = Nothing
'Only XL 97 supports UserControl Property
On Error Resume Next
oApp.UserControl = True
Exit_Comando5_Click:
Exit Sub
Err_Comando5_Click:
MsgBox Err.Description
Resume Exit_Comando5_Click
End Sub
Debes tener la librería Microsoft Excel 9.0 Object Library incluida en el diálogo Referencias.
