ich bin am verzweifeln. Ich habe in einer Userform einen Commandbutton zum drucken des Arbeitsblattes als pdf mit folgendem Code:
Private Sub CommandButton1_Click()
If Application.Version > 11 Then
ActiveSheet.ExportAsFixedFormat Type:=0, Filename:= _
ThisWorkbook.Path & "\" & ActiveSheet.Name & "_" & VBA.Format(VBA.Date, "YYYY") & _
"_" & VBA.Format(VBA.Time, "hh-mm-ss") & ".pdf", Quality:=0 _
, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
End If
End Sub
Funktioniert einwandfrei ab Excelversion 2007, bei Excel 2003 stürtzt es immer mit Laufzeitfehler 438 ab. Ich habe schon alles mögliche probiert, auch den Druckbefehl als eigenes sub bringt mich nicht weiter. Liegt das sub in einem Modul, dann bleibt der Fehler, schreibe ich das sub in die Userform bekomme ich zwar keinen Laufzeitfehler, aber das sub wird nie ausgeführt, auch in Excel 2010. Es ist mir klar, das in Excel 2003 kein pdf erstellt wird.
Danke für Eure Mühe
BerndK