GNT sans publicité, site mobile, fonctionnalitées exclusives...

nombre de copies

Le
Cyrille
Bonjour
comment déterminer en VBA le nombre de copies voulu pour l'impression d'une
ou plusieurs feuilles d'un meme classeur sans etre obligé de lancer
l'impression dans la meme instruction

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:úlse, Collate:= _
True
Cette instruction imprie en meme temps

merci d'avance et bonne année à toutes et à tous
Lire les 9 réponses

Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FFO
Le #18324601
Salut à toi

Et pouquoi ne pas faire appel à une variable ainsi :

Nombre = 10

ActiveWindow.SelectedSheets.PrintOut Copies:=Nombre, Preview:úlse,
Collate:=True

Ainsi tu détermines avec la variable Nombre le nombre de copie avant
l'impression

Celà devrait te convenir
Dis moi !!!!
Cyrille
Le #18324591
Non je veux determiner le nombre de copies sans lancer l'impression, pour
qu'à chaque fois que j'utiliserais le fichier excel il soit deja pret à
imprimer avec X copies de prérégler
merci


"FFO" a écrit :

Salut à toi

Et pouquoi ne pas faire appel à une variable ainsi :

Nombre = 10

ActiveWindow.SelectedSheets.PrintOut Copies:=Nombre, Preview:úlse,
Collate:=True

Ainsi tu détermines avec la variable Nombre le nombre de copie avant
l'impression

Celà devrait te convenir
Dis moi !!!!



michdenis
Le #18324991
Tu copies ce qui suit dans le ThisWorkbook de ton classeur
et tu détermines le nombre de copies pour ce classeur en
remplaçant 10 par la quantité voulue.

À chaque fois que tu lanceras l'impression de ce classeur
tu auras toujours le même nombre de copies.

'-----------------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim Sh As Worksheet
Dim NbCopies As Integer
NbCopies = 10
For Each Sh In ActiveWindow.SelectedSheets
Sh.PrintOut Copies:=NbCopies, Preview:úlse, _
Collate:=True
Next
Cancel = True
End Sub
'-----------------------------------------



"Cyrille" news:
Bonjour
comment déterminer en VBA le nombre de copies voulu pour l'impression d'une
ou plusieurs feuilles d'un meme classeur sans etre obligé de lancer
l'impression dans la meme instruction

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:úlse, Collate:= _
True
Cette instruction imprie en meme temps

merci d'avance et bonne année à toutes et à tous
Cyrille
Le #18325101
Je suis encore désolé mais

Je ne veux pas que la quantité de copies soit déterminé au moment de
l'impression. Je veux juste déterminer le nombre de copies sans lancer
l'impression.
merci

"michdenis" a écrit :

Tu copies ce qui suit dans le ThisWorkbook de ton classeur
et tu détermines le nombre de copies pour ce classeur en
remplaçant 10 par la quantité voulue.

À chaque fois que tu lanceras l'impression de ce classeur
tu auras toujours le même nombre de copies.

'-----------------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim Sh As Worksheet
Dim NbCopies As Integer
NbCopies = 10
For Each Sh In ActiveWindow.SelectedSheets
Sh.PrintOut Copies:=NbCopies, Preview:úlse, _
Collate:=True
Next
Cancel = True
End Sub
'-----------------------------------------



"Cyrille" news:
Bonjour
comment déterminer en VBA le nombre de copies voulu pour l'impression d'une
ou plusieurs feuilles d'un meme classeur sans etre obligé de lancer
l'impression dans la meme instruction

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:úlse, Collate:= _
True
Cette instruction imprie en meme temps

merci d'avance et bonne année à toutes et à tous




michdenis
Le #18325071
Faut savoir ce que l'on veut dans la vie !

Si tu veux imprimer x copies de ton fichier
à chaque impression...c'est la façon de procéder.

la procédure soumise ne lance pas l'impression en soi...
mais si tu lances l'impression, tu auras le nombre de
copies que tu as au préalable déterminé.

L'autre alternative, tu t'adressess au Mgr qui sillonnent
ce forum... ils ont peut être en contact avec l'au-delà !!!



"Cyrille" news:
Je suis encore désolé mais

Je ne veux pas que la quantité de copies soit déterminé au moment de
l'impression. Je veux juste déterminer le nombre de copies sans lancer
l'impression.
merci

"michdenis" a écrit :

Tu copies ce qui suit dans le ThisWorkbook de ton classeur
et tu détermines le nombre de copies pour ce classeur en
remplaçant 10 par la quantité voulue.

À chaque fois que tu lanceras l'impression de ce classeur
tu auras toujours le même nombre de copies.

'-----------------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim Sh As Worksheet
Dim NbCopies As Integer
NbCopies = 10
For Each Sh In ActiveWindow.SelectedSheets
Sh.PrintOut Copies:=NbCopies, Preview:úlse, _
Collate:=True
Next
Cancel = True
End Sub
'-----------------------------------------



"Cyrille" news:
Bonjour
comment déterminer en VBA le nombre de copies voulu pour l'impression
d'une
ou plusieurs feuilles d'un meme classeur sans etre obligé de lancer
l'impression dans la meme instruction

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:úlse, Collate:=
_
True
Cette instruction imprie en meme temps

merci d'avance et bonne année à toutes et à tous




Publicité
Suivre les réponses
Poster une réponse
Anonyme