Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Word 2003 Serienbrief seperater Datensatzdruck fuer Drucker-Heftfunktion

Mitglied: DrFlorian

DrFlorian (Level 1) - Jetzt verbinden

06.03.2008, aktualisiert 07.04.2008, 14498 Aufrufe, 9 Kommentare

Ich suche eine schnelle integrierte Loesung, bitte keine Softwarevorschlaege

Moin moin,

eine Kollegin von mir moechte gerne Ihre Serienbriefe direkt beim drucken geheftet bekommen, soweit kein groesseres Problem jedoch sendet Word 2003 den Serienbrief als eine grosse Datei an den Drucker, der dann wiederrum ALLE Seiten heftet (bzw die maximale Seitenanzahl fuer einen Heftvorgang).

Was ich bereits gefunden und versucht habe ist folgendes Macro:

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

Das wird einfach nachdem die Datensaetze in ein neues Dokument eingesetzt worden sind ausgefuehrt und soll laut diversen Foren wunder bewirken. Zumindest muss ich zugeben das ich ueberrascht war denn der Drucker interpretierte das ganze so:
Seite 1 --> Seite2+Seite3 (geheftet) --> Seite 4 --> Seite 1 --> Seite2+Seite3 (geheftet) --> Seite 4.

Vielleicht kann mir jemand erlauetern was genau das Macro ueberhaupt bewirkt denn Ahnung habe ich von Macros ueberhaupt nicht und das war nur 1:1 aus einem Forum kopiert.

Sicherlich habe ich wichtige Informationen vergessen, bitte fragt einfach


Gruss
Florian
Mitglied: DrFlorian
07.03.2008 um 09:58 Uhr
Vielleicht verirrt sich ja jemand mit VB Kenntnissen hierher.

Gibt es die Moeglichkeit
a) die Komplettanzahl der Seiten auszulesen und
b) eine Art Seitenzaehler (wenn man aus dem Serienbrief ein neues Dokument mit eingefuegten Daten erstellt zeigt er zB bei 3 Datensaetzen je 4 Seiten Seite 1 - Seite 2 - Seite 3 - Seite 4 - Seite 1 - Seite 2 usw also erstellt im Dokument 12 Gesamtseiten und unterteilt diese in 3 Saetze.

Vermutlich klingt das total wirr worauf ich hinaus will ist das man mithilfe der Gesamtseitenzahl / Seitenzaehler (4 bei 4 Seitiges Dokument, 3 bei 3 Seitiges) ebenso herausbekommt wieviele Datensaetze das komplette Dokument enthaelt und dementsprechend eine Schleife solange laufen lassen kann wie auch Dokumente da sind.

Hat folgenden Hintergrund, er druckt nun geheftete Saetze jedoch druckt er bei 2 Saetzen 2 vollstaendig und danach nach Lust und laune quer beet.

Ich hoffe da ist im entferntesten ein logischer Ansatz zu erkennen >)


Gruss
Florian
Bitte warten ..
Mitglied: DAC324
07.04.2008 um 14:10 Uhr
Hallo Florian,

vor einem ähnlichen Problem stand ich auch mal. Mit folgendem Makro druckt Word alle Serienbriefe einzeln aus, anstatt sie in eine große Datei zu packen und erst dann zum Drucker zu schicken:

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

Beim Aufruf dieses Makros erscheint erst mal der Standard-Druckerauswahldialog, damit man notwendige Einstellungen am Drucker vornehmen kann (bei Dir wäre das z.B. die Heftfunktion, bei mir sollte die erste Seite auf ein anderes Papier gedruckt werden).

Anschließend wird für jeden Empfänger des Serienbriefs ein separater Druckjob erstellt und mit den getroffenen Einstellungen an den Drucker geschickt.

Dieses Makro ist sicher noch nicht perfekt.

Man könnte z.B. auf den Druckerdialog verzichten und stattdessen alle Einstellungen vom Makro automatisch erledigen lassen.

Aber vielleicht hilft's ja doch schon ein bißchen weiter.

EDIT: Abfrage von "OK" und "Abbrechen" Schaltfläche im Druckdialog eingebaut. Makro wird nur ausgeführt, wenn Nutzer "OK" angeklickt hat.

Grüße
DAC324
Bitte warten ..
Mitglied: kirchenworder
01.03.2011 um 13:45 Uhr
Hallo an alle im Forum und vielen Dank für die Hilfe,
ich hatte dasselbe Problem, aber nun gelöst.

Erweiterung:

in word 2010 habe ich das Makro auf eine Schaltfläche gelegt. Damit habe ich es immer bei Serienbriefen zur Verfügung.

Dies setzt eine Ergänzung voraus:

alt:

Application.Visible = False

With ActiveDocument.MailMerge
.DataSource.ActiveRecord = 1


neu:
Application.Visible = False

x=0

With ActiveDocument.MailMerge
.DataSource.ActiveRecord = 1



Ansonsten kommt der Druck-Dialog nicht

Liebe grüße
Bitte warten ..
Mitglied: christian2
08.06.2011 um 15:01 Uhr
Zitat von kirchenworder:
in word 2010 habe ich das Makro auf eine Schaltfläche gelegt. Damit habe ich es immer bei Serienbriefen zur Verfügung.

Bei mir geht leider der Druckdialog nicht auf. Es wird immer direkt gedruckt. Kann mir jemand einen Tipp gegen?
Bitte warten ..
Mitglied: kirchenworder
08.06.2011 um 19:09 Uhr
Hast du die änderung im makro gemacht, wie ichs oben beschrieben habe?
Bitte warten ..
Mitglied: christian2
09.06.2011 um 12:47 Uhr
Zitat von kirchenworder:
Hast du die änderung im makro gemacht, wie ichs oben beschrieben habe?

