Function ImprimirRango(Rango As String)
On Error GoTo xError
Dim oExcel As Object
Set oExcel = CreateObject("Excel.Application")
' oExcel.Visible = True 'Mostrar aplicacion
With oExcel
.WorkBooks.Add
With Spreadsheet1
.Range(Rango).Select
.Selection.Copy
End With
.Range(Rango).Select
.ActiveSheet.Paste
.Range(Rango).Select
.Selection.PrintOut Copies:=1, Collate:=True
.WorkBooks(1).Close (False)
End With
oExcel.Quit 'Cerrar Aplicacion
Set oExcel = Nothing 'Destruir Objeto
xError:
If Err.Number > 0 Then
MsgBox (Err.Description)
Err.Clear
End If
End Function