Tom está intentando crear un código de macro que controlará la cantidad de copias a imprimir, según el valor ingresado en una celda. Ha creado un formulario de entrada para que lo use su personal de envío que imprime etiquetas de contenido de paquetes. Le gustaría poder hacer que ingresen en la celda B11 el número de etiquetas que deben imprimirse y luego imprimir ese número.

Esto es relativamente fácil de hacer, dependiendo de lo que desee imprimir. Si desea imprimir solo el contenido de la hoja de trabajo activa, puede usar un código similar al siguiente:

iNumCopies = Range("B11").Value If iNumCopies < 1 Then iNumCopies = 1 ActiveSheet.PrintOut Copies:=iNumCopies

Si no desea imprimir la hoja de trabajo completa, entonces necesita modificar un poco la declaración PrintOut. Por ejemplo, el siguiente ejemplo supone que la «etiqueta» que se imprimirá en el rango A1: A5:

Set MyRange = Range("A1:A5")

iNumCopies = Range("B11").Value If iNumCopies < 1 Then iNumCopies = 1 MyRange.PrintOut Copies:=iNumCopies

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (3272) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posterior) aquí:

link: / excelribbon-Specifying_Print_Quantity_in_a_Cell [Especificación de la cantidad de impresiones en una celda].