ich möchte gern einen speicher unter Button haben der Dateiformat und Druckbereich definiert
hier mein funktionierender Speicher Button
Sub Gebüren()
DateiName = "sp-beitrags-gebührenordnung-" & Range("E12") & "-" & Range("E13") & ".pdf"
ChDir "C:\KGV\BK-Abrechnung\BK Sparte"
Range("A11:H85").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:= _
xlQualityStandard, IncludeDocProperties:=True _
, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
Hier mein nicht richtig funktionierender Speichern unter Button
Sub Gebürenspeichernunter()
With Application.FileDialog(msoFileDialogSaveAs)
.FilterIndex = 25
.InitialFileName = "sp-beitrags-gebührenordnung-" & Range("E12") & "-" & Range("E13") & _
_
".pdf"
If .Show Then ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=.SelectedItems(1), Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End With
End Sub
Wenn ich "Range("A11:H85" einfüge funktioniert er nicht mehr und auch wenn das speichern unter Fenster auf geht so steht zwar der File Name drin aber das falsche Dateiformat ist vorausgewählt.
VG Ralf