Tom versucht, einen Makrocode zu erstellen, der die Anzahl der zu druckenden Kopien basierend auf dem in eine Zelle eingegebenen Wert steuert. Er hat ein Eingabeformular für sein Versandpersonal erstellt, mit dem Verpackungsinhaltsetiketten gedruckt werden können. Er möchte, dass sie die Anzahl der zu druckenden Etiketten in Zelle B11 eingeben und diese Nummer dann drucken lassen.

Dies ist relativ einfach, je nachdem, was Sie gedruckt haben möchten. Wenn Sie nur den Inhalt des aktiven Arbeitsblatts drucken möchten, können Sie Code ähnlich dem folgenden verwenden:

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

Wenn Sie nicht das gesamte Arbeitsblatt drucken möchten, müssen Sie die PrintOut-Anweisung nur geringfügig ändern. Im folgenden Beispiel wird beispielsweise davon ausgegangen, dass das „Etikett“ im Bereich A1 gedruckt werden soll: A5:

Set MyRange = Range("A1:A5")

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

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (3272) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier:

Angabe der Druckmenge in einer Zelle.