ich will eine Datei als pdf speichern, nachdem alle Druckbereiche definiert wurden.
Hierzu verwende ich nachfolgenden Code.
Private Sub pdf_drucken_Click()
Dim strFileName As String
'Call Druckbereiche_einfügen
Call Druck
strFileName = ThisWorkbook.Path & _
ActiveWorkbook.BuiltinDocumentProperties("Title").Value & "-" & _
ActiveWorkbook.BuiltinDocumentProperties("Subject").Value & "." & _
ActiveWorkbook.BuiltinDocumentProperties("Keywords").Value & "_" & _
"\" & "Testdatei"
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=strFileName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
Jedenfalls kommt ein Laufzeitfehler 1004, obwohl der untere Teil vom Makrorecorder aufgezeichnet wurde. "Anwendungs- oder objektdefinierter Fehler"Ach ja, warum funktioniert der "CALL Druck" am Anfang nicht? Da mosert Excel, dass es eine Prozedur möchte.
Dank euch für eure Hilfe.
Gruß
A.