P

Héctor Miguel escribió:

-o- ¿el archivo enviado NO 'conserva' la configuracion de impresion?

Supongo que si, pero (como te dije en el mensaje anterior) me he
despistado un poco con lo de la configuración de impresión.

-o- ¿los de la oficina 'pueden' modificar el archivo?
=>en la forma que sea: margenes, area de impresion, titulos ...<

Pueden hacerlo, pero normalmente se limitan a modificar los contenidos,
dejando las celdas como están.

-o- ¿preferirias usar macro-eventos, si los 'permiten' en la oficina? ['_BeforePrint']

No tengo ni idea de si los permiten o no, pero me apostaría a que si les
mando algo (que para ellos es) un poco raro, me dirán que deje de usar
cosas extrañas y que haga lo que todo el mundo ha hecho toda la vida.

De todas formas, me gustaría intentarlo.

Muchas gracias

hola, Santi !
______

==> [al menos en teoria] si lo envias [guardado] CON tal 'configuracion'... 'debiera conservarla' ;)
'a menos que'... [los de la oficina] 'se metan' a modificarla... o agreguen hojas... o [...]

Entonces es que hay algo que no he entendido...
Pensaba que ... antes de imprimir, seleccione las N hojas a la vez... que excel las numeraba como un conjunto.
Pero ahora me hablas de una configuracion de impresion, que no cuadra con lo que yo habia entendido.

______

-o- ¿el archivo enviado NO 'conserva' la configuracion de impresion?

Supongo que si, pero ... me he despistado un poco con lo de la configuracion de impresion.

1.- cuando 'usas' el procedimiento 'sugerido'... excel SI 'trata' las hojas seleccionadas como un 'conjunto' ...
'pero'... SOLO para 'igualar' la configuracion [segun lo propuesto] a todas las hojas del conjunto ...
[con lo cual]... al 'guardar' el archivo [y enviarlo por correo] la 'paginacion establecida' debiera conservarse ...
'a menos que'... [etc.]
______

-o- ¿los de la oficina 'pueden' modificar el archivo? =>en la forma que sea: margenes, area de impresion, titulos ...<> Pueden hacerlo, pero normalmente se limitan a modificar los contenidos, dejando las celdas como estan.

... los de la oficina no creo que tengan ni idea de como funciona excel
... se limitan a cambiar como quieren los contenidos de los informes que les enviamos
... y a imprimirlos, pero ni añaden ni eliminan paginas.
... no tengo ni idea de que impresora utilizan, y 'DE' eso ... depende ... la apariencia del documento impreso [...]

2.- [supongo entonces que]... los de la oficina, al 'limitarse' a 'pre-ver' como se vera el documento impreso...
[solamente] modifican la 'apariencia final' [p.e. margenes y resolucion] ...
[y nuevamente]... si NO 'se meten' con la configuracion de encabezados y pie de pagina ...
la impresion del archivo 'sequira' la configuracion 'guardada' [tal y como se la 'dejaste' al momento de 'grabarlo-enviarlo']

-o- ¿preferirias usar macro-eventos, si los 'permiten' en la oficina? ['_BeforePrint']

No tengo ni idea de si los permiten ... pero apostaria que si les mando algo ... raro, me diran que ... haga lo que todo el mundo

[...]

[?] pareciera una 'postura poco congruente' [?]
'quieren que haga lo que necesitan' ...
'pero'... [si es que no 'saben como' y SIN que 'los moleste'] ...
SIN 'tener que proveerle' de las instrucciones NECESARIAS [¿que 'aprenda' excel a 'leer el pensamiento'???] :))

De todas formas, me gustaria intentarlo.

3.- para no hacer muy largo este mensaje, te apuntare algunas 'opciones' en el siguiente ;)

saludos,
hector.

hola, Santi !

sigue un ejemplo de 'asegurarte' que a la hora de imprimir, la paginacion sea la que 'necesitas' ;)
[si los de la oficina le dan 'permiso' al libro para ejecutar macros] :((

=> NOTA IMPORTANTE <si usas 'primero' la vista preliminar [printpreview] y 'desde ahi' TAMBIEN imprimes
el evento _BeforePrint se 'dispara' DOS VECES [por lo tanto, tambien el codigo]

saludos,
hector.
_____ en el modulo de codigo del libro [ThisWorkbook] _____
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.ScreenUpdating = False
Dim Sel_Shts As Sheets, Sht As Object, Pgs() As Integer, PD As Integer, PA As Integer
Set Sel_Shts = ActiveWindow.SelectedSheets
ReDim Pgs(Sel_Shts.Count)
For Each Sht In Sel_Shts
Sht.Select
PD = PD + 1
Pgs(PD) = ExecuteExcel4Macro("Get.Document(50)")
Next
PD = 1
For Each Sht In Sel_Shts
Sht.Select
Sht.PageSetup.LeftFooter = "Página &p-" & PA & " de " & Pgs(PD) & " - &p/&n"
PA = PA + Pgs(PD)
PD = PD + 1
Next
Sel_Shts.Select
Set Sel_Shts = Nothing
Application.ScreenUpdating = True
End Sub

Héctor Miguel escribió:

_____ en el modulo de codigo del libro [ThisWorkbook] _____
Private Sub Workbook_BeforePrint(Cancel As Boolean)

He probado esto, (sólo en la vista previa, pero supongo que será el
mismo efecto que al imprimirlo), y no le veo diferencias con el
funcionamiento sin este código.

Si "imprimo" una hoja sola, pone, página 1 de 1, si selecciono varias
antes de imprimir, las trata como un conjunto y pone página X de N como
se pretende.

Pero es que eso mismo es lo que hace sin código, como muy bien me
dijiste en el primer mensaje sobre esta consulta.

Y el problema es que en la oficina no van a entender eso de "seleccionar
todas las hojas a la vez antes de darle a imprimir" (bueno, tal vez si
hay alguien que lo entienda, pero como no puedo tener la certeza de que
esa persona sea quien procese mi informe, no puedo contar con ello)

Por tanto, la idea es que cuando ellos impriman cada página por
separado, la numeración de páginas las trate como un conjunto, y en el
orden correcto.

Lo que estoy haciendo ahora, es, antes de enviarlo, modificar a mano el
encabezado de cada página, pero cada mes lo tengo que cambiar, puesto
que el número de hojas total no es constante.
Mientras a mi no se me olvide revisarlo antes de enviarlo, no habrá
problema, pero si alguna vez lo envío con prisa, y no reviso los
encabezados, pues la numeración de páginas no coincidirá.

Lo que me gustaría saber, (como curiosidad), es que desde la oficina
enviaron mi fichero modificado a otras personas, para que lo usaran como
plantilla para hacer sus informes... Estoy seguro de que a alguien ya se
le debe haber presentado el problema de numeración de páginas extraña, y
lo que me da pena es la escasa comunicación que hay entre la oficina y
los demás, pero creo que ya estoy divagando demasiado, (disculpas)

Hasta pronto

hola, Santiago !

... no le veo diferencias con el funcionamiento sin este codigo.

=> 'efectivamente', es... [solo] una forma de 'asegurarte', en el caso de que...
... SI [los de la oficina] 'se meten' con los encabezados y pies de pagina, NO 'echen a perder' la numeracion :))

... en la oficina no van a entender eso de "seleccionar todas las hojas a la vez antes de darle a imprimir" [...]
... idea ... cuando ellos impriman cada pagina por separado, la numeracion de paginas ... como un conjunto [...]
... ahora ... antes de enviarlo ... a mano el encabezado de cada pagina pero cada mes ... el ... hojas total no es constante.
Mientras ... no se me olvide revisarlo antes de enviarlo ... pero si ... envio con prisa ... la numeracion ... no coincidira.

=> para este caso... [creo que] lo mejor seria 'aplicar' el codigo propuesto NO 'por evento', sino =>por codigo 'normal'< [me explico]... si pones las lineas de codigo NO en el 'Private Sub Workbook_BeforePrint(...' sino en una macro del tipo
Sub Paginar_Hojas_Libro()
' aqui pones las lineas del ejemplo '
End Sub
=> que [inclusive] NO tiene por que 'formar parte del libro', sino que pudiera ser codigo en 'otro' libro...
al 'ejecutarla' [con 'ese' libro como el libro activo]... 'personalizara' la numeracion de las paginas [como se 'pretende']
... luego al guardarlo y enviarlo por correo a la oficina... 'seguira listo para imprimir' [en conjunto o por separado cada
hoja]
Cons: 'fallara' si... [en la oficina] se modifica la resolucion, o los margenes, o la impresora 'escupe' diferente', o...[?]

notas: AUN por codigo [eventos] o 'personalizada manualmente' la paginacion del libro como 'conjunto'...
==> si se selecciona/imprime una hoja 'solitaria-intermedia' la numeracion NO seria... 'la del conjunto' :(( <== OJO

saludos,
hector.