[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, 13:07
Beitrag # 1 von 5
Bewertung:
(1515 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
X

DRINGEND: Krieg der Seiten...

Dr. Gonzo
Beiträge gesamt: 2999

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


als Antwort auf: [#362128]

DRINGEND: Krieg der Seiten...

MurphysLaw
Beiträge gesamt: 588

11. Aug 2008, 13:52
Beitrag # 3 von 5
Beitrag ID: #362146
Bewertung:
(1490 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


als Antwort auf: [#362128]

DRINGEND: Krieg der Seiten...

Freeday
Beiträge gesamt: 5712

11. Aug 2008, 16:01
Beitrag # 4 von 5
Beitrag ID: #362164
Bewertung:
(1446 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


als Antwort auf: [#362146]

DRINGEND: Krieg der Seiten...

MurphysLaw
Beiträge gesamt: 588

11. Aug 2008, 16:44
Beitrag # 5 von 5
Beitrag ID: #362170
Bewertung:
(1423 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!


als Antwort auf: [#362164]
X

Aktuell

PDF / Print
300_PDF20

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
01.03.2023 - 09.03.2023

Online
Mittwoch, 01. März 2023, 00.00 Uhr - Donnerstag, 09. März 2023, 00.00 Uhr

Online Webinar

Wie gehen wir mit diesen Veränderungen um? Was ist notwendig, damit wir die Digitalisierung im Unternehmen klappt? Veränderungsprozesse verstehen und entsprechend handeln Mitarbeiter als Botschafter Webseite mit WordPress erstellen SEA /SEO (Ads aufschalten)

Ja

Organisator: B. Isik - SNF Academy

Kontaktinformation: B. Isik, E-Mailinfo AT snfa DOT ch

https://www.fernstudiumfitness.ch/digitalisierung-schweiz/