Excel VBA - impression

[netalf]

Bonjour,

j'utilise Excel à partir d'un ERP pour pouvoir réaliser des étiquettes d'expédition, que j'imprime, de 1 à 100 par exemple. Le pb est que j'envoie les pages 1 à 1, elle sont spoolées mais s'impriment dans le désordre à l'arrivée.

Voici le code basique de mon bout de programme :

Dim NBPAGE, COMPTEUR, valeur As Integer

NBPAGE = Range("E9")
NBPAL = Range("E8")
valeur = 1

For COMPTEUR = 1 To NBPAGE
Range("G18").Value = valeur
valeur = valeur + 1
If valeur > NBPAL Then
Range("G40").Value = ""
Else
Range("G40").Value = valeur
End If
valeur = valeur + 1

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next

Une autre bout de pb est que j'imprime depuis un poste, dopnt l'applciation ERP + Excel est gérée à distance (via CITRIX), et que c'est le spooler distant qui me renvoie les feuilles dans le désordre.

Comment faire pour imprimer dans un fichier toutes les pages, puis imprimer ce fichier une fois toutes les étiquettes envoyées ?

Merci de votre aide

 

[Excel-lent]

Re : Excel VBA - impression

Bonsoir et bienvenu sur le forum netalf,

De temps en temps, suivant les entreprises, dans la liste des imprimantes, l'une d'elle s'appelle : "pdf..." ou "reader..." un truc dans ce genre!

Au lieu d'imprimer, cela génère un fichier pdf. Puis tu peux imprimer ce dernier! Ainsi toutes tes étiquettes n'étant plus 40.000 fichiers, mais un seul, aucune autre impression ne s'intercalera entre les tiennes.

Bonne soirée

 

[netalf]

Re : Excel VBA - impression

Ok je vais essayer, je n'y avais pas pensé à cette solution.