ActiveSheet.ExportAsFixedFormat und Laufzeitfehler
02.07.2018 09:40:51
Alexander
ich bin am Verzweifeln.
Wir haben hier verschiedene Win7 Rechner alle Excel 2010 (14....).
Ich habe ein Makro, was ein Arbeitsblatt als PDF exportiert und dann als Mail verschickt. Bei mir läuft das alles Prima, bei manchen Kollegen auch, bei anderen kommt der Laufzeitfehler 1004.
Sub Mail_LP()
'Vordruckblatt auswählen
Sheets("Vordruck").Visible = True
Worksheets("Vordruck").Activate
Sheets("Vordruck").Select
'PDF erstellen
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Environ("TEMP") & "\Plan.pdf"
'Grundgerüst Mail
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
'Inhalt der Mail
Dim Antwort, Empfänger, Betreff As String
Empfänger = "email@xyzzz.de"
Betreff = "PDFfür " & Cells(17, 1).Value
Antwort = "Sehr geehrte Damen und Herren," & Chr(13) & Chr(13)
Antwort = Antwort & "anbei erhalten Sie den PDF-Auftrag für das Fahrzeug "
Antwort = Antwort & Cells(17, 1).Value & "."
Antwort = Antwort & Chr(13)
With objMail
.To = Empfänger
.Subject = Betreff
.Body = Antwort
.Attachments.Add Environ("TEMP") & "\Plan.pdf"
.Display
End With
Sheets("Vordruck").Visible = False
End Sub
Da das Makro nun auf mehr Standorte ausgerollt werden soll, soll ich den Fehler finden.
Ich habe schon in mühseliger Kleinabeit viele Einstellungen verglichen.
Erstaunlich ist es, dass es mit meinem Account auf einem Rechner geht, meldet sich eine Kollege mit dem LZ Fehler auf dem gleichen Rechner an, geht es nicht.
Die Windowsversionen sind identisch, die Officeversion auch.
Das Makro läuft auch auf auf einem Win10 Rechner mit Office 2013 ohne Probleme.
Anzeige