Vba problème d'impression

[Arpette]

Bonsoir, j'ai un bouton qui lance une macro. Cette macro selectionne toutes les feuilles du fichier et ouvre la boite de dialogue d'impression. Le problème est que mes feuilles sortent dans n'importe quel ordre, alors qu'en prévisualisation j'ai bien 1 de x, 2 de x etc...
Merci de votre aide

 Option Base 1
Sub Button15_Click()
Dim i As Integer, MonArray()
ReDim MonArray(Worksheets.Count)
For i = 1 To Worksheets.Count
MonArray(i) = Sheets(i).Name
Next i
Sheets(MonArray).Select
Application.Dialogs(xlDialogPrint).Show
End Sub

 

[Guest]

Re : Vba problème d'impression

Bonjour Arpette,

Pour ton problème d'impression, je ne sais pas mais pour sélectionner toutes les feuilles:

worksheets.Select

suffit.

A+

 

[Arpette]

Re : Vba problème d'impression

Bonjour Arpette,

Pour ton problème d'impression, je ne sais pas mais pour sélectionner toutes les feuilles:

worksheets.Select

suffit.

A+

Bonsoir Hasco et merci pour cette réponse rapide, simple et efficace. Mais mes feuilles sortes toujours de façon aléatoire.
Merci encore
@+

 

[Arpette]

Re : Vba problème d'impression

Bonsoir Hasco et merci pour cette réponse rapide, simple et efficace. Mais mes feuilles sortes toujours de façon aléatoire.
Merci encore
@+

Rebonsoir à tous, personne à une idée d'où vient mon problème ?
Merci pour votre aide

 

[Staple1600]

Re : Vba problème d'impression

Bonsoir



A tout hasard, essaie avec ce code
(tout frais pondu par l'enregistreur de macro)

Sub Macro1()
ActiveWorkbook.PrintOut Copies:=1, Preview:=[COLOR=Red]True[/COLOR], Collate:=True
End Sub

Change le True de Preview en False pour une impression sans aperçu.

 

[Arpette]

Re : Vba problème d'impression

Bonsoir



A tout hasard, essaie avec ce code
(tout frais pondu par l'enregistreur de macro)

Sub Macro1()
ActiveWorkbook.PrintOut Copies:=1, Preview:=[COLOR=Red]True[/COLOR], Collate:=True
End Sub

Change le True de Preview en False pour une impression sans aperçu.

Merci Staple, mais pas mieux, mes feuilles sortent toujours de la même façon(la 2 puis la 8 puis la 1 etc..)
Merci pour ton aide
@+

 

[Arpette]

Re : Vba problème d'impression

Merci Staple, mais pas mieux, mes feuilles sortent toujours de la même façon(la 2 puis la 8 puis la 1 etc..)
Merci pour ton aide
@+

Bonkour à tous, quelqu'un aurait il une idée.
Merci pour votre aide.

 

[chris]

Re : Vba problème d'impression

Bonjour

Si l'aperçu est dans le bon ordre, je pencherais pour une mauvais paramétrage de l'imprimante : certaines permettent des assemblages type livret par exemple qui modifient l'ordre.

As-tu un logiciel type PDF creator pour tester avec une sortie sur une autre imprimante ?

 

[Staple1600]

Re : Vba problème d'impression

Bonjour



Pour t'en dire plus, il faudrait voir la structure de ton classeur


La macro dans mon précédent message (dans l'aperçu avant impression) fait défiler les feuilles dans ce sens (Feuil1, Feuil2, Feuil3 ... etc)
Mais j'ai tester avec des feuilles ne contenant qu'une page par feuille.

EDITION: bonjour chris

 

[Arpette]

Re : Vba problème d'impression

Bonjour



Pour t'en dire plus, il faudrait voir la structure de ton classeur


La macro dans mon précédent message (dans l'aperçu avant impression) fait défiler les feuilles dans ce sens (Feuil1, Feuil2, Feuil3 ... etc)
Mais j'ai tester avec des feuilles ne contenant qu'une page par feuille.

EDITION: bonjour chris

Bonjour à tous les deux, pour Chris non je n'ai pas PDF créator, mais si j'imprime un autre fichier pas de problème. Pour Staple, mes feuilles contiennent une seule page. A savoir que j'ai du reclasser toutes les car la page 1 était sur la feuille 5, la 2 sur 1 etc... et pour l'impression il y avait le code ci-dessous. J'ai remis tout dans l'ordre pour ne pas à avoir à nommer les pour imprimer. Je ne sais pas si je m'explique bien.
Merci pour votre aide
Voici l'ancien code

Sub Imp_rapport()

    Range("A1").Select
    Sheets(Array("Page 1", "Page 2", "Page 3", "Page 4", "Page 5", "Page 6", "Page 7", "Page 8", "Page 9", "Page 10")).Select
    Sheets("Page 1").Activate
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    
End Sub

 

[Arpette]

Re : Vba problème d'impression

Bonjour à tous les deux, pour Chris non je n'ai pas PDF créator, mais si j'imprime un autre fichier pas de problème. Pour Staple, mes feuilles contiennent une seule page. A savoir que j'ai du reclasser toutes les car la page 1 était sur la feuille 5, la 2 sur 1 etc... et pour l'impression il y avait le code ci-dessous. J'ai remis tout dans l'ordre pour ne pas à avoir à nommer les pour imprimer. Je ne sais pas si je m'explique bien.
Merci pour votre aide
Voici l'ancien code

Sub Imp_rapport()

    Range("A1").Select
    Sheets(Array("Page 1", "Page 2", "Page 3", "Page 4", "Page 5", "Page 6", "Page 7", "Page 8", "Page 9", "Page 10")).Select
    Sheets("Page 1").Activate
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    
End Sub

Personne pour m'aider😕
Bonne journée quand même

 

[chris]

Re : Vba problème d'impression

Bonjour
Bise à Staple

Il me semble que même si on défini un array, les onglets s'impriment dans l'ordre où ils sont dans le classeur.

Sans voir ton classeur et sans test vers une autre imprimante, on ne pourra t'aider davantage.

Si tu sélectionnes tes onglets à la main et les imprimes, il se passe quoi ?

 

[Arpette]

Re : Vba problème d'impression

Bonjour
Bise à Staple

Il me semble que même si on défini un array, les onglets s'impriment dans l'ordre où ils sont dans le classeur.

Sans voir ton classeur et sans test vers une autre imprimante, on ne pourra t'aider davantage.

Si tu sélectionnes tes onglets à la main et les imprimes, il se passe quoi ?

Re, oui si j'imprime à la main c'est pareil, j'ai essayé sur une autre imprimante idem. Je te joints mon fichier, fais pas attention à la tête qu'il a, pour l'envoyer j'ai du supprimer pas mal de chose.
Merci pour ton aide.

 

[Arpette]

Re : Vba problème d'impression

Bonjour le forum, toujours pas d'idée,je commence à désespérer.
Merci pour votre aide

 

[Guest]

Re : Vba problème d'impression

Bonjour,

En dernier ressort tu peux essayer de les envoyer 1 à 1 à l'imprimante.
genre:

for each sh in WorkSheets
   Sh.PrintOut
Next

A+