Antes de imprimir

Quiero usar el evento antes de imprimir pero no lo logro, el propósito es
ocultar la columna J antes de imprimir y hacerla visible despues de la
impresión. Gracias.
Private Sub app_WorkbookBeforePrint(ByVal Wb As Workbook, _
ByVal Cancel As Boolean)
Sheets(1).Columns(10).Hidden = True
End Sub

PD. Lo puse en un módulo de clase tal como dice la ayuda. Tambien en
ThisWorkbook, sin obtener los resultados esperados.

Prueba con el siguiente código, que va en ThisWorkbook:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = Sheets(1).Name Then
Sheets(1).Columns(10).Hidden = True
Sheets(1).PrintOut
Sheets(1).Columns(10).Hidden = False
End If
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel


"Fito" escribió en el mensaje

> Quiero usar el evento antes de imprimir pero no lo logro, el propósito es
> ocultar la columna J antes de imprimir y hacerla visible despues de la
> impresión. Gracias.
> Private Sub app_WorkbookBeforePrint(ByVal Wb As Workbook, _
> ByVal Cancel As Boolean)
> Sheets(1).Columns(10).Hidden = True
> End Sub
>
> PD. Lo puse en un módulo de clase tal como dice la ayuda. Tambien en
> ThisWorkbook, sin obtener los resultados esperados.
>

Gracias por el código, hace lo que yo quiero, con una salvedad, cuando
ejecuta PrintOut repite el evento, o sea hace dos impresiones. Lo
solucioné poniendo el codigo de visible en otra sub. Gracias. Gracias.
Gracias.