Cómo: Establecer un área de impresión utilizando un nombre definido en Excel 2000

Seleccione idioma Seleccione idioma
Id. de artículo: 213648 - Ver los productos a los que se aplica este artículo
Este artículo se ha archivado. Se ofrece "tal cual" y no se volverá a actualizar.
Expandir todo | Contraer todo

En esta página

Resumen

En Microsoft Excel, si tiene una macro que imprime un rango de celdas en la hoja de cálculo, puede que no imprima todos los datos si inserta filas en ese intervalo. Sin embargo, puede crear una macro de impresión que se ajusta automáticamente cuando se insertan filas. Para ello, utilice un área de impresión que hace referencia a un nombre definido en la hoja de cálculo en lugar de utilizar un rango de celdas específico para imprimir.

Este artículo incluye una macro de ejemplo que ilustra cómo establecer un área de impresión mediante un nombre definido.

Microsoft proporciona ejemplos de programación con fines ilustrativos únicamente, sin ninguna garantía tanto expresa como implícita. Esto incluye, entre otras, las garantías implícitas de comerciabilidad e idoneidad para un fin determinado. Este artículo se supone que está familiarizado con el lenguaje de programación que se muestra y con las herramientas que se utilizan para crear y depurar procedimientos. Los ingenieros de soporte técnico de Microsoft pueden explicarle la funcionalidad de un determinado procedimiento, pero no modificarán estos ejemplos para ofrecer mayor funcionalidad ni crearán procedimientos que cumplan sus requisitos específicos.

Establecer un área de impresión mediante un nombre definido

Para seguir el ejemplo que se proporciona en este artículo, especifique la información texto en el rango de celdas a1: D5 de Sheet1 de un libro nuevo.

Si grabar una macro que selecciona el rango de celdas, establece el área de impresión y, a continuación, imprime la hoja de cálculo, el código de macro se lee como sigue:
   Sub Macro1()
      Range("A1:D5").Select
      ActiveSheet.PageSetup.PrintArea = "$A$1:$D$5"
      ActiveWindow.SelectedSheets.PrintOut Copies:=1
   End Sub
				

El problema con esta macro es que si inserta una o más filas de este rango de celdas y vuelva a ejecutar la macro, se imprime sólo el rango de celdas a1: D5. La macro no imprime las filas que se movieron debido de las filas que ha insertado.

Para la macro Ajustar automáticamente al insertar o eliminar filas en el rango que desee imprimir, crear un nombre definido para el rango y, a continuación, utilice el nombre definido en la macro. En este ejemplo, siga estos pasos:
  1. En la hoja de cálculo, seleccione el rango a1: D5.
  2. En el menú Insertar , seleccione nombre y, a continuación, haga clic en definir .
  3. En el cuadro nombres en el libro , escriba myrange . Asegúrese de que el cuadro se refiere a contiene = Hoja1! $ A $ 1: $ D $ 5 .
  4. Haga clic en Aceptar .
  5. Modificar la macro grabada que se muestra al principio de esta sección para que quede como sigue:
          Sub Macro1()
             Range("myrange").Select
             ActiveSheet.PageSetup.PrintArea = "myrange"
             ActiveWindow.SelectedSheets.PrintOut Copies:=1
          End Sub
    						

    Nota : en lugar de utilizar un intervalo fijo de celdas, utilice el nombre definido "myrange".
Si inserta ahora una o más filas de este intervalo, el intervalo de celdas que conoce por el nombre definido "myrange" se expande en consecuencia. Cuando ejecuta la macro, se imprimen todas las filas de este intervalo.

Referencias

Para obtener más información sobre cómo definir un nombre para un rango de celdas, haga clic en Ayuda de Microsoft Excel en el menú Ayuda , escriba las celdas de nombre de un libro en el Ayudante de Office o el Asistente para Ayuda y, a continuación, haga clic en Buscar para ver el tema.

Propiedades

Id. de artículo: 213648 - Última revisión: sábado, 08 de febrero de 2014 - Versión: 4.0
La información de este artículo se refiere a:
  • Microsoft Excel 2000 Standard Edition
Palabras clave: 
kbnosurvey kbarchive kbmt kbdtacode kbhowtomaster kbprogramming KB213648 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 213648

Enviar comentarios

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com