Fehler bei PDF Generierung - Laufzeitfehler
26.11.2015 13:05:12
Matthias
ich habe ein Problem bei der Generierung eines PDF Dokumentes aus Excel heraus, was über ein Makro funktioniert. Mein Problem: Auf meinem Rechner funktioniert es einwandfrei, auf meinem Laptop aber nicht, obwohl gleiche Systemlandschaft (Beides Win7, Office 2010 -identische Einstellungen - nur anderes Netzwerk)
Auf dem Laptop wird das Makro auch ausgeführt und bricht dann immer an dieser Stelle ab:
Laufzeitfehler: '-2147018887 (80071779)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Offensichtlich gibt es ein Problem beim abspeichern. ABER WIESO? Es ist keine anderes PDF geöffnet, was z.B. den gleichen Dateinamen trägt. Auch mit "speichern unter" und Änderung des Dateinamen, funktioniert es leider nicht. Ist evt. der Speicherort des Rätsels Lösung? Ich bin ratlos. Könnt Ihr weiterhelfen?
Hier der Code
------------------------
Private Sub CMDweiter_Click()
'Prüfung ob Text Vorhanden
'On Error GoTo Errorhandler
If Me.TextKunde.Value = "" Then
MsgBox ("Name des Kunden fehlt!")
Exit Sub
End If
' wird ausgeführt wenn auf Weiter geklickt wird
With Tabelle5
.Range("C28").Value = Me.TextKunde.Value
End With
Unload Me
Dim sh As Object
Dim arr() As Variant
Dim i As Integer
For Each sh In ThisWorkbook.Sheets
If sh.Visible = xlSheetVisible Then
i = i + 1
ReDim Preserve arr(1 To i)
arr(i) = sh.Name
End If
Next sh
Sheets(arr).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Exit Sub
'Errorhandler:
' MsgBox "Bitte schließen Sie vorher das alte PDF Dokument"
Resume Next
End Sub
Vielen Dank und Gruß
Matthias