Discussion :

[gyver76370]

Hello

J'export en PDF des pages Excel.
mais lors de l'exportation il me met dans le PDF la partie hors Zone d'impression

donc en VBA excel pour ne prendre que la zone d'impression il faut mettre a False l'option IgnorePrintAreas

exemple enregistrement macro sous excel option en rouge

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "D:\Users\Desktop\587CE06L00Y03_PF02400306AF_-_J_ed2.pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, [COLOR="#FF0000"]IgnorePrintAreas _
        :=False/COLOR], OpenAfterPublish:=False

Mon code WINDEV

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
MaFeuille est un objet Automation dynamique
NomFichier est une chaîne ="D:\Users\sbaudet.DOMSELHA\Documents\Excel Divers\traca_idu.xlsx"
sMois est une chaîne
 
//Instance de Excel existante ?
SI ObjetActif("Excel.Application") <> Null ALORS
	MaFeuille = ObjetActif("Excel.Application")
SINON
	MaFeuille = allouer un objet Automation "Excel.Application"
FIN
// Excel devient visible
MaFeuille>>Visible = Vrai
 
//Ouverture du Fichier XLS
MaFeuille>>Workbooks>>Open(NomFichier)
 
 
MaFeuille>>Sheets("Feuil1")>>ExportAsFixedFormat(0 ,"C:\test\toto.pdf",0,True,False,False)
 
//Fermer EXCEL
MaFeuille>>QUIT()

Je n'ai pas d'erreur Mais j'ai toujours les texte hors zone d'impression

Si qqun a une idée SVP ?

Merci

Windev20

[tbc92]

Il me semble qu'il faut systématiquement remplacer True par oleTrue et False par OleFalse dans le pilotage d'objets Automation.

[gyver76370]

Salut

Merci pour ta réponse mais résultat identique

Les caractère hors zone d'impression s'imprime toujours

[gyver76370]

Bon j'ai trouvé pourquoi .

C'est ma version d'office au travail qui fait ça

quand j’utilise la mienne cela marche, il prend en compte la zone d'impression.
J'ai contourné le pb en effaçant les cellule hors zone d'impression qui me gène

Voila

Merci de ton aide

Cordialement