PDF erstellen
24.11.2023 09:01:16
Chrisi
wenn ich versuche mein ActiveSheet als PDF zu speichern bekomme ich folgenden Fehler:
"Das Dokument wurde nicht gespeichert, Das Dokument ist möglicherweise geöffnet oder beim Speichern ist ein Fehler passiert"
Code ist folgender:
Sub PDF_erstellen()
'
' PDF_erstellen Makro
' speichert das Protokoll als PDF ab
Dim File As String
Sheets("Lieferfreigabe").Select
Losnummer = Cells(2, 5).Value
Sheets("1919").Activate
'Save Active Sheet(s) as PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="\\svdb0600\PI\Qs\PowerHap\Lieferfreigabe\Freigaben\" & Losnummer & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
'** E-Mail versenden
strPDF = "\\svdb0600\PI\Qs\PowerHap\Lieferfreigabe\Freigaben\" & Losnummer & ".pdf"
With strEmail
.To = "christoph.woelger@tdk.com"
.Subject = "PDF als Anlage" 'Betreffzeile
.body = "Als Anlage die PDF-Datei"
.Attachments.Add strPDF
.Display
'.Send 'Damit wir die E-Mail sofort versendet
Kill strPDF
End With
'** Objektvariablen wieder löschen
Set OutlookApp = Nothing
Set strEmail = Nothing
End Sub