Wie können die Serienbriefe erstellt werden, dass diese korrekt alle 17
Seiten geheftet werden?
Danke im Voraus
Gerd
"graueOptionen" <graueO...@discussions.microsoft.com> schrieb im
Newsbeitrag
news:951EA63E-667B-4621...@microsoft.com...
> Ein Kunde erstellt einen 17-seitigen Serienbrief mit 1000 Datensätze
> mit Word2007. Die einzelnen Serienbriefe sollen automatisch durch
> das Multifunktionsgerät geheftet werden - der Drucker sieht jedoch
> das gesamte Dokument als eine Datei.Wie können die Serienbriefe
> erstellt werden, dass diese korrekt alle 17 Seiten geheftet werden?
eine Möglichkeit wäre den Serienbrief in ein neues Dokument auszugeben
und diesen dann auf den Drucker auszugeben. Hierbei werden einzelne
Abschnitte erzeugt.
Mit deiner Frage solltest du dich auch an den Druckerhersteller wenden.
Bei weiteren Fragen stehen wir dir jederzeit gern zur Verfügung.
--
Mit freundlichen Grüßen / With best regards
Thomas Löwe [Microsoft MVP Word]
Es erfolgt keine Beantwortung von Supportanfragen per E-Mail.
http://support.microsoft.com
Beim Drucker kann ich nicht einstellen, dass die Heftung alle 17 Seiten zu
erfolgen hat.
Danke im Voraus
Gerd
"graueOptionen" schrieb
[Word 2007]
> Wir haben den Serienbrief in eine neue Datei
> geschrieben, dennoch wird auch dieses Dokument
> vom Drucker als ein Dokument erkannt - er erkennt
> also nicht dass alle 17 Seiten ein neues Dokument
> beginnt.
vielleicht helfen dir diese VBA-Lösungen weiter:
"Save each merged letter as a separate file"
http://homepage.hispeed.ch/cindymeister/mergfaq2.htm
"How to programmatically save each page or section of a document as a
separate file"
http://support.microsoft.com/kb/306348/en-us
--
Viele Grüße
Lisa
MS MVP Word
Gibt es hier keine einfachere Lösung - ist es z.B. nicht möglich, in dem
erzeugten Serienbrief am Ende jeden Serienbriefsatzes dem Drucker
mitzuteilen, dass hier ein neues Dokument beginnt?
Danke
Gerd
"graueOptionen" <graueO...@discussions.microsoft.com> schrieb im
Newsbeitrag
news:6950F2FB-2DB0-4561...@microsoft.com...
>> "Save each merged letter as a separate file"
>> http://homepage.hispeed.ch/cindymeister/mergfaq2.htm
>> "How to programmatically save each page or section of a document as a
>> separate file"
>> http://support.microsoft.com/kb/306348/en-us
> Gibt es hier keine einfachere Lösung - ist es z.B. nicht möglich,
> in dem erzeugten Serienbrief am Ende jeden Serienbriefsatzes
> dem Drucker mitzuteilen, dass hier ein neues Dokument beginnt?
vielen Dank für deine Nachricht.
Nach meinen Informationen besteht leider keine entsprechende
Möglichkeit.
Danke
Gerd
"Thomas Löwe [MS MVP Word]" wrote:
"graueOptionen" <graueO...@discussions.microsoft.com> schrieb im
Newsbeitrag
news:C6A5257E-DC7B-4008...@microsoft.com...
>> >> "Save each merged letter as a separate file"
>> >> http://homepage.hispeed.ch/cindymeister/mergfaq2.htm
>> >> "How to programmatically save each page or section of a document as a
>> >> separate file"
>> >> http://support.microsoft.com/kb/306348/en-us
>> > Gibt es hier keine einfachere Lösung - ist es z.B. nicht möglich,
>> > in dem erzeugten Serienbrief am Ende jeden Serienbriefsatzes
>> > dem Drucker mitzuteilen, dass hier ein neues Dokument beginnt?
>> Nach meinen Informationen besteht leider keine entsprechende
>> Möglichkeit.
> ist etwas derartiges für zukünftige Versionen geplant - sinnvoll
> wäre es ja schon bei Serienbriefen oder was meinst Du?
vielen Dank für deine Nachricht.
Hierzu liegen mir keine Informationen vor.
Du kannst dein Feedback eingeben unter:
https://feedback.office.microsoft.com/default.aspx?productkey=office2007
Du kannst Hinweise für Änderungen in zukünftigen Versionen
von Microsoft Office übermitteln. Bitte sende dein Feature
Request in englischer Sprache. Beachte bitte, dass du keine
persönliche Antwort erhalten wirst.
Bei weiteren Fragen stehen wir dir jederzeit gern zur Verfügung.
--
Mit freundlichen Grüßen / With best regards
Thomas Löwe [Microsoft MVP Word]
Es erfolgt keine Beantwortung von Supportanfragen per persönlicher E-Mail.
http://support.microsoft.com
[Word 2007]
>> "Save each merged letter as a separate file"
>> http://homepage.hispeed.ch/cindymeister/mergfaq2.htm
>
>> "How to programmatically save each page or section
>> of a document as a separate file"
>> http://support.microsoft.com/kb/306348/en-us
> Gibt es hier keine einfachere Lösung - ist es z.B. nicht
> möglich, in dem erzeugten Serienbrief am Ende jeden
> Serienbriefsatzes dem Drucker mitzuteilen, dass hier
> ein neues Dokument beginnt?
vermutlich kann man Befehle einbauen, die den Drucker direkt steuern. Dazu
müsste man aber genau diese Befehle für PCL5 etc. kennen und wissen, wie und
wo man sie in Word einbaut.
Einfacher ist sicher eine VBA-Lösung, die den fertigen Serienbrief nicht
erst (wie in den oben genannten Makros) in einzelne Dateien aussplittet,
sondern jeden Abschnitt separat ausdruckt. Der fertige Serienbrief enthält
ja je Datensatz einen Abschnitt (Section), sofern nicht schon im
Seriendruck-Hauptdokument Abschnittswechsel enthalten sind.
Zwei Makros habe ich auf der Seite
http://www.administrator.de/index.php?content=82479 gefunden und weiter
unten aufgeführt.
Teste am besten beide mal aus. Sollten Fragen dazu auftauchen, wende dich
bitte an die Newsgroup für Word-VBA.
Viele Grüße
Lisa
MS MVP Word
----------- Makro 1 -----------------
Dim i As Long
With ActiveDocument
For i = 1 To .Sections.Count
.PrintOut Range:=wdPrintFromTo, From:="s" & i, To:="s" & i
Next i
End With
----------- Makro 2 -----------------
Sub PrintOut()
'
' Prints every record of a mail merge document as a separate
' print job
' Macro created 31.03.2008 by groet
'
On Error GoTo Fehler
Application.Visible = False
With ActiveDocument.MailMerge
.DataSource.ActiveRecord = 1
With Dialogs(wdDialogFilePrint)
x = .Show
End With
If x = -1 Then 'OK button pressed
.DataSource.ActiveRecord = wdNextRecord 'first record has already been
printed
Do
With .DataSource
.FirstRecord = .ActiveRecord
.LastRecord = .ActiveRecord
End With
Application.PrintOut
If .DataSource.ActiveRecord < .DataSource.RecordCount Then
.DataSource.ActiveRecord = wdNextRecord
Else
Exit Do
End If
Loop
End If
End With
Fehler:
Application.Visible = True
End Sub