Hallo zusammen,
ich hoffe man kann mir hier helfen.
ich habe bisher folgendes makro zusammengeschustert und möchte dies als pdf speichern.
es wird zwar als pdf gespeichert aber es läst sich nicht mit adobe acrobat reader öffnen, was habe ich da falsch gemacht ?
Sub speichern()
Worksheets("Verbrauchsrechnung").Activate
Dim var_Speichere As Variant
Dim str_FileName As String
str_FileName = "Garten_" & Range("F12") & Range("G8") & "_" & Range("H13") & "_" & Range("C7") & ".pdf"
var_Speichere = Application.GetSaveAsFilename( _
InitialFileName:=str_FileName, _
FileFilter:="PDF (*.pdf), *.pdf", _
Title:="Datei speichern unter...")
If var_Speichere = False Then Exit Sub
ActiveWorkbook.SaveAs "Garten_" & Range("F12") & Range("G8") & "_" & Range("H13") & "_" & Range("C7") & ".pdf"
End Sub
und was kann ich da noch hinzufügen um es auch gleichzeitig ausdrucken zu können?
Es sollen aber nur tabelle1, tabelle3 und tabelle4 ausgedruckt werden.
Vielen Dank schon mal für die hilfe.
|