VBA Code
03.03.2015 14:21:08
Bernd
Hier mal mein Code :
Private Sub CommandButton1_Click()
'Dialogfeld automatisches Speichern als PDF
Dim pdfName As String
pdfName = Application.GetSaveAsFilename(Environ("USERPROFILE") & "\D:\Bestellschein\" & "Lfd. _
_
_
_
Nr." & "PDF", "PDF-Dateien (*.pdf), *.pdf")
Sheets(Array("Tabelle2")).Copy
With ActiveWorkbook
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
.Close savechanges:=False
End With
End Sub
vorab schon mal ein Dankeschön
Bernd
https://www.herber.de/bbs/user/96129.xlsm