Bonsoir,
Arnaud POUSSIER a écrit :
Bonjour à tous,
Aprés avoir cherché sur le forum et sur la bible de programmation, je me tourne
vers vous.
Dans un classeur, j'ai deux tableaux sur deux feuilles différentes. Le premier
est en mode portrait et le second en mode paysage.
Pour les imprimer (pas en même temps) j'ai utiliser la macro suivante:(page 176
du Livre)
Pour imprimer mon tableau A qui correspond à la page 1:
Option Explicit
Sub ImprimerPartie()
Dim monDocument As Object
Dim Props(0) As New com.sun.star.beans.PropertyValue
monDocument = ThisComponent
Props(0).Name = "Pages"
Props(0).Value = "1"
monDocument.Print(Props())
End Sub
Pour imprimer mon tableau B qui correspond aux pages 2 et 3:
Option Explicit
Sub ImprimerPartie()
Dim monDocument As Object
Dim Props(0) As New com.sun.star.beans.PropertyValue
monDocument = ThisComponent
Props(0).Name = "Pages"
Props(0).Value = "2;3"
monDocument.Print(Props())
End Sub
Comment puis - je faire pour que le tableau B sorte en mode paysage ?
Merci d'avance
Il suffit de rajouter la propriété ad hoc permettant le mode paysage :
- Modifier la déclaration de Props en
Dim Props(1) As New com.sun.star.beans.PropertyValue
- Ajouter la nouvelle propriété
Props(1).Name = "PaperOrientation"
Props(1).Value = com.sun.star.view.PaperOrientation.LANDSCAPE