05.09.2015, 18:27
Hallo liebe Excel-Profis,
ich benötige Hilfe bei der Erstellung einer Druckoption. Ich möchte ein ein Tabellenblatt 5-Fach drucken. Auf dem Blatt ist ein Verteiler vorgesehen. Ich möchte gerne mit der Option "Drucken" das Tabellenblatt 5-Fach ausdrucken und dabei auf jedem Exemplar das passendende Kreuz im Verteiler setzen lassen.
Von der Idee hatte ich etwa sowas im Sinn:
With worksheets ("Name")
.Range ("Q60").Value = "x"
.PrintOut copies:=1
.Range ("Q60").Value = ""
.Range ("Q62").Value ="x"
.PrintOut Copies:=1
Usw. Bis zur 5. Copy
End with
Hierbei entsprechen die Bezüge dem jeweils zu markierenden/demarkierenden Feld.
Eine kleine Erschwernis besteht aber darin, das ich zuvor einen Druckbereich festlegen muss. Hierfür habe ich ein Makro hinbekommen, leider bin ich gerade zu blind um die obige Idee zu integrieren. Ggf gibt es ja noch alternative Vorschläge.
Ich hoffe auf zahlreiche Ideen und danke Euch schon mal.
Gruß Kieldiver
ich benötige Hilfe bei der Erstellung einer Druckoption. Ich möchte ein ein Tabellenblatt 5-Fach drucken. Auf dem Blatt ist ein Verteiler vorgesehen. Ich möchte gerne mit der Option "Drucken" das Tabellenblatt 5-Fach ausdrucken und dabei auf jedem Exemplar das passendende Kreuz im Verteiler setzen lassen.
Von der Idee hatte ich etwa sowas im Sinn:
With worksheets ("Name")
.Range ("Q60").Value = "x"
.PrintOut copies:=1
.Range ("Q60").Value = ""
.Range ("Q62").Value ="x"
.PrintOut Copies:=1
Usw. Bis zur 5. Copy
End with
Hierbei entsprechen die Bezüge dem jeweils zu markierenden/demarkierenden Feld.
Eine kleine Erschwernis besteht aber darin, das ich zuvor einen Druckbereich festlegen muss. Hierfür habe ich ein Makro hinbekommen, leider bin ich gerade zu blind um die obige Idee zu integrieren. Ggf gibt es ja noch alternative Vorschläge.
Ich hoffe auf zahlreiche Ideen und danke Euch schon mal.
Gruß Kieldiver