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

Frage Microsoft Microsoft Office

Mitglied: DrFlorian

DrFlorian (Level 1) - Jetzt verbinden

06.03.2008, aktualisiert 07.04.2008, 14311 Aufrufe, 8 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 ..
Ä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
Erkennung und -Abwehr

Necur-Botnet soll Erpressungstrojaner Scarab massenhaft verbreiten

Information von BassFishFox vor 14 StundenErkennung und -Abwehr

12,5 Millionen Spam-Mails aus einem Bot-Netz mit 6 Millionen Computern? Eigentlich eine schwache Leistung. Die Erpresser setzen dabei auf ...

Microsoft

Nadeldrucker-Problem unter Windows - Microsoft liefert Updates

Information von BassFishFox vor 14 StundenMicrosoft

Hat ja nicht lange gedauert. Nachdem die November-Updates für Windows 7, 8.1 und 10 zahlreiche Nadeldrucker lahmgelegt hatten, stellt ...

Linux

Limux-Ende in München: Wie ein Linux Projekt unter Ausschluss der Öffentlichkeit zerstört wurde

Information von Frank vor 22 StundenLinux14 Kommentare

Mein persönlicher Kommentar zum Thema "Limux-Ende". Die SPD-Politikerin Anne Hübner hat die Richtung von München ganz klar definiert: "Wir ...

Batch & Shell

Open Object Rexx: Eine mittlerweile fast vergessene Skriptsprache aus dem Mainframebereich

Information von Penny.Cilin vor 1 TagBatch & Shell9 Kommentare

Ich kann mich noch sehr gut an diese Skriptsprache erinnern und nutze diese auch heute ab und an noch. ...

Heiß diskutierte Inhalte
Windows Server
Kann man im KMS nachschauen , wieviele Clients den Key in Anspruch genommen haben
gelöst Frage von rainergugusWindows Server15 Kommentare

Hallo, wir haben einen KMS Windows 10 Key. Dieser ist ja W7 kompatibel. Aber unser Windows 7 Pool registriert ...

Linux
Limux-Ende in München: Wie ein Linux Projekt unter Ausschluss der Öffentlichkeit zerstört wurde
Information von FrankLinux14 Kommentare

Mein persönlicher Kommentar zum Thema "Limux-Ende". Die SPD-Politikerin Anne Hübner hat die Richtung von München ganz klar definiert: "Wir ...

Router & Routing
Zwei Netzwerke erstellen
Frage von bunteblumeRouter & Routing14 Kommentare

Hallo Zusammen, Ich möchte gerne ein backup von einem bestimmten Folder welcher auf dem Server regelmässig synchronisiert wird auf ...

Windows 10
Alle Programme mit bestimmtem Namen automatisch (per GPO) deinstallieren
gelöst Frage von lordofremixesWindows 1012 Kommentare

Hallo zusammen, gibt es eine Möglichkeit, alle Programme beginnend mit z.B. "Dell" im Namen per Script und somit per ...