[GastForen Diverses Was sonst nirgends rein passt... DRINGEND: Krieg der Seiten...

  • Suche
  • Hilfe
  • Lesezeichen
  • Benutzerliste
Themen
Beiträge
Moderatoren
Letzter Beitrag

DRINGEND: Krieg der Seiten...

Freeday
Beiträge gesamt: 5712

11. Aug 2008, 11:07
Beitrag # 1 von 5
Bewertung:
(1483 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
 
Hallo Forum

Ich habe ein witziges File mit 4000 Seiten, fortlaufend.
Das File sollte zu Sets à 3 Seiten gedruckt werden.

Davon eine Doppelseite auf Briefpapier und danach eine
Einzelseite auf neutrales Papier...

Wie kriege ich das hin? Entweder landet eine Seite als
vierte Seite auf dem neutralen Papier oder ich muss alles
von Hand sortieren... Gibt es eine Hilfe, eine art Script
oder sowas? (Ausgangsmaterial ist Word, PDF machbar...)

Gruss Stefan


************************************************************************
P: MacBook Unibody, 4 GB RAM, CS3 / KORG SV-1 / iPhone 5 / iPad 2
G: iMac 24'' Alu 3.06GHz OS X 10.6 / 4GB RAM / 1TB / LaCie Quadra 1TB Backup / CS4
----------------------------- Ein .jpg sagt mehr als tausend .docs -----------------------------
X

DRINGEND: Krieg der Seiten...

Dr. Gonzo
Beiträge gesamt: 2999

11. Aug 2008, 11:10
Beitrag # 2 von 5
Beitrag ID: #362131
Bewertung:
(1475 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
bei uns machen sowas hilfsarbeiter ;-).
sorry, musste raus...


Grüsse,
Dr. Gonzo

----------------------------------------------------------------------

"Der Duffman stirbt nie, nur der Schauspieler der ihn spielt..."


als Antwort auf: [#362128]

DRINGEND: Krieg der Seiten...

MurphysLaw
Beiträge gesamt: 588

11. Aug 2008, 11:52
Beitrag # 3 von 5
Beitrag ID: #362146
Bewertung:
(1458 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hi Freeday,

hier mal so als Brainstorm:

1.) Doppelseitenpapier einlegen, Drucker einrichten, dann alle Seiten außer der jeweils dritten drucken:
Code
Sub DruckeAlleAußerDritte() 
Dim pg As Long

For pg = 1 To ActiveDocument.ComputeStatistics(wdStatisticPages)
If (pg Mod 3) <> 0 And ((pg + 1) Mod 3) <> 0 Then
ActiveDocument.PrintOut from:=pg, to:=pg + 1
End If
Next pg

End Sub

2.) Danach Einzelpapier einlegen, Drucker wieder korrekt einrichten (Papierart), nur jede dritte Seite drucken:
Code
Sub DruckeJedeDritte() 
Dim pg As Long

For pg = 1 To ActiveDocument.ComputeStatistics(wdStatisticPages)
If (pg Mod 3) = 0 Then
ActiveDocument.PrintOut from:=pg, to:=pg
End If
Next pg

End Sub


Wär det was?

Grüße,
Murphy

________________________________________

Die letzte Stimme, die man hört, bevor die Welt explodiert, wird die Stimme eines Experten sein, der sagt: Das ist technisch unmöglich! (Sir Peter Ustinov)


als Antwort auf: [#362128]

DRINGEND: Krieg der Seiten...

Freeday
Beiträge gesamt: 5712

11. Aug 2008, 14:01
Beitrag # 4 von 5
Beitrag ID: #362164
Bewertung:
(1414 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Antwort auf [ MurphysLaw ] hier mal so als Brainstorm
Wär det was?

Hallo Murphy!

Klingt vielversprechend. Wie bringe ich das einem Mitarbeiter
schonend telefonisch bei? Wie muss er dafür vorgehen?
(alias wofür und was ist denn der Code :-D)

Ich denke er ist unter Win unterwegs...

Gruss Stefan


************************************************************************
P: MacBook Unibody, 4 GB RAM, CS3 / KORG SV-1 / iPhone 5 / iPad 2
G: iMac 24'' Alu 3.06GHz OS X 10.6 / 4GB RAM / 1TB / LaCie Quadra 1TB Backup / CS4
----------------------------- Ein .jpg sagt mehr als tausend .docs -----------------------------


als Antwort auf: [#362146]

DRINGEND: Krieg der Seiten...

MurphysLaw
Beiträge gesamt: 588

11. Aug 2008, 14:44
Beitrag # 5 von 5
Beitrag ID: #362170
Bewertung:
(1391 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Ach so! *lach*
Sorry: Der Code ist ein Word-Makrocode.
wenn Du das File selbst noch hast (in der gültigen Version versteht sich), dann ist es am besten, wenn Du den Code vor dem Verschicken reinsetzt.
1. mach das Dokument auf, klicke auf "Extras->Makro->Makros".
2. Dort, in der Dropdownliste "Makros in"... das aktuelle Dokument auswählen.
3. Im Textfeld "Makroname" irgendwas eingeben, z.B. "Hurz" und auf "Erstellen" klicken
4. Es öffnet sich der VisualBasic Editor. Dort das "Sub Hurz()... End Sub" löschen und folgenden Code einfach einpasten:
Code
Sub DruckeAlleAußerDritte()  
Dim pg As Long

For pg = 1 To ActiveDocument.ComputeStatistics(wdStatisticPages)
If (pg Mod 3) <> 0 And ((pg + 1) Mod 3) <> 0 Then
ActiveDocument.PrintOut from:=pg, to:=pg + 1
End If
Next pg

End Sub


Sub DruckeJedeDritte()
Dim pg As Long

For pg = 1 To ActiveDocument.ComputeStatistics(wdStatisticPages)
If (pg Mod 3) = 0 Then
ActiveDocument.PrintOut from:=pg, to:=pg
End If
Next pg

End Sub


5. das Dokument speichern, auch gerne unter einem anderen Namen..

Falls der Mitarbeiter die zurzeit valide Version hat, einfach die obenstehenden Punkte in einer Mail an den weiterleiten. Achtung: Acnweisung 0 nicht vergessen: 0. backup machen!!! :-PP

Jetzt kann das Dokument durch Ausführen des entsprechenden Makros gedruckt werden.
Also: Drucker für Doppelseiten einrichten, richtiges Papier rein, dann
"Extras->Makro->Makros", das Makro "DruckeAlleAußerDritte" ausführen.
Danach Drucker für Einzelseiten einrichten, richtiges Papier rein,
"Extras->Makro->Makros", das Makro "DruckeJedeDritte" ausführen.

Toi, toi toi!

________________________________________

Die letzte Stimme, die man hört, bevor die Welt explodiert, wird die Stimme eines Experten sein, der sagt: Das ist technisch unmöglich! (Sir Peter Ustinov)


als Antwort auf: [#362164]
X

Veranstaltungskalender

Hier können Sie Ihre Anlässe eintragen, welche einen Zusammenhang mit den Angeboten von HilfDirSelbst.ch wie z.B. Adobe InDesign, Photoshop, Illustrator, PDF, Pitstop, Affinity, Marketing, SEO, Büro- und Rechtsthemen etc. haben. Die Einträge werden moderiert freigeschaltet. Dies wird werktags üblicherweise innert 24 Stunden erfolgen.

pdf-icon Hier eine kleine Anleitung hinsichtlich Bedeutung der auszufüllenden Formularfelder.

Veranstaltungen
05.02.2021 - 05.11.2021

Digicomp Academy AG, Limmatstrasse 50, 8005 Zürich
Freitag, 05. Feb. 2021, 13.00 Uhr - Freitag, 05. Nov. 2021, 17.00 Uhr

Lehrgang

Bilden Sie sich zum zertifizierten Publishing-Multimedia-Profi aus. Neben Fotografie und Video befassen Sie sich mit der Medienproduktion, digitalen Publikationen und dem Webdesign für Desktop- und mobile Endgeräte.

Preis: CHF 10'500.-
Dauer: 30 Tage (ca. 210 Lektionen) – Unterricht findet jeweils am Freitag von 13 - 19 Uhr und Samstag von 09 - 17 Uhr statt

Ja

Organisator: Digicomp Academy AG

Kontaktinformation: Kundenberater-Team, E-Mailkundenberatung AT digicomp DOT ch

digicomp.ch/d/9PM

Veranstaltungen
09.09.2021 - 17.12.2021

Digicomp Academy, Zürich
Donnerstag, 09. Sept. 2021, 13.00 Uhr - Freitag, 17. Dez. 2021, 19.00 Uhr

Lehrgang

Steigen Sie in die Welt des Publishings ein und erlangen Sie die Zertifizierung von Publishing NETWORK. Lernen Sie in diesem Lehrgang Druckmedien professionell zu erarbeiten, druckfertige PDFs zu erstellen und CI/CD-Vorgaben umzusetzen.

Preis: 6'300.– zzgl. 7.7% MWST
Dauer: 18 Tage(ca. 126 Lektionen) – Unterricht findet jeweils am Freitag von 13 - 19 Uhr und Samstag von 09 - 17 Uhr statt.

Ja

Organisator: Digicomp Academy AG

Kontaktinformation: Kundenberater-Team, E-Mailkundenberater AT digicomp DOT ch