Margenes siempre iguales

06/02/2004 - 22:19 por Cata | Informe spam
Hola Chic@s

Tengo un archivo que debo enviar a varios usuarios a nivel
nacional, todos tienen versiones diferentes de office, y
configuraciones diferentes en sus máquinas... hay alguna
forma de configurar que el archivo que les voy a mandar,
(el cual contiene validaciones, macros, formatos
condicionales entre otros y que además, está protegida
contra cambios), para que sus margenes no cambien de
acuerdo a la configuracion de las máquinas?? ellos deben
imprimir diariamente estos archivos.

Les agradezco mucho sus respuestas!!

Cata!!!

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
07/02/2004 - 10:59 | Informe spam
hola, Cata !

... varios usuarios ... versiones diferentes de office, y configuraciones diferentes en sus maquinas...
... forma de configurar el archivo ... para que sus margenes no cambien de acuerdo a la configuracion de las maquinas [...]



podrias usar el evento '_BeforePrint' para [re-]establecer los margenes a la hora de imprimir ;)

saludos,
hector.
Respuesta Responder a este mensaje
#2 Cata
07/02/2004 - 15:32 | Informe spam
Hola, Hector!!

Donde hago lo que me dices? es algo nuevo para mi:

podrias usar el evento '_BeforePrint' para [re-]
establecer los margenes a la hora de imprimir ;)

Gracias por la explicacion!!

Cata!! ;)

hola, Cata !

... varios usuarios ... versiones diferentes de office,




y configuraciones diferentes en sus maquinas...
... forma de configurar el archivo ... para que sus




margenes no cambien de acuerdo a la configuracion de las
maquinas [...]

podrias usar el evento '_BeforePrint' para [re-]


establecer los margenes a la hora de imprimir ;)

saludos,
hector.


.

Respuesta Responder a este mensaje
#3 Héctor Miguel
07/02/2004 - 22:18 | Informe spam
hola, Cata !

Donde hago lo que me dices? es algo nuevo para mi:
usar el evento '_BeforePrint' para [re-]establecer los margenes a la hora de imprimir ;) [...]





- en el editor de vba de excel =>{Alt}{F11}<- en el modulo de codigo del libro =>'docle-click' en el objeto 'ThisWorkbook'< copia las siguientes lineas:
_______
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Hoja As Object
With Application
.ScreenUpdating = False
For Each Hoja In ActiveWindow.SelectedSheets
Hoja.PageSetup.LeftMargin = .CentimetersToPoints(2.5)
Hoja.PageSetup.RightMargin = .CentimetersToPoints(2)
Hoja.PageSetup.TopMargin = .CentimetersToPoints(3.5)
Hoja.PageSetup.BottomMargin = .CentimetersToPoints(3)
Next
.ScreenUpdating = True
End With
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨
si en la configuracion 'acostumbras' pulgadas en lugar de centimetros...
[p.e.] Hoja.PageSetup.LeftMargin = .InchesToPoints(1)

saludos,
hector.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida