Als pdf speichern
28.10.2013 09:38:50
Albert
ich will eine Datei als pdf speichern, nachdem alle Druckbereiche definiert wurden.
Hierzu verwende ich nachfolgenden Code.
Private Sub pdf_drucken_Click()
Dim strFileName As String
'Call Druckbereiche_einfügen
Call Druck
strFileName = ThisWorkbook.Path & _
ActiveWorkbook.BuiltinDocumentProperties("Title").Value & "-" & _
ActiveWorkbook.BuiltinDocumentProperties("Subject").Value & "." & _
ActiveWorkbook.BuiltinDocumentProperties("Keywords").Value & "_" & _
"\" & "Testdatei"
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=strFileName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
Ach ja, warum funktioniert der "CALL Druck" am Anfang nicht? Da mosert Excel, dass es eine Prozedur möchte.
Dank euch für eure Hilfe.
Gruß
A.
Anzeige