|
Hallo,
hat denn jeder so einen Drucker "Print to PDF"?
Ich jedenfalls nicht, deswegen würde ich es auch mit einem Dialog machen:
Sub Bsp_PDFmitAbfrage()
Dim strTitel As String
Dim strFilter As String
Dim varRetVal As Variant 'Rückgabe
'** Titel definieren
strTitel = "PDF Speichern"
'** Dateifilter definieren
strFilter = "PDF-Dateien (*.pdf),*.pdf"
'Speichern Unter-Dialog anzeigen: .GetSaveAsFilename(InitialFilename, FileFilter, FilterIndex, Title, ButtonText) (ButtonText nur bei Mac)
varRetVal = Application.GetSaveAsFilename(, strFilter, , strTitel)
'Wenn "Abbrechen" geklickt wurde -> Exit Sub
If varRetVal = False Then Exit Sub
'... andernfalls PDF erzeugen
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=varRetVal, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
Uwe
|