トムは、セルに入力された値に基づいて、印刷するコピーの量を制御するマクロコードを作成しようとしています。彼は、パッケージのコンテンツラベルを印刷するために、出荷担当者が使用する入力フォームを作成しました。彼は、セル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_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（9487）は、Microsoft Excel 2007、2010、2013、2016、2019、およびOffice 365のExcelに適用されます。Excelの古いメニューインターフェイス用のこのヒントのバージョンは、次の場所にあります。

link：/ excel-Specifying_Print_Quantity_in_a_Cell [セル内の印刷数量の指定]。