Para que entonces los Password?

From: "Jordi" <jordifeliuARROBAwanadoo.es>
References: <640901c4013f$6f910940$
Subject: Re: After_print
Date: Thu, 4 Mar 2004 20:39:40 +0100
Lines: 51
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4522.1200
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4522.1200
Message-ID:
Newsgroups: microsoft.public.es.excel
NNTP-Posting-Host: 80.102.0.170
Path: intern1.nntp.aus1.giganews.com!internal1.nntp.ash.giganews.com!border2.nntp.ash.giganews.com!border1.nntp.ash.giganews.com!nntp.giganews.com!newsfeed.hal-mli.net!feeder1.hal-mli.net!enews.sgi.com!msrnewsc1!TK2MSFTNGP08.phx.gbl!TK2MSFTNGP11.phx.gbl
Xref: intern1.nntp.aus1.giganews.com microsoft.public.es.excel:35185

Muchísimas gracias Fernando!
funciona a la perfección
Jordi

"Fernando Arroyo" escribió en el mensaje
news:
No hay ningún evento AfterPrint, pero puedes usar el evento BeforePrint para
(en el caso de que se vaya a imprimir determinada hoja) hacer los cambios
que necesites, luego imprimir y por último restaurar la hoja a su estado
anterior, algo como p. ej.:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name <> "Hoja1" Then Exit Sub 'Si la hoja no es Hoja1,
imprimir normalmente

Dim vContenidoAnterior As Variant

Cancel = True 'Para impedir la impresión "normal"

With Worksheets("Hoja1")
vContenidoAnterior = .[A1] 'Almacenar el contenido de A1
.[A1] = "bbbb" 'Sustituir A1
Application.EnableEvents = False
.PrintOut 'Imprimir
Application.EnableEvents = True
.[A1] = vContenidoAnterior 'Restaurar A1
End With
End Sub


Un saludo.


Fernando Arroyo
MS MVP - Excel


"Jordi" escribió en el mensaje
news:640901c4013f$6f910940$
Hola a todos,
alguien sabe como saber cuando se ha terminado de imprimir
un documento?
Uso el evento Before_print para hacer algunos cambios en
la hoja i querría volver a dejarlo igual después de
imprimir.

Muchas gracias!!

Jordi