Selectionner et imprimer X fois avec macro

J

jp14

XLDnaute Barbatruc

• 26 Mars 2008

• #2

Re : Selectionner et imprimer X fois avec macro

Bonjour

Pour écrire la base de la macro il faut utiliser l'éditeur de macro.

Code:

For i= 1 to Range("I1")

code écrit avec l'éditeur de macro

Next i

A tester

JP

 

Vote positif 0 Vote négatif

ftho

XLDnaute Occasionnel

• 26 Mars 2008

• #3

Re : Selectionner et imprimer X fois avec macro

Bonsoir,

En supposant que la mise en page est prédéfinie et que l'on veut imprimer sur l'imprimante paramétrée par défaut

Code:

Sub imprimer()
Dim Xcopies As Byte
If Range("I1") = "" Then
MsgBox "Veuillez indiquer le nombre de copie"
Exit Sub
End If
Xcopies = Sheets(1).Range("I1").Value
With Sheets(1)
    .PageSetup.PrintArea = "$A$1:$H$25"
    .PrintOut Copies:=Xcopies, Collate:=True
End With
End Sub

Si la zone d'impression est prédéfinie également, on peut supprimer la ligne

Code:

.PageSetup.PrintArea = "$A$1:$H$25"

 

Vote positif 0 Vote négatif

FredB62

XLDnaute Nouveau

• 27 Mars 2008

• #4

Re : Selectionner et imprimer X fois avec macro

Merci la solution de ftho fonctionne impeccablement bien !
Par contre, y a t-il un truc pour que ça imprime sur une imprimante bien précise et qui n'est pas celle par défaut justement ?

Encore merci

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 28 Mars 2008

• #5

Re : Selectionner et imprimer X fois avec macro

Salut fredB62, jp14, ftho, le Forum

Ajoute cette ligne

Code:

Application.Dialogs(xlDialogPrinterSetup).Show

après End If

Bonne Journée

 

Vote positif 0 Vote négatif

ftho

XLDnaute Occasionnel

• 28 Mars 2008

• #6

Re : Selectionner et imprimer X fois avec macro

Voici un exemple pour définir l'imprimante

Code:

.PrintOut Copies:=Xcopies, Collate:=True, ActivePrinter:="\\server-tech\Printer+2_PCL_Color sur Ne09:"

Pour trouver le chemin et le nom de l'imprimante (par exemple : "\\server-tech\Printer+2_PCL_Color sur Ne09:") utilise l'enregistreur de macro, tu démarres l'enregistreur et tu envoies un document sur l'imprimante de ton choix.


Edit : salut Dull, je pensais être seul sur le forum à cette heure ci
Si tu veux laisser le choix de l'imprimante aux utilisateurs, utilises la ligne de code proposée par Dull

 

Dernière édition: 28 Mars 2008

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 28 Mars 2008

• #7

Re : Selectionner et imprimer X fois avec macro

Re ftho

salut Dull, je pensais être seul sur le forum à cette heure ci

Cliquez pour agrandir...

C'est que j'ai une petite avance sur toi...3 heures de différence avec la Capitale Belge

Bonne Journée

 

Vote positif 0 Vote négatif

FredB62

XLDnaute Nouveau

• 4 Avril 2008

• #8

Re : Selectionner et imprimer X fois avec macro

Bonjour
Réponse tardive mais pas pu repasser avant, désolé
Dès que je peux j'essaye tout ça et vous tien au courant
Merci à vous

A bientôt, et bon week-end

 

Vote positif 0 Vote négatif