imprimer sans les pages blanches

Version imprimable

25/08/2006, 20h55
SAINT-BERNARD

imprimer sans les pages blanches

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
25/08/2006, 20h58
SfJ5Rpw8

et sous qu'elle application tourne tpn code
25/08/2006, 21h00
SAINT-BERNARD

vba excel 2003
26/08/2006, 13h00
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?
26/08/2006, 20h24
SAINT-BERNARD

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

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
26/08/2006, 20h32
SfJ5Rpw8
Citation:

Envoyé par SAINT-BERNARD

....
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...:mouarf: ..

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:

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

désolé ,mais ca sépare à l'impression

ça me fait autant d'impression que de feuille a imprimer
ou alors je fait faut

Code:

1
2
3
4
5
6
 Sub Macro19()
    Sheets(Array("PANNEAUX", "MASSIF", "PLACAGE", "STRATIFIE", "FERREMENTS", "M2")). _
        Select
    Sheets(Array("PANNEAUX", "MASSIF", "PLACAGE", "STRATIFIE", "FERREMENTS", "M2")).PrintOut Copies:=1, ActivePrinter:= _
        "CutePDF Writer sur CPW2:", Collate:=True 
End Sub

26/08/2006, 20h46
SAINT-BERNARD

concernant l'impression le programme est prêt et imprime, et agrafe les pages dans l'ordre que je souhaite, le seul problème que j'aie, c'est qu'il y a des feuilles blanches qui font aussi partie de l'impression et je voudrais les supprimer

tiens tu peu t'inspirer de ce code ... :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub SelectImpression()
  Dim rImp As Range
  Dim r As Range
  Dim i As Integer
  Dim iLigne As Integer
  Dim sh As Worksheet 'Feuille à imprimer
    Const NB_COL = 17 ' Nombre de colonne par tableaux
  Set sh = ActiveSheet 'On imprime la feuille active
  For i = 1 To 72 Step NB_COL 'En considérant 17 colonnes par tableaux..
    iLigne = sh.Cells(65535, i).End(xlUp).Row
    Set r = sh.Range(sh.Cells(1, i), sh.Cells(iLigne, i + NB_COL))
    If i = 1 Then
     Set rImp = r
    Else
     Set rImp = Union(rImp, r)
    End If
  Next
  sh.PageSetup.PrintArea = rImp.Address
End Sub

j'ai considéré que chacun de tes tableaux avaient une largeur de 17 colonnes... , et pour la zone d'impression , je sélectionne pour chacun d'eux de la premiére ligne, à la derniére ligne dont la 1° colonne du tableau n'est pas vide...

26/08/2006, 22h29
SAINT-BERNARD

merci, c'est exactement ça, mais il y a encore un petit souci
après avoir mis la mise en page avec 17 colonnes
http://cjoint.com/?iAwHp0BAj7 (j'ai pose la macro que tu m'as fournie)

je vais voir pour impressions et il y a des cellules décalée et encore des pages blanches

pour ton info je n'ai pas toujours le même nombres de feuilles pour l'impression
ça varie de 1 a 8

merci de ton aide
26/08/2006, 22h39
SfJ5Rpw8
pour le code précédent laisse NB_COL à 17 ...et modifie :
Code:

1 2 Set r = sh.Range(sh.Cells(1, i), sh.Cells(iLigne, i + NB_COL - 1))
Citation:

Envoyé par SAINT-BERNARD

pour ton info je n'ai pas toujours le même nombres de feuilles pour l'impression
ça varie de 1 a 8

et tu le sais comment le nombre de feuilles...?

tu peu peu être remplacer la boucle for next par un while...wend
Code:

1 2 3 4 5 6 7 8 i = 1 While sh.Cells(1, i) <> "" ... ... ... i = i + 17 Wend
26/08/2006, 22h44
SAINT-BERNARD

coool, ça fonctionne

pour le nombre de feuille je le sais au moment d'imprimer pas avant
et de plus je ne vois pas ma feuille d'impression
26/08/2006, 22h51
SfJ5Rpw8

Citation:

Envoyé par SAINT-BERNARD

coool, ça fonctionne

pour le nombre de feuille je le sais au moment d'imprimer pas avant
et de plus je ne vois pas ma feuille d'impression

..eu finalement on en est ou ... tu as essayé le While...?

ça doit donner ça? mais me dit erreur , j'ai du mal positionner une ligne ???

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 Sub SelectImpression()
  Dim rImp As Range
  Dim r As Range
  Dim i As Integer
  Dim iLigne As Integer
  Dim sh As Worksheet 'Feuille à imprimer
    Const NB_COL = 17 ' Nombre de colonne par tableaux
  Set sh = ActiveSheet 'On imprime la feuille active
  For i = 1
  While sh.Cells(1, i) <> ""
    iLigne = sh.Cells(65535, i).End(xlUp).Row
    Set r = sh.Range(sh.Cells(1, i), sh.Cells(iLigne, i + NB_COL - 1))
    If i = i + 17
     Set rImp = r
    Else
     Set rImp = Union(rImp, r)
    End If
  Wend
  sh.PageSetup.PrintArea = rImp.Address
End Sub

26/08/2006, 23h04
SAINT-BERNARD

j'apprend tous les jours merci
26/08/2006, 23h04
SfJ5Rpw8
non ... la ligne For était à remplacer par :
Code:

1 2 3 i = 1 While sh.Cells(1, i) <> ""
et la ligne Next par :
Code:

1 2 3 i = i + 17 Wend
le reste ... ne bouge pas ...

[Edit ]ou plutôt i + NB_COL ( il faut pensere à utilise la constante)...
28/08/2006, 17h30
SAINT-BERNARD

la macro fonctionne à merveille:lol: :lol:
merci à bbil pour ton aide