Frage : Definierte Störung der Variable nicht using VBA ExportAsFixedFormat Art: =xlTypePDF übertreffen innen 2003

Ich verwende ExportAsFixedFormat, um Arbeitsblatt zu drucken, da eine pdf

My Ausgabe der Code unten kompiliert nicht in den früheren Versionen von übertreffen wegen des xlTypePDF ist, das eine unbestimmte Variable in jenen früheren Versionen ist.

Some Benutzer des Programms haben Versionen von XL-vor Version 12, die nicht ExportAsFixedFormat Art stützen: =xlTypePDF, beabsichtige ich, ExportAsFixedFormat für Versionen höher als 12 zu verwenden und PDFCreator zu drucken (oder somethingsimilar) wenn die übertreffenversion kleiner als 12.

I ist, könnte Wahl aber mich ausdrücklich gerade abstellen sind sicher, dass es viel redegewandteren solution.

Can gibt, das jemand erklären mir gefallen, wie man um diese Störung erhält?

( oder sogar besseres help ich, zum der ExportAsFixedFormat Arbeit zu pdf für frühere Versionen von Excel drucken zu lassen (meine eigene Version für alle Versionen von XL arbeiten lassen, also muss ich ein Dienstprogramm der 3. Partei nicht verwenden, um das pdf herzustellen)?) 
1:
2:
3:
4:
5:
6:
7:
8:

sub MakePDF ()
Wenn Application.Version > 11 dann
    ActiveSheet.ExportAsFixedFormat Art: =xlTypePDF, Dateiname: = _
        „C:\ \ Book1.pdf“, Qualität: =xlQualityStandard, IncludeDocProperties _
        : =True, IgnorePrintAreas: =False, OpenAfterPublish: =False
Sonst
    MakePDF_UsePDFCreator
Beenden wenn

Antwort : Definierte Störung der Variable nicht using VBA ExportAsFixedFormat Art: =xlTypePDF übertreffen innen 2003

Ich habe das numerische Äquivalent verwendet

Wenn lExcelVersion > 11 dann
    ActiveSheet.ExportAsFixedFormat Art: =0, Dateiname: = _
        „C:\Book1.pdf“, Qualität: =0, IncludeDocProperties _
        : =True, IgnorePrintAreas: =False, OpenAfterPublish: =False
Beenden wenn
Weitere Lösungen  
 
programming4us programming4us