Thema Datum  Von Nutzer Rating
Antwort
Rot Serienbrief druckt nur erstes Element
09.03.2019 14:12:30 Oliver Weidner
*****
NotSolved

Ansicht des Beitrags:
Von:
Oliver Weidner
Datum:
09.03.2019 14:12:30
Views:
138
Rating: Antwort:
  Ja
Thema:
Serienbrief druckt nur erstes Element

Hey Leute,

ich habe folgendes Problem, ich habe ein VBA Skript welches mir die jüngste .CSV Datei aus dem Downloadordner zieht, welche dann letzendlich für den Serienbriefdruck verwendet werden soll. Funktioniert bis dahin auch ganz gut, nur leider wird ausschließlich das erste Element der CSV Datei gedruckt. 

Würde mich freuen wenn mir jemand weiterhelfen könnte.

 

LG

Oliver

Public Sub search()
    Dim StrDatei As String
    Dim I As Integer
    Dim StrTyp As String
    Dim Dateiname As String
    Dim Zeit As Date
    strVerzeichnis = "C:\Users\Oli\Downloads\"
    StrTyp = "*.csv"
    Dateiname = Dir(strVerzeichnis & StrTyp)
    Dateiname_neu = Dateiname
    Zeit = 0
    Do While Dateiname <> ""
        If Zeit > FileDateTime(strVerzeichnis & Dateiname) Then
            Zeit = FileDateTime(strVerzeichnis & Dateiname)
            Dateiname_neu = Dateiname
        End If
        Dateiname = Dir
    Loop
    GesuchteDatei = strVerzeichnis & Dateiname_neu
    Call import
End Sub

Public Sub import()
With ActiveDocument.MailMerge
 .MainDocumentType = wdCatalog
 .OpenDataSource Name:=GesuchteDatei, _
ReadOnly:=True, _
 Connection:="Sales"
End With

If ActiveDocument.MailMerge.State = wdMainAndDataSource Then
 ActiveDocument.MailMerge.Execute
End If

ActiveDocument.Application.WindowState = wdWindowStateMinimize
    If MsgBox("Serienbrief Drucken ?", vbYesNo + vbQuestion, _
        "Serienbrief-Erstellung - Drucken - Seitenvorschau") = vbYes Then
        ActiveDocument.Application.WindowState = wdWindowStateMaximize
savEnvAlert = Application.DisplayAlerts
savEnvBackground = Options.PrintBackground
Application.DisplayAlerts = wdAlertsNone
Options.PrintBackground = False
ActiveDocument.PrintOut
Application.DisplayAlerts = savEnvAlert
Options.PrintBackground = savEnvBackground
    End If
    'Call Schließen

End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Serienbrief druckt nur erstes Element
09.03.2019 14:12:30 Oliver Weidner
*****
NotSolved