AjaciedNick
Gebruiker
- Lid geworden
- 4 nov 2012
- Berichten
- 129
Ik gebruik nu deze VBA code om bestanden op te slaan als PDF in een vooraf opgegeven map.
Nu wil ik hem op een iMac gaan gebruiken, maar hoe is de code dan?
Nu wil ik hem op een iMac gaan gebruiken, maar hoe is de code dan?
Code:
Sub PDF()
Dim FacName As String
FacName = ActiveSheet.Range("C2").Value
If Dir("C:\Users\Nick\Desktop\" & FacName & ".pdf") <> "" Then
MsgBox "Het bestand: " & FacName & ".pdf bestaat reeds"
Exit Sub
Else
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Nick\Desktop\" & FacName & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True
End If
End Sub