nur die jeweils erste Seite drucken



Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: nur die jeweils erste Seite drucken
von: Heiko
Geschrieben am: 17.06.2002 - 13:19:52

Hallo,
mein Druckbefehl lautet:

Workbooks(wbk).Sheets(arrSheets).PrintOut

"arrSheets" besteht sowohl aus Tabellen als auch aus Diagrammen.
Wie kann ich sicher stellen, dass von jedem Tabellenblatt jeweils nur die erste Seite ausgedruckt wird? "from... to" kann ich hier doch nicht benutzen, da ich ja nicht insgesamt nur eine Seite ausdrucken will.

Bsp. (Datei "wbk1.xls"):
Sheet 1: Tabelle - 3 Seiten
Sheet 2: Diagramm
Sheet 3: Diagramm
Sheet 4: Tabelle - 1 Seite
Sheet 5: Tabelle - 2 Seiten

Insgesamt sollen also 5 Seiten rauskommen (vom Tabellensheet 1,4 und 5 je nur die erste Seite)

Danke im Voraus
Heiko


nach oben   nach unten

Re: nur die jeweils erste Seite drucken
von: Hans W. Herber
Geschrieben am: 19.06.2002 - 07:31:22

Hallo Heiko,

binde den Druckbefehl nicht an die Arbeitsmappe sondern an die einzelnen Blätter:


Sub PrintFirst()
   Dim sh As Object
   For Each sh In Sheets
      sh.PrintOut from:=1, to:=1
   Next sh
End Sub

hans

nach oben   nach unten

Re: nur die jeweils erste Seite drucken
von: Heiko
Geschrieben am: 19.06.2002 - 07:43:31

Hallo Hans,

funktioniert das auch mit Printtofile ?
Es soll nämlich alles in eine Datei geschrieben (gedruckt) werden.

Heiko


nach oben   nach unten

Re: nur die jeweils erste Seite drucken
von: Hans W. Herber
Geschrieben am: 19.06.2002 - 08:10:17

... das würde ich an Deiner Stelle glatt mal testen ;-)

hans


nach oben   nach unten

Re: nur die jeweils erste Seite drucken
von: Heiko
Geschrieben am: 19.06.2002 - 09:41:51

ok, habe ich.

Das Problem ist nun, dass ich zum Drucken ja einen Array von Sheets angebe. Durch die "for each" Anweisung druckt Excel jetzt aber jedes im Array angegebene Sheet in die gleiche Datei, sprich die Datei wird jedesmal überschrieben, so dass am Ende nur das letzte Sheet in der Liste auch in der Druckdatei auftaucht.


nach oben   nach unten

Re: nur die jeweils erste Seite drucken
von: Hans W. Herber
Geschrieben am: 19.06.2002 - 10:03:43

... das war ja nun nicht zu wissen. Als Möglichkeit:


Sub PrintFirst()
   Dim sh As Object
   For Each sh In Sheets
      SendKeys sh.Name & ".prn{enter}", False
      sh.PrintOut from:=1, to:=1, printtofile:=True
      Application.Wait Now TimeSerial(0, 0, 2)
   Next sh
End Sub

hans

nach oben   nach unten

Re: nur die jeweils erste Seite drucken
von: Heiko
Geschrieben am: 19.06.2002 - 11:23:58

Hallo Hans,

leider geht das auch nicht. Nun wird pro Sheet eine eigene Datei angelegt. Die Sheets sollen aber alle in der selben Datei landen. Bei drei Sheets soll also eine Datei mit drei Seiten entstehen. Jede dieser Seiten soll jeweils die erste Seite jedes einzelnen Sheets sein.

Heiko


nach oben   nach unten

Re: nur die jeweils erste Seite drucken
von: Hans W. Herber
Geschrieben am: 19.06.2002 - 11:28:39

... das wird nicht möglich sein ... hans

nach oben   nach unten

Re: nur die jeweils erste Seite drucken
von: Heiko
Geschrieben am: 19.06.2002 - 12:17:57

Hallo Hans,

leider geht das auch nicht. Nun wird pro Sheet eine eigene Datei angelegt. Die Sheets sollen aber alle in der selben Datei landen. Bei drei Sheets soll also eine Datei mit drei Seiten entstehen. Jede dieser Seiten soll jeweils die erste Seite jedes einzelnen Sheets sein.

Heiko


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "nur die jeweils erste Seite drucken"