PDF von bestimmtem Bereich ertzeugen
30.04.2021 11:02:32
bestimmtem
hab durch die Hilfe hier im Forum schon eine funktionierende VBA, die mir von einem Dokument eine PDF erzeugt und eine Mail erstellt.
Jetzt kann der Bereich, aus dem eine PDF erzeugt wird aber unterschiedlich viele Zeilen beinhalten.
Hab schon mal was versucht, was aber leider nicht funktioniert. "Fehler beim Kompilieren".
Weiß jemand wo der Fehler liegt? Hier meine VBA:
Public Sub MailMitPDFundSignatur()
Dim sDateiname As String, WSh As Worksheet
Set WSh = ThisWorkbook.Sheets("ISF")
' PDF erzeugen
sDateiname = WSh.Parent.Path & "\" & " Dateiname" & Worksheets("ISF").Range("C11") & "_" & Worksheets("A 1").Range("C7").Value & ".pdf"
WSh.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sDateiname, _
Quality:=xlQualityStandard, OpenAfterPublish:=False
'Die folgenden 6 Zeilen habe ich eingefügt um den Bereich einzugrenzen, der als PDF erzeugt werden soll
max = Sheets("DQ").Range("AH3").Value
If max 2 Then max = 2
For i = 1 To max
vz = i * 51 - 50: bz = i * 51
Worksheets("GY ISF").Range ("A" & vz & ":J" & bz) '.PrintOut Copies:=1 .PrintPreview
' Mail kreieren
With CreateObject("Outlook.Application").CreateItem(0)
.GetInspector ' sorgt für die Signatur
'.To = "Mail Adresse" ' Empfänger
.Subject = "Betreff " & Worksheets("ISF").Range("C11") & "_" & Worksheets("A 1").Range("C7") ' Betreff
.Body = "Dear Sirs," & vbCr & vbCr _
& "Text 1 " & vbCr _
& "Text 2 " & vbCr _
& "Text 3 " _
'& vbCr & .Body ' Mailtext mit Signatur
If Dir$(sDateiname) "" Then .Attachments.Add sDateiname
.Display
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
Gruß Andreas