Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Impression Continu

  • Initiateur de la discussion Salisa
  • Date de début
S

Salisa

Guest
Salut;
Mon probleme c'est que je voudrais imprimer une page de 02 lignes (20) fois, en continu sans saut de pages, et en laissant quelques mm entre chaque impression.
Merci
 

Davidc57

XLDnaute Occasionnel
Bonsoir Salisa,

Ton principal problème c'est de pas en dire suffisant aux XLDnautes pour qu'il puissent te venir en aide.

C'est quoi imprimer un page de 02 lignes (20) fois ?

Faut faire des efforts de temps en temps.
 
S

Salisa

Guest
Ok voila [file name=imprimer.zip size=2229]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/imprimer.zip[/file]
 

Pièces jointes

  • imprimer.zip
    2.2 KB · Affichages: 21
  • imprimer.zip
    2.2 KB · Affichages: 18
  • imprimer.zip
    2.2 KB · Affichages: 19
S

Salisa

Guest
Ok voila [file name=imprimer_20060512222548.zip size=2229]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/imprimer_20060512222548.zip[/file]
 

Pièces jointes

  • imprimer_20060512222548.zip
    2.2 KB · Affichages: 9

Bricofire

XLDnaute Impliqué
Bonsoir salisa, davidc57,

Salisa, ton approche ne me semble pas logique dans l'état actuel de mes connaissances, quand tu demandes une impression en x exemplaires, je ne pense pas qu'on puisse gérer les sauts de pages des différents exemplaires, déjà que sur un classeur ça peut être coton..

Je te propose donc une autre approche, c'est d'automatiser ta recopie 19 fois avec les hauteurs de lignes. vois le classeur joint en
Feuil2 tu appuies sur CTRL+Maj+R. ensuite il faudra gérer ta pagination imprimante selon marges etc.. En mettant un saut de page manuel au bon endroit ça doit être bon.

La commande lance la macro suivante :

Sub Macro2()
Dim I As Integer

' Macro enregistrée le 12/05/2006 par Brico

Rows('2:5').Select
Selection.Copy
For I = 1 To 19
Range('A65536').End(xlUp)(4).Select
ActiveSheet.Paste
Next I
Application.CutCopyMode = False
End Sub


Bonne soirée,

Brico [file name=imprimer20.zip size=8090]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/imprimer20.zip[/file]
 

Pièces jointes

  • imprimer20.zip
    7.9 KB · Affichages: 19

Discussions similaires

Réponses
7
Affichages
471
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…