Serienbrief, export der gedrucken Daten in Excel
27.01.2013 09:23:35
K.
Ich habe eine Exceldatei mit Namen undAdressen usw..
Damit habe ich in Word einen Serienbrief erstellt.
Ich drucke immer nur einzelne Seiten, nie alle.
Zur Überprüfung, was schon gedruckt wurde, würde ich jetzt gerne beim drucken der Seite, den Inhalt der Seriendruckfelder in eine zweite Exceldatei eintragen.
Das Makro, das er beim Drucken über mein Makro geht habe ich so gelöst:
Sub FilePrintDefault()
FilePrint
End Sub
Sub FilePrint()
Ret = Dialogs(wdDialogFilePrint).Show
'Call Datei_öffnenb("Urlaubsplanung\", "Übertrag LZK", "Schreiben")
'For a = 1 To 99999
'If Cells(a, 1) = "" Then
'Cells(a, 1) = ? (Nachname)
'Cells(a, 2) = ? (Vorname)
'Cells(a, 3) = ? (Pers.-Nr.)
'End If
'Next a
If Ret = -1 Then ActiveDocument.Close 'Dialog wurde mit OK beendet, daher sollte gedruckt _
worden sein
End Sub
Danke schon mal im voraus.
Gruß
Karsten