Schnelle Pdf-Preview
Franz
nachdem bestimmte Konstanten für Pdf-Files völlig unbekannt sind bei versionen vor Excel 2010, schrieb ich dies
Sub ActiveSheet_QuickShow_as_PDF_File()
On Error GoTo ERRORHANDLER
'MsgBox ("Ihre Excel-Version lautet: " & Application.Version)
'Excel 2003 bis 2007 kennt u.a. keine Konstante "OpenAfterPublish" ,
' somit geht es direkt zum ERRORHANDLER
'Da die Konstante "xlTypePDF" den Wert 0 besitzt, anstelle von
'"ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF"
'funktionniert auch folgende Schreibweise...
ActiveSheet.ExportAsFixedFormat Type:=0, _
Filename:=ActiveSheet.Name, OpenAfterPublish:=True
Exit Sub
ERRORHANDLER:
MsgBox ("Sorry! " & vbLf & "Pdf-Files werden standarmässig ab Excel 2010 (Version 14) _
unterstützt." & vbLf & _
"Sie besitzen aber die Version " & Left(Application.Version, 2))
End Sub
Ihr könnt es ja sehen, das Ziel ist eine Universalität zu ermöglichen.
Meine Bedenken: Kann die Schreibweise " ActiveSheet.ExportAsFixedFormat Type:=0" Probleme verursachen? Auch das Fehlen der anderen Konstanten? Mein Makro scheint sie nicht zu vermissen. Meine Tests mit 2003 wie auch 2010 sind bisher erfolgreich mit dieser "light"-Version.
Grüße
Franz D.
Anzeige