Selectionner et imprimer X fois avec macro

[FredB62]

Bonjour à tous
Je souhaiterai sélectionner une plage de cellule (A1 à H25) et l'imprimer autant de fois que le nombre inscrit dans la cellule I1 (nombre qui changera en fonction du nombre de pages nécessaire bien entendu ).
Tout ça automatiquement à l'aide d'un bouton et sa macro, et sur une imprimante précise (il y a plusieurs imprimantes de connecté à l'ordinateur)
Est-ce faisable ?
Merci de vos réponses

Fred

 

[jp14]

Re : Selectionner et imprimer X fois avec macro

Bonjour

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

For i= 1 to Range("I1")

code écrit avec l'éditeur de macro

Next i

A tester

JP

 

[ftho]

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

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

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

 

[FredB62]

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

 

[Dull]

Re : Selectionner et imprimer X fois avec macro

Salut fredB62, jp14, ftho, le Forum

Ajoute cette ligne

Application.Dialogs(xlDialogPrinterSetup).Show

après End If

Bonne Journée

 

[ftho]

Re : Selectionner et imprimer X fois avec macro

Voici un exemple pour définir l'imprimante

.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

 

[Dull]

Re : Selectionner et imprimer X fois avec macro

Re ftho

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

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

Bonne Journée

 

[FredB62]

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