AW: Makro um Pdf zu erzeugen
24.01.2012 15:47:58
KlausF
Hallo Frank,
probier mal
Sub SaveAsPDF()
Dim sPath As String
sPath = ThisWorkbook.Path
sPath = IIf(Right$(sPath, 1) = Application.PathSeparator, sPath, sPath & Application. _
PathSeparator)
If sPath = "" Then
MsgBox "Die Datei muß zuerst gespeichert werden"
Exit Sub
End If
Dim rng As Range
Set rng = ActiveSheet.Range("A1:G50") 'ANPASSEN
On Error GoTo ENDE
Application.DisplayAlerts = False
Dim PDF_NAME As String
PDF_NAME = "TEST" 'ANPASSEN
rng.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
sPath & PDF_NAME & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Application.DisplayAlerts = True
Exit Sub
ENDE:
Application.DisplayAlerts = True
End Sub
Gruß
Klaus