セル内の印刷量の指定(Microsoft Excel)
トムは、セルに入力された値に基づいて、印刷するコピーの量を制御するマクロコードを作成しようとしています。彼は、パッケージのコンテンツラベルを印刷するために、出荷担当者が使用する入力フォームを作成しました。彼は、セル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以降)のリボンインターフェイス用のこのヒントのバージョンは、次の場所にあります。
linkセル内の印刷数量の指定。