OVH Cloud OVH Cloud

Imprimer automatiquement une page à la fois

3 réponses
Avatar
Didier
Bonjour,

pour cr=E9er des PDF =E0 partir d'un fichier Excel comprenant=20
95 pages s=E9par=E9es par des sauts de page, je suis oblig=E9=20
de faire 95 fois "Imprimer" de page "1" =E0 page "1",=20
sauvegarder sous "01.pdf", et de recommencer pour la page=20
2, la 3, etc...

Y a-t-il un moyen d'automatiser cette manip' ?

Merci beaucoup !

3 réponses

Avatar
RL
bjr
je viens d'essayer avec 4.0 avec distiller et çà passe en global...
mystère

didier

"Didier" a écrit dans le message de
news:12a5901c3f66e$0d6a6da0$
Bonjour,

pour créer des PDF à partir d'un fichier Excel comprenant
95 pages séparées par des sauts de page, je suis obligé
de faire 95 fois "Imprimer" de page "1" à page "1",
sauvegarder sous "01.pdf", et de recommencer pour la page
2, la 3, etc...

Y a-t-il un moyen d'automatiser cette manip' ?

Merci beaucoup !
Avatar
Frédéric Sigonneau
Bonjour,

As-tu essayé OpenOffice ?
OpenOffice.org 1.1 crée des pdf à partir de classeurs Excel en conservant les
sauts de page existants, et en 'utilisant' toutes les feuilles du classeur.

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


Bonjour,

pour créer des PDF à partir d'un fichier Excel comprenant
95 pages séparées par des sauts de page, je suis obligé
de faire 95 fois "Imprimer" de page "1" à page "1",
sauvegarder sous "01.pdf", et de recommencer pour la page
2, la 3, etc...

Y a-t-il un moyen d'automatiser cette manip' ?

Merci beaucoup !


Avatar
Elder
Bonjour,

J'ai fait une macro qui imprime page par page pour une application celà
devrait te convenir. A adapter selon ton application:

Sub imprime()
Application.ScreenUpdating = False
Sheets("nom de la feuille").Visible = True
Sheets("nom de la feuille").Select
' ensuite tu donne le point haut gauche et le point haut bas de ta feuille
Range("A1:K70").Select
Selection.PrintOut Copies:=1, Collate:=True
' tu fait la même chose pour les autres pages pages et tu met tout à la
suite.
' la macro sera assez longue à réaliser mais après tout se fera
automatiquement
Range("A71:K120").Select
Selection.PrintOut Copies:=1, Collate:=True
' troisième pae
Range("A120:K170").Select
Selection.PrintOut Copies:=1, Collate:=True
Application.ScreenUpdating = True
End Sub

Normalement ça devrait marcher !!!

Si tu n'y arrive pas reposte
"Didier" a écrit dans le message de
news:12a5901c3f66e$0d6a6da0$
Bonjour,

pour créer des PDF à partir d'un fichier Excel comprenant
95 pages séparées par des sauts de page, je suis obligé
de faire 95 fois "Imprimer" de page "1" à page "1",
sauvegarder sous "01.pdf", et de recommencer pour la page
2, la 3, etc...

Y a-t-il un moyen d'automatiser cette manip' ?

Merci beaucoup !