Discussion :

[LibreDom]

Bonjour,

j'utilise la macro suivante pour exporter une feuille en PDF.
Elle fonctionne, mais je voudrais effectuer un centrage horizontal du tableau dans le pdf en utilisant une propriété du filtre calc_pdf_Export si elle existe (l'équivalent de l'option "Alignement du tableau horizontal" dans l'onglet "page" de l'aperçu)

Quelqu'un connaîtrait cette propriété du filtre calc_pdf_Export ?

Merci

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
'_______________________________________________________________________________
'	Export en pdf le contenu de la feuille <sNomFeuille> vers le fichier <sNomDocComplet>
'	sNomFeuille : nom de la feuille à imprimer
'	sNomDocComplet : chemin complet du pdf : "C:\......\monficher.pdf"
Function ExportPDF(ByVal sNomFeuille, ByVal sNomDocComplet) As Boolean
	Dim sChemin As String
	Dim oFeuille As Object, oCell As Object
	Dim propFich(1) As New com.sun.star.beans.PropertyValue
	Dim filterProps(1) As New com.sun.star.beans.PropertyValue
 
	oFeuille = ThisComponent.getSheets.getByName(sNomFeuille)
 
	'Enregistrement sur poste Windows.
	sChemin = ConvertToURL(sNomDocComplet)
 
	'Propriétés de l'export
	filterProps(0).Name = "Selection"
	filterProps(0).Value = ThisComponent.currentSelection
 
	filterProps(1).Name = "ExportFormFields"
	filterProps(1).Value = false
 
	propFich(0).Name = "FilterName"
	propFich(0).Value = "calc_pdf_Export"
 
	propFich(1).Name = "FilterData"
	propFich(1).Value = filterProps()
 
	'Enregistrement
	if ThisComponent.hasLocation AND Not ThisComponent.isReadOnly Then
		ExportPDF = true
  		on local error goto notSaved
		ThisComponent.storeToURL(sChemin,propFich())
	else
   		ExportPDF = false
	endif
	exit function
 
	notSaved:
	ExportPDF = false
End Function

[LibreDom]

Code :

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

1
2
3
4
 
with thiscomponent.STyleFamilies.getByName("PageStyles").getByName("Default")
   .CenterHorizontally = true
end with