Code Erweiterung speichern als pdf
28.12.2015 13:31:16
Guesa
Erst einmal an alle, Frohe Weihnachten gehabt zu haben.
Jetzt mein Problem, habe hier aus dem Forum einen Code der mir ein Tabellenblatt speichert, läuft auch wunderbar. Ich möchte gerne das das ganze als PDF-Datei abgespeichert wird. Im Archiv finde ich nichts entsprechendes. Wäre klasse wenn mir jemand helfen könnte.
Vorab schon mal ein Danke
Gruß, Guesa
Sub Speichern()
Dim wb As Workbook
Dim strFileName As String
On Error GoTo ErrorHandler
Application.DisplayAlerts = False
With ThisWorkbook.Worksheets("BerStempel")
strFileName = .Range("P1") & "\" & .Range("P2") & ".xlsx"
'strFileName = .Range("B1") & "\" & .Range("C1") & ".xls"
End With
ActiveSheet.Copy
With ActiveWorkbook
.SaveAs strFileName, FileFormat:=51
'Oder als xls
'.SaveAs strFileName, FileFormat:=-4143
.Sheets(1).Shapes("speichern1").Delete
.Sheets(1).Shapes("kost").Delete
.Sheets(1).Shapes("Rech").Delete
.Close True
End With
ErrorHandler:
If Err.Number > 0 Then MsgBox Err.Description, , "Fehler: " & Err.Number
Application.DisplayAlerts = True
End Sub
Anzeige