Imprimer Nombre de pages

[lamho27]

bonsoir le forum
je voudrais impression 2 feuilles ( 1eme feuil avec quantité de page indiquer de cellule O11 ), la 2eme feuil que une seule page ; tout en 2 exemplaire
je fais un macro , mais il imprime tout
Sub Macro1()
'

'
ActiveWindow.SelectedSheets.PrintOut Copies:=Range("R11").Value, Collate:=True

'
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
Sheets("Complet").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
Sheets("Incomplet").Select

End Sub
merci d'avance

 

[Papou-net]

Re : Imprimer Nombre de pages

Bonjour lamho27,

Voici ton fichier modifié, je pense qu'il doit répondre à ton souhait.

Sur la feuille "Complet", il est inutile de copier x fois le bordereau d'expédition : la macro se charge de numéroter le bordereau à chaque impression, puis remet cette cellule à 0 (idem sur la feuille "Incomplet".

J'ai fait l'essai, en remplaçant .PrintOut Copies:=2, Collate:=True par .PrintPreview et ça fonctionne.

Espérant avoir répondu.

Cordialement.