Visual Basic - manejar un libro de excel

Life is soft - evento anual de software empresarial
 
Vista:

manejar un libro de excel

Publicado por gustavo (218 intervenciones) el 03/03/2006 09:38:29
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...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:manejar un libro de excel

Publicado por raptor (3 intervenciones) el 03/03/2006 17:39:55
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar