Cuestión : Error no definido de la variable usar tipo de VBA ExportAsFixedFormat: el =xlTypePDF adentro sobresale 2003

Estoy utilizando ExportAsFixedFormat para imprimir la hoja de trabajo pues una edición del pdf

My es el código abajo no compilará en las versiones anteriores de sobresale debido al xlTypePDF que es una variable indefinida en esas versiones anteriores. los usuarios del

Some del programa tendrán versiones de la versión 12 del XL pre que no apoyen el tipo de ExportAsFixedFormat: ¿=xlTypePDF, me estoy preponiendo utilizar ExportAsFixedFormat para las versiones más arriba de 12 e imprimir PDFCreator (o somethingsimilar) si la versión del sobresalir es menos que 12.

I podría apenas apagar la opción explícito pero me está segura que hay solution.

Can que alguien satisface me dice cómo conseguir alrededor de este error?

( o aún un mejor help yo para hacer el trabajo de ExportAsFixedFormat para imprimir al pdf para versiones anteriores de Excel (hacer mi propia versión para trabajar para todas las versiones del XL así que no tengo que utilizar una utilidad de la tercer persona para crear el pdf)?)
class= > " claro " 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 entonces
    Tipo de ActiveSheet.ExportAsFixedFormat: =xlTypePDF, nombre de fichero: = _
        “C:\ \ Book1.pdf”, calidad: =xlQualityStandard, _ de IncludeDocProperties
        : =True, IgnorePrintAreas: =False, OpenAfterPublish: =False

    MakePDF_UsePDFCreator
Terminar si
class= del

Respuesta : Error no definido de la variable usar tipo de VBA ExportAsFixedFormat: el =xlTypePDF adentro sobresale 2003

He utilizado el equivalente numérico

Si lExcelVersion > 11 entonces
    Tipo de ActiveSheet.ExportAsFixedFormat: =0, nombre de fichero: = _
        “C:\Book1.pdf”, calidad: =0, _ de IncludeDocProperties
        : =True, IgnorePrintAreas: =False, OpenAfterPublish: =False
Terminar si
Otras soluciones  
 
programming4us programming4us