Questione : Errore non definito di variabile using il tipo di VBA ExportAsFixedFormat: il =xlTypePDF dentro eccelle 2003

Sto usando ExportAsFixedFormat per stampare il manuale poichè un'edizione del pdf

My è il codice qui sotto non compilerà nelle versioni anteriori di eccelle dovuto xlTypePDF che è una variabile non definita in quelle versioni anteriori. gli utenti del

Some del programma avranno versioni della versione 12 di XL pre che non sostengono il tipo di ExportAsFixedFormat: =xlTypePDF, sto intendendo usare ExportAsFixedFormat per le versioni più superiore 12 e stampare PDFCreator (o somethingsimilar) se la versione di supremazia è di meno che 12.

I potrebbe appena spegnerla l'opzione esplicito ma sono sicura che ci sono i solution.

Can qualcuno soddisfa mi dice come ottenere intorno a questo errore?

( o persino migliore help me per fare il lavoro di ExportAsFixedFormat per stampare al pdf per le versioni anteriori di Excel (fare funzionare la mia propria versione per tutte le versioni del XL in modo da non devo usare un programma di utilità dei terzi per generare il pdf)? che) class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
1:
2:
3:
4:
5:
6:
7:
8:
>sub notpretty MakePDF " del class= " del id= " codeSnippet688970 del 
 11 allora
    Tipo di ActiveSheet.ExportAsFixedFormat: =xlTypePDF, nome di schedario: = _
        “C:\ \ Book1.pdf„, qualità: =xlQualityStandard, _ di IncludeDocProperties
        : =True, IgnorePrintAreas: =False, OpenAfterPublish: =False
Altrimenti
    MakePDF_UsePDFCreator
Concluder se
class= del

Risposta : Errore non definito di variabile using il tipo di VBA ExportAsFixedFormat: il =xlTypePDF dentro eccelle 2003

Ho usato l'equivalente numerico

Se lExcelVersion > 11 allora
    Tipo di ActiveSheet.ExportAsFixedFormat: =0, nome di schedario: = _
        “C:\Book1.pdf„, qualità: =0, _ di IncludeDocProperties
        : =True, IgnorePrintAreas: =False, OpenAfterPublish: =False
Concluder se
Altre soluzioni  
 
programming4us programming4us