Lancer un impression multiple

Bonjour a tous et a toutes;

j’aimerai a l'aide d'un bouton lancer un panneau qui me donnera le choix des feuilles a imprimer, le tout en sachant que chaque feuille a une zone d’impression prédéfini propre a elle, dans mon exemple la zone est de taille identique sauf qu'elle peut varier dans les classeur de la vie quotidienne.

j'ai fait le plus FACILE du travail mais le rude reste a venir et je ne sais absolument pas comment procéder.

merci de votre aide d'avance , je reste a disposition !

Bonjour Addou,

Voici le code à mettre dans ton USF

Private Sub CommandButton1_Click()
  Dim Inc As Integer
  For Inc = 1 To 5
    If Me("CheckBox" & Inc).Value = True Then
      ' Impression de la feuille
      Sheets("Feuil" & Inc).PrintOut
      ' Décocher la case
      Me("CheckBox" & Inc).Value = False
    End If
  Next Inc
End Sub

A+

cool Merci beaucoup BrunoM45 c'est parfait !

ah une dernière chose c'est ma faute fallait que j'y pense des le début , mais comment choisir le nombre de copie a imprimé ? j'ai rajouté une toupie et une zone de texte mais comment lié le tout ?

Salut je fait juste remonté un peu le poste . merci

Re,

Si tu veux utiliser un SpinButton il faut gérer les évènements qui vont avec, voir fichier joint

Sinon, la méthode PrintOut est :

PrintOut( From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName, IgnorePrintAreas )

Donc c'est le 3ème argument qui nous intéresse

A+

ah c'est parfait.

merci beaucoup que ce soit pour la réponse que pour les explication qui vont avec .infiniment merci