Ja, ich hab Copy&Past gemacht.
Hilft zur Diagnose vielleicht mein Testdokument? http://www.balticnerds.de/chris/Dok1.docm
Bitte warten ..
Mitglied: kirchenworder
09.06.2011 um 16:02 Uhr
Danke für dein Testdokument.
Ich sehe das problem noch nicht:
Das Makro funktioniert bei mir richtig.
Deshalb noch mal rückfragen:
1. In deinem testdokument waren keine Serienbrief felder definiert, hast du bei deinem Dokument denn Serienbrieffelder und die Verknüpfungen?
2. Wie hast du den Druck gestartet?
Bitte warten ..
Mitglied: christian2
27.06.2011 um 12:11 Uhr
Also ich kann Erfolg melden. Ich habe es mit einem Serienbriefdokument probiert und da ging es dann anstandslos. Danke!

Mir sind bei der Arbeit mit dem Makro zwei Dinge aufgefallen, an denen ich mich etwas störe.

1. Wenn man im Druckdialog einen Seitenbereich definiert, der gedruckt werden soll (z.B. Seite 2-10), so mach er dies beim ersten Druck auch, aber alle folgenden werden vollständig gedruckt (z.B. Seite 1-14).

2. Man kann nicht angeben, welche Serienbriefe gedruckt werden sollen. Im Menü "Sendungen" kann man, wenn man den Druck von dort auslöst, angeben welche Datensätze gedruckt werden sollen.

Ob man das Makro um diese Funktionalitäten erweitern kann? Ich schaue selber, aber vielleicht hast du/ jemand eine zündende Idee parat?
Bitte warten ..
Mitglied: kyokie
20.12.2017 um 16:24 Uhr
Hallo, vielen Dank für das Makro, funktioniert ....aber der Serienbrief selber wird nicht mit den Adressen befüllt, was mache ich falsch.
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Serienbrief Word
Frage von mike59Microsoft Office3 Kommentare

Hallo, Ich benutze GS-Adressen zum Briefschreiben. In GS-Adressen markiere ich eine Adresse gehe auf druck Microsoft Serienbrief. Dort wird ...

Microsoft Office
Word Serienbrief mergfield
Frage von InSpeeMicrosoft Office3 Kommentare

Hallo liebe community, ich komme bei einem Word-Serienbrief einfach nicht weiter und hoffe hier etwas Hilfe zu erhalten. Es ...

Microsoft Office

Formatierung von Word Serienbriefen in CHF Franken

gelöst Frage von pencilMicrosoft Office1 Kommentar

Hallo zusammen Ich habe ein Problem, dass die Rechnung in unserer Firma per Serienbrief lösen möchte. Gibt es eine ...

Microsoft Office

Serienbrief Word 2010 - Datenquellenüberschriften in Excel sind nicht in Zeile 1

gelöst Frage von RenateBMicrosoft Office15 Kommentare

Hallo, da denkt frau sie beherrscht nach 25 Jahren Word und dann das. Aufgabe: Serienbrieferstellung Word 2010 mit einer ...

Neue Wissensbeiträge
Windows 10

Neue Sicherheitslücke in Windows 10 (Version 1709) durch Google öffentlich geworden

Information von kgborn vor 16 StundenWindows 10

Vor ein paar Tagen haben Googles Sicherheitsforscher vom Projekt Zero eine Sicherheitslücke im Edge-Browser publiziert. Jetzt wurde eine weitere ...

iOS
IOS 11.2.6 verfügbar
Information von sabines vor 22 StundeniOS

Mit dem Update soll der Bug behoben werden, bei dem eine bestimmte Zeichenkette IOS zum Absturz gebracht hat.

Sicherheit
Sicherheitsrisiko: Die Krux mit 7-Zip
Information von kgborn vor 1 TagSicherheit8 Kommentare

Bei vielen Anwendern ist das Tool 7-Zip zum Entpacken von Archivdateien im Einsatz. Die Software ist kostenlos und steht ...

Internet

Datendealing im WWW Tracking Methoden immer brutaler

Information von sabines vor 1 TagInternet

Interessanter Artikel zum Thema Tracking im WWW und die immer "besseren" Methoden des Trackings. Professor Arvind Narayanan (Princeton-Universität) betreibt ...

Heiß diskutierte Inhalte
Router & Routing
LANCOM VPN CLIENT einrichten
Frage von Finchen961988Router & Routing27 Kommentare

Hallo, ich habe ein Problem und hoffe ihr könnt mir helfen, wir haben einen Kunden der hat einen Speedport ...

Windows Server
AD DS findet Domäne nicht, behebbar?
Frage von schapitzWindows Server25 Kommentare

Guten Tag, ich habe bei einem Kunden ein Problem mit den AD DS. Umgebung ist folgende: Windows Server 2016 ...

LAN, WAN, Wireless
VPN Cisco ASA5505 PaloAlto PA-200
gelöst Frage von YannoschLAN, WAN, Wireless22 Kommentare

Hallo zusammen, ich würde gerne ein Site-to-Site VPN zwischen den beiden Standorten aufbauen. PaloAlto PA200 Internetanschluss Deutsche Telekom GK ...

SAN, NAS, DAS
Qnap TS-453S Pro - Anbindung Active Directory
Frage von JuckieSAN, NAS, DAS13 Kommentare

Hallo zusammen, ich habe hier eine Qnap TS-453S Pro die sich mal so absolut gar nicht in das Active ...