トムは、セルに入力された値に基づいて、印刷するコピーの量を制御するマクロコードを作成しようとしています。彼は、パッケージのコンテンツラベルを印刷するために、出荷担当者が使用する入力フォームを作成しました。彼は、セル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_サイトの他のページ)で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント(3272)は、Microsoft Excel 97、2000、2002、および2003に適用されます。Excel(Excel 2007以降)のリボンインターフェイス用のこのヒントのバージョンは、次の場所にあります。