09.02.2022, 14:10
Hallo,
ich habe eine Frage zum Speichern von PDFs per Makro in Excel für den Mac. Ich versuche in einem kleinen Unternehmen Abrechnungen zu automatisieren. Dafür habe ich unter anderem folgenden Code geschrieben, der auf Windows einwandfrei funktioniert und ein PDF in den Zielpfad speichert. In Excel für den Mac wird jedoch kein PDF gespeichert, stattdessen springt der Standarddrucker an und druckt die betreffende Datei einfach aus. Es wäre für mich wirklich wichtig das ganze unter Mac ans laufen zu kriegen, da wir im Unternehmen (wegen anderer benötigter Software) mit Mac arbeiten.
Vielleicht sollte ich noch erwähnen, dass die Dateien auf dem SharePoint gespeichert werden sollen. Dies klappt jedoch grundsätzlich - auch auf dem Mac - mit automatisch generierten Word-Dateien beispielsweise ohne Probleme. Der oben beschriebene Fehler tritt jedoch unabhängig davon auf, ob der Zielpfad lokal oder auf dem SharePoint ist.
Vielen Dank im Voraus!
ich habe eine Frage zum Speichern von PDFs per Makro in Excel für den Mac. Ich versuche in einem kleinen Unternehmen Abrechnungen zu automatisieren. Dafür habe ich unter anderem folgenden Code geschrieben, der auf Windows einwandfrei funktioniert und ein PDF in den Zielpfad speichert. In Excel für den Mac wird jedoch kein PDF gespeichert, stattdessen springt der Standarddrucker an und druckt die betreffende Datei einfach aus. Es wäre für mich wirklich wichtig das ganze unter Mac ans laufen zu kriegen, da wir im Unternehmen (wegen anderer benötigter Software) mit Mac arbeiten.
Vielleicht sollte ich noch erwähnen, dass die Dateien auf dem SharePoint gespeichert werden sollen. Dies klappt jedoch grundsätzlich - auch auf dem Mac - mit automatisch generierten Word-Dateien beispielsweise ohne Probleme. Der oben beschriebene Fehler tritt jedoch unabhängig davon auf, ob der Zielpfad lokal oder auf dem SharePoint ist.
Vielen Dank im Voraus!
Code:
Sub TimesheetSpeichern()
Dim xl_Master_Timesheet As Object
Dim ws_Rechnungen As Object
Dim ws_Vorlagen As Object
Dim invoiceRng As Range
Dim pdfile As String
Dim strfile As String
Set invoiceRng = Range(ActiveSheet.PageSetup.PrintArea)
Set xl_Master_Timesheet = ThisWorkbook
Set ws_Rechnungen = xl_Master_Timesheet.Sheets("Rechnungen")
Set ws_Vorlagen = xl_Master_Timesheet.Sheets("Vorlagen")
pfad_Zielpfad_1 = ws_Vorlagen.Range("Zielpfad_1").Value
strfile = "invoice" & "_" & Format(Now(), "yyyymmdd_hhmmss") & ".pdf"
pdfile = pfad_Zielpfad_1 & strfile
invoiceRng.ExportAsFixedFormat Type:=xlTypePDF, _
FileName:=pdfile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub