Sub
pdfErstellen()
Dim
DieDatei
As
Boolean
, Pfad$
If
MsgBox(
"ACHTUNG: Vorhandende Datei kann überschrieben werden!!!"
& vbNewLine &
"Weiter ?"
, vbYesNo) = vbYes
Then
DieDatei = IstDateiOffen(Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5) &
".pdf"
)
If
DieDatei =
True
Then
MsgBox
"Datei ist bereits geöffnet, Bitte vorher schließen!"
Else
Pfad =
"N:\" & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5) & "
.pdf"
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pfad, Quality:=xlQualityStandard, _
IncludeDocProperties:=
True
, IgnorePrintAreas:=
False
, OpenAfterPublish:= _
True
End
If
Else
MsgBox
"Vorgang abgebrochen"
End
If
End
Sub