Mehrere PDF-Dateien erzeugen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub printPDF() Dim lngIndex As Long With Tabelle1 For lngIndex = 1 To 100 .Range("A1") = lngIndex 'Zelle mit dem Zähler anpassen! .Calculate .ExportAsFixedFormat xlTypePDF, Sheets("Daten").Cells(lngIndex, 2).Text Sleep 500 Next .Range("A1") = 1 End With End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Hallo Sepp,
zunächst einmal ganz herzlichen Dank für deinen Code. Die Sache funktioniert schon einmal prinzipiell, und das ist super.
Ein Problem gibt es bei "Private Declare....", da kommt "Fehler beim Kompilieren: Der Code in diesem Projek muss für die Verwendeung auf 64-Bit-Systemen aktualisiert werden..." Das liegt vermutlich daran, dass ich Excel 2016 benutze, das aber in den Einstellungen des Posts nicht angeben konnte (es gab nur bis 2010 zur Auswahl). Wenn ich die "Private Declare" und "Sleep" auskommentiere, läuft der Code. Allerdings weiß ich nicht, was ich damit anrichte. Wie geht die Pause mit XL 2016?
Was ich nicht verstehe: "With" bezieht sich auf "Tabelle1" - aber woher weiß Excel, was damit gemeint ist? Und wie ändere ich das? Tabelle1 ist ja kein benannter Bereich und auch nicht der Name eines Sheets.
Ich würde noch gerne das, was als PDF gespeichert wird, noch einmal auf dem Standarddrucker ausdrucken. Kann ich das nach der PDF-Generierung einfach ein .PrintOut einfügen?
Viele Grüße
Frank

Option Explicit Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub printPDF() Dim lngIndex As Long With Sheets("Tabelle1") 'Tabellenname anpassen! For lngIndex = 1 To 100 .Range("A1") = lngIndex 'Zelle mit dem Zähler anpassen! .Calculate .ExportAsFixedFormat xlTypePDF, Sheets("Daten").Cells(lngIndex, 2).Text .PrintOut Sleep 500 Next .Range("A1") = 1 End With End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Hallo Sepp,
super - es macht genau, was es soll. Vielen Dank! Ich wollte die PDfs generieren, um sie dann mit dem Makro Excel_Serial_Mail() (wohl von Andreas Thehos) zu verschicken. Zuletzt kam mir der Gedanke, dass ich auch beide "verquicken" könnte, um die Fehleranfälligkeit zu verringern. Das ist mir nun gelungen und der Code läuft prima.
Aber: Die Sache sieht mir nicht so richtig "robust" aus - ich bin ja in VBA ahnungslos. Vermutlich sollte da noch irgendwo ein "sleep" mehr hinein, damit sich Excel nicht "verschluckt". Ich wäre dir sehr dankbar, wenn du noch einmal auf den Code schauen könntest und ggf. die Sache stabiler machen könntest:

   Sub PrintMailPDF()
Dim lngIndex As Long
Dim objOLOutlook As Object
Dim objOLMail As Object
Dim lngMailNr As Long
Dim lngZaehler As Long
On Error GoTo ErrorHandler
Set objOLOutlook = CreateObject("Outlook.Application")
lngMailNr = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
For lngZaehler = 2 To lngMailNr
If Cells(lngZaehler, 2)  "" Then
With Sheets("Verarbeitung")
'For lngIndex = 1 To 3
.Range("d1") = lngZaehler
.Calculate
.ExportAsFixedFormat xlTypePDF, Sheets("Daten").Cells(lngZaehler, 2).Text
.PrintOut
Sleep 500
End With
Set objOLMail = objOLOutlook.CreateItem(olMailItem)
With Sheets("Mail")
With objOLMail
.To = Cells(lngZaehler, 1)
.CC = "testmai@makro.de"
.Subject = Cells(lngZaehler, 2) & " - " & Cells(lngZaehler, 4)
.BodyFormat = olFormatPlain
.Body = "Hallo " & Cells(lngZaehler, 3) & "," & vbCrLf
Dim strAttachmentPfad1 As String
strAttachmentPfad1 = ActiveSheet.Cells(lngZaehler, 6)
.Attachments.Add strAttachmentPfad1
.Send
'.Display
End With
End With
Set objOLMail = Nothing
End If
Next lngZaehler
Set objOLOutlook = Nothing
Exit Sub
ErrorHandler:
MsgBox Err.Number & " " & Err.Description & " " & Err.Source, vbInformation
Exit Sub
End Sub

Viele Grüße
Frank

Sub PrintMailPDF() Dim objOLOutlook As Object, objOLMail As Object Dim lngMailNr As Long, lngIndex As Long, lngZaehler As Long On Error GoTo ErrorHandler Set objOLOutlook = CreateObject("Outlook.Application") lngMailNr = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row For lngZaehler = 2 To lngMailNr If Cells(lngZaehler, 2) <> "" Then With Sheets("Verarbeitung") 'For lngIndex = 1 To 3 .Range("d1") = lngZaehler .Calculate .ExportAsFixedFormat xlTypePDF, Sheets("Daten").Cells(lngZaehler, 2).Text .PrintOut Sleep 500 End With Set objOLMail = objOLOutlook.CreateItem(olMailItem) With Sheets("Mail") With objOLMail .To = Cells(lngZaehler, 1) .CC = "testmai@makro.de" .Subject = Cells(lngZaehler, 2) & " - " & Cells(lngZaehler, 4) .BodyFormat = olFormatPlain .Body = "Hallo " & Cells(lngZaehler, 3) & "," & vbCrLf Dim strAttachmentPfad1 As String strAttachmentPfad1 = ActiveSheet.Cells(lngZaehler, 6) .Attachments.Add strAttachmentPfad1 .Send '.Display End With End With Sleep 500 Set objOLMail = Nothing End If Next lngZaehler Set objOLOutlook = Nothing Exit Sub ErrorHandler: MsgBox Err.Number & " " & Err.Description & " " & Err.Source, vbInformation Exit Sub End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

84 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F
1	Gruß Sepp
2
3

	A	B	C	D	E	F
1	Gruß Sepp
2
3

	A	B	C	D	E	F
1	Gruß Sepp
2
3

	A	B	C	D	E	F
1	Gruß Sepp
2
3

Mehrere PDF-Dateien erzeugen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

84 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread