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
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