Bonjour,
Soit une cellule nommée "page_fin dans la feuille1 du classeur, le code suivant
fonctionne à condition que l'option "imprimer seulement les feuilles
sélectionnées" soit décochée dans "outils-options-calc-imprimer" ( option que
je ne sais pas vérifier par macro ).
On peut rajouter un test pour vérifier que le nombre saisi dans la cellule est
correct mais il faut savoir que si la valeur saisie n'est pas numérique ou est
supérieure au nombre de feuilles du classeur, OOo imprime toutes les pages,
s'il est égal à zéro il n'imprime que la première. On peut donc se passer du
test.
Sub ImprimerPages()
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.sheets.getByName("feuille1").getCellRangeByName("page_fin").string
monDocument.Print(Props())
End Sub
Claude
> Date: Wed, 31 Mar 2010 13:35:43 +0200
> From: abel.sego...@ac-poitiers.fr
> To: prog@fr.openoffice.org
> Subject: [prog] impression
>
> Bonjour,
>
> Je voudrais écrire une macro pour imprimer des feuilles calc de la
> feuille 1 à une feuille dont le numéro sera à récupérer dans une cellule.
> Avez-vous déjà vu quelque chose de ressemblant qui puisse m'aider.
> En vous remerciant.
> Abel
>
>
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org
> For additional commands, e-mail: prog-h...@fr.openoffice.org
>
_________________________________________________________________
Consultez gratuitement vos emails Orange, Gmail, Free, ... directement dans
HOTMAIL !
http://www.windowslive.fr/hotmail/agregation/
