Hallo Zusammen,
ich habe eine Excelliste, welche in Word zu einem Serienbrief verarbeitet wird. Soweit so gut.
Probleme macht der Druck.
Ich habe den Druckdialog, wo ich die Einstellungen im treiber machen kann. Alles prima.
Nur eine Sache klappt nicht. Die Anzahl der Exemplare, welche ich im Druckdialog angebe, wird nicht übernommen. er druckt immer nur 1x.
Habt Ihr da eine Lösung?
MfG Madde
ich habe eine Excelliste, welche in Word zu einem Serienbrief verarbeitet wird. Soweit so gut.
Probleme macht der Druck.
Ich habe den Druckdialog, wo ich die Einstellungen im treiber machen kann. Alles prima.
Nur eine Sache klappt nicht. Die Anzahl der Exemplare, welche ich im Druckdialog angebe, wird nicht übernommen. er druckt immer nur 1x.
Habt Ihr da eine Lösung?
Quellcode
- Sub SerienbriefDrucken()
- Dim wdApp As Object
- Dim wdDoc As Object
- Dim strMsg As String, strTitle As String
- Set wdApp = VBA.GetObject(Class:="Word.Application")
- wdApp.Visible = True
- Set wdDoc = wdApp.ActiveDocument
- With wdDoc.MailMerge
- Dialogs(wdDialogFilePrint).Display
- .Destination = 1
- .SuppressBlankLines = True
- With .DataSource
- .FirstRecord = 1
- .LastRecord = -16
- End With
- .Execute Pause:=False
- End With
- End Sub
MfG Madde