Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Antes de imprimir

16/07/2004 - 04:09 por fito | Informe spam
Ayuda Hacer una pregunta
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.
email Siga el debateRespuesta 4 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Fernando Arroyo
16/07/2004 - 08:54 | Informe spam
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 news:e%
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.

Preguntas similares

 

Busqueda sugerida :