Problema con PrintOut

hola, Manolito !

... problema al imprimir una hoja... este procedimiento
Private sub prueba()
Dim objHojaActiva As Object
Set objHojaActiva = Worksheets("Factura") 'Hago esto pq tengo la hoja oculta y no puedo usar el objeto activesheet
objHojaActiva.Cells(6, 16).Value) = 0
'bla, bla , bla
objHojaActiva.Select ' aqui peta
ActiveWindow.SelectedSheets.PrintOut Copies:=NumCopias, Collate:=True ' aqui peta
end sub
Como puedo arreglar esto?

-> [hasta donde se] NO es posible 'seleccionar' un objeto que se encuentra oculto :-(
tampoco imprimirlo... ni nada que tenga que ver con hacerle una referencia como 'objeto activo'... :-(

prueba con la siguiente macro... si cualquier duda [o informacion adicinal]... comentas?
saludos,
hector.

Private Sub Imprimir_HojaOculta()
Application.ScreenUpdating = False
With Worksheets("Factura")
.Cells(6, 16) = 0
' bla, bla, bla...
.Visible = xlSheetVisible
.PrintOut Copies:=NumCopias, Collate:=True
.Visible = xlSheetVeryHidden
End With
End Sub

Muchas gracias, me ha sido de gran utilidad.

"Héctor Miguel" escribió en el mensaje
news:O$

hola, Manolito !

> ... problema al imprimir una hoja... este procedimiento
> Private sub prueba()
> Dim objHojaActiva As Object
> Set objHojaActiva = Worksheets("Factura") 'Hago esto pq tengo la hoja

oculta y no puedo usar el objeto activesheet

> objHojaActiva.Cells(6, 16).Value) = 0
> 'bla, bla , bla
> objHojaActiva.Select ' aqui peta
> ActiveWindow.SelectedSheets.PrintOut Copies:=NumCopias,

Collate:=True ' aqui peta

> end sub
> Como puedo arreglar esto?

-> [hasta donde se] NO es posible 'seleccionar' un objeto que se encuentra

oculto :-(

tampoco imprimirlo... ni nada que tenga que ver con hacerle una

referencia como 'objeto activo'... :-(

prueba con la siguiente macro... si cualquier duda [o informacion

adicinal]... comentas?

saludos,
hector.

Private Sub Imprimir_HojaOculta()
Application.ScreenUpdating = False
With Worksheets("Factura")
.Cells(6, 16) = 0
' bla, bla, bla...
.Visible = xlSheetVisible
.PrintOut Copies:=NumCopias, Collate:=True
.Visible = xlSheetVeryHidden
End With
End Sub