Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
12.04.2017 13:10:08 |
Felix |
|
|
|
12.04.2017 18:27:35 |
BigBen |
|
|
|
13.04.2017 08:53:02 |
Felix |
|
|
In der Schleife drucken lassen | Mein Code spinnt rum |
13.04.2017 14:01:18 |
BigBen |
|
|
|
13.04.2017 14:30:49 |
BigBen |
|
|
|
13.04.2017 14:38:01 |
BigBen |
|
|
|
13.04.2017 15:45:11 |
Felix |
|
|
|
13.04.2017 17:31:47 |
BigBen |
|
|
Von:
BigBen |
Datum:
13.04.2017 14:01:18 |
Views:
628 |
Rating:
|
Antwort:
|
Thema:
In der Schleife drucken lassen | Mein Code spinnt rum |
Hallo,
dieser VBA-Code Speichert die Serienbriefe in die entsprechenden Dateien im PDF und Word-Dokument. Bei Bedarf werden diese auch zusätzlich ausgedruckt:
Sub SavePrintAsPDFAndDoc()
Dim i As Integer
Dim drucken As Boolean
Dim Path As String
Dim sBrief As String
Dim iRst As Integer
drucken = True ' oder False
Path = "L:\temp\Serienbriefe\Ausgabe\"
For i = 1 To 5 ' 5 Exemplare Ausdrucken
With ActiveDocument.MailMerge
.DataSource.ActiveRecord = wdFirstRecord
For iRst = 1 To .DataSource.RecordCount
.DataSource.ActiveRecord = iRst
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = .ActiveRecord
.LastRecord = .ActiveRecord
sBrief = Path & .DataFields("VBA").Value
End With
.Execute Pause:=False
If drucken = vbYes Then
ActiveDocument.printOut
End If
If i = 1 Then ' Beim 1. Exemplar das Dokument speichern
ActiveDocument.SaveAs2 FileName:=sBrief & ".docx"
ActiveDocument.ExportAsFixedFormat OutputFileName:=sBrief & ".pdf", ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportAllDocument
End If
ActiveDocument.Close False
Next
End With
Next
End Sub
Im Code muss bei Bedarf der Pfad angepasst werden.
LG, BigBen
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- 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 geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- 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
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
12.04.2017 13:10:08 |
Felix |
|
|
|
12.04.2017 18:27:35 |
BigBen |
|
|
|
13.04.2017 08:53:02 |
Felix |
|
|
In der Schleife drucken lassen | Mein Code spinnt rum |
13.04.2017 14:01:18 |
BigBen |
|
|
|
13.04.2017 14:30:49 |
BigBen |
|
|
|
13.04.2017 14:38:01 |
BigBen |
|
|
|
13.04.2017 15:45:11 |
Felix |
|
|
|
13.04.2017 17:31:47 |
BigBen |
|
|