Visual Basic - manejar un libro de excel

Buen dias a tod@s, tengo un pequeño problema: estoy manejando un libro de excel desde VB de esta manera:

Dim oex As Object
Dim obook As Object
Dim osheet As Object
Dim a As Integer
Set oex = CreateObject("excel.application")
Set obook = oex.workbooks.Add(App.Path & "\formatos.XLS")
Set osheet = obook.worksheets(1)
obook.Application.displayalerts = False

esto estando un form activo el cual tiene un boton que activa otro form donde coloco las opciones para elegir la hoja que desea imprimir ahora bien cuando intento indicar la hoja a imprimir me da un error de tiempo de ejecucion problema con el objeto o with.
por favor como seria el codigo para manejar la hoja que necesito imprimir, espero darme a entender.
Gracias...

Hola Gustavo, mira yo estoy con un problema parecido. Yo tengo una rutina para mandar a imprimir el libro de excel, pero no me funciona en la red.
Fijate de usar el metodo PrintOut, cualquier cosa fijate en la ayuda de vb como se usa. Yo aca te paso el codigo de la rutina que use para imprimir bajo windows XP un archivo de excel 2000, capaz que te sirva de ayuda.

Saludos y suerte.

Private Sub Print_Click()
Dim miAppli As Excel.Application
Dim miLibro As Excel.Workbook
Dim miHoja As Excel.Worksheet
Dim BeginPage, EndPage, NumCopies, i

Set miAppli = New Excel.Application
Set miLibro = miAppli.Workbooks.Open(MiPath & "\PlanillaVacaciones.xls")
Set miHoja = miLibro.Worksheets("General")

' Establecer CancelError a True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' Presentar el cuadro de diálogo Imprimir
CommonDialog1.ShowPrinter
' Obtener los valores seleccionados por el usuario en el cuadro de
' diálogo
BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies
For i = 1 To NumCopies
' Código para enviar los datos a la impresora
miHoja.PrintOut 0, 0, 1, 1, 1
Next i

ErrHandler:
' El usuario ha hecho clic en el botón Cancelar

miLibro.Close (False)
Set miHoja = Nothing
Set miLibro = Nothing
Set miAppli = Nothing
Exit Sub
End Sub