Discussion :

[SAINT-BERNARD]

bonsoir,
petit problème pour imprimer.

je voudrais imprimer sans les pages blanches un dossier qui n'est jamais le même
que ce soit en ligne ou en colonne

de plus je n'aurais pas accès à la page une fois la macro faite, pour délimiter les sauts de pages,et la zone d'impression

je mets un model en ligne pour rendre compte (exemple),http://cjoint.com/?izu7sjJWDU

les feuilles sont importées de plusieurs autre pages
j'ai l'obligation de mettre mes pages côte à côte par rapport au largeur des colonnes!

je recherche un solution pour que les pages vides ne s'imprime pas du tout, avec un code vba,

merci de votre aide

[SfJ5Rpw8]

et sous qu'elle application tourne tpn code

[SAINT-BERNARD]

vba excel 2003

[AlainTech]

Déjà, pour simplifier les choses, j'aurais fait une feuille par bordereau.

Nettement plus facile à gérer, tant pour l'affichage que pour l'impression.

Peux-tu l'envisager?

[SAINT-BERNARD]

bonjour,
je ne saisis pas ceux que veut dire 1 feuille par bordereaux

si ca veut dire que chaque feuille à imprimer est une feuille à part,
du genre liste1 sur feuille1, liste2 sur feuille2 etc...
oui c'est déjà comme ça sur mon programme
malheureusement ça me permet pas d'imprimer et d'agrafer le feuillet ensemble automatiquement , ceux que j'avais pas avant.
puisque dès que tu change de feuille c'est une nouvelle impression!
si je ne me trompe pas


j'ai peut être trouvé un solution, mais j'aurais besoin d'aide pour écrire cette macro

je voudrais faire comme ca:
si dans la page 1 , il y a une cellulesactive, selectionner toutes la pages1
si dans la page2, il y a une cellulesactive, selectionner toutes la pages2

ou si dans la feuille il y a des cellules active selectionner toutes les pages ou ce trouvent ces cellules
(le tout sans mise en pages, puisque les lignes et les colonnes sont variable)

merci

[SfJ5Rpw8]

....
si ca veut dire que chaque feuille à imprimer est une feuille à part,
du genre liste1 sur feuille1, liste2 sur feuille2 etc...
oui c'est déjà comme ça sur mon programme
malheureusement ça me permet pas d'imprimer et d'agrafer le feuillet ensemble automatiquement , ceux que j'avais pas avant.
puisque dès que tu change de feuille c'est une nouvelle impression!
si je ne me trompe pas.....

ben il te faut bien plusieurs pages si tu ve les agrafer... ..


sinon pour ne faire "q'une impression" de plusieurs feuilles de calculs excel .. suffit de sélectionner les feuilles à imprimer ( En cliquant sur chacun des onglets avec souris tous en maintenat la touche contrôle actionnée...penser ensuite à dissociée les feuilles...)

ce qui en VBA devrai donner quelque chose du genre :

Code :

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

1
2
3
 
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).PrintOut Copies:=1, ActivePrinter:= _
        "CutePDF Writer sur CPW2:", Collate:=True