Том пытается создать код макроса, который будет управлять количеством копий для печати на основе значения, введенного в ячейку. Он создал форму ввода для своего персонала по доставке, которая распечатывает этикетки с содержимым упаковки. Он хотел бы, чтобы они могли ввести в ячейку B11 количество этикеток, которые необходимо напечатать, а затем напечатать это число.

Это относительно легко сделать, в зависимости от того, что вы хотите напечатать. Если вы хотите распечатать только содержимое активного рабочего листа, вы можете использовать код, подобный следующему:

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

Если вы не хотите печатать весь рабочий лист, вам нужно немного изменить инструкцию PrintOut. Например, в следующем примере предполагается, что «этикетка» должна быть напечатана в диапазоне A1: A5:

Set MyRange = Range("A1:A5")

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

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (3272) относится к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и более поздних версий) здесь:

link: / excelribbon-Specifying_Print_Quantity_in_a_Cell [Указание количества отпечатков в ячейке].