Fråga : Definierat fel för variabel inte using typ för VBA ExportAsFixedFormat: =xlTypePDF överträffar in 2003

Förmiddag I using ExportAsFixedFormat som skrivar ut arbetssedeln som en pdf

My, utfärdar är det nedanfört för kodifiera som ska för att inte sammanställa i de tidigare versionerna av, överträffar tack vare xlTypePDF som är en odefinierad variabel i de tidigare versioner. användare för

Some av det ska programet har versioner av version 12 för XL pre som inte stöttar ExportAsFixedFormat typ: =xlTypePDF I-förmiddagen som ämnar använda ExportAsFixedFormat för versioner higher än 12 och skriva ut PDFCreator (eller somethingsimilar) om överträffaversionen är mindre än 12.

I, kunde precis vända av alternativ den säkra explicit men I-förmiddagen där är en mycket mer vältalig solution.

Can som någon behar berättar mig hur man får runt om detta fel?

(Or även bättre help mig som gör ExportAsFixedFormat arbete för att skriva ut till pdf för tidigare versioner av Excel (gör min egna version för att fungera för alla versioner av XL, så jag måste inte att använda ett 3rd nytto- parti för att skapa pdfen)?) > för

1:
2:
3:
4:
5:
6:
7:
8:

" codeBody " " >sub MakePDF för class= " för 11 därefter ActiveSheet.ExportAsFixedFormat-typ: =xlTypePDF FileName: = _, ”C:\ \ Book1.pdf” som är kvalitets-: =xlQualityStandard IncludeDocProperties _, : =True IgnorePrintAreas: =False OpenAfterPublish: =False Annars MakePDF_UsePDFCreator Avsluta om " klar "

Svar : Definierat fel för variabel inte using typ för VBA ExportAsFixedFormat: =xlTypePDF överträffar in 2003

Jag har använt den numeriska motsvarigheten

Om lExcelVersion > 11 därefter
    ActiveSheet.ExportAsFixedFormat-typ: =0 Filename: = _,
        ”C:\Book1.pdf” som är kvalitets-: =0 IncludeDocProperties _,
        : =True IgnorePrintAreas: =False OpenAfterPublish: =False
Avsluta om