Discussion :

[Freud44]

Bonjour,

J'utilise la fonction Sheets().PrintOut Copies:=1 avec un Array qui contient la liste des sheets à imprimer.

cela fonctionne excepté que cela m'imprime aussi la feuille sur laquelle je suis en train de travailler.

comment désactiver la feuille active et donc n'imprimer que les feuilles contenues dans mon array ?

merci d'avance,

[aalex_38]

Bonjour,


Difficile de répondre comme ça, tu pourrais nous montrer le code ?

[Freud44]

Désolé, en gros mon code ressemble à ca...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
 
For p = 5 To p + iLines
    If Worksheets("CHECK PROCEDURE").Range("L" & p).Value = myPassportToPrint Then
        myArrayList(i) = Worksheets("CHECK PROCEDURE").Range("M" & p).Value
        i = i + 1
    End If
Next p
 
Application.EnableEvents = False
Sheets(myArrayList).PrintOut Copies:=1
Application.EnableEvents = True
end sub

En gros on a un tableau excel avec 3 feuilles.
On est en train de lire les données de la feuille 3 et on demande à imprimer la feuille 1 et 2, cela ajoute le nom des feuilles dans mon arrayList.

L'impression se lance mais cela imprime la feuille 3 (celle d'ou est partie la demande d'impression...) avec les autres, chose que je n'ai pas besoin.

Je ne sais pas donc comment je peux faire comprendre à la macro qu'il ne faut pas imprimer la feuille active, mais uniquement les autres.

[Freud44]

J'ai modifié mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Application.EnableEvents = False
 
Sheets(myArrayList).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
 
'Sheets(myArrayList).PrintOut Copies:=1
 
Application.EnableEvents = True

Ce qui en gros ne sélectionne que les feuilles que je choisi via mon interface et je n'ai plus la feuille active.

Par contre il me les imprime 2 fois....what else ?

[Freud44]

Problème résolu,
il suffit d'enlever la ligne ActiveWindow.SelectedSheets.PrintOut Copies:=1

Comme je travaille dans une fonction BeforePrint, l'impression est déja lancée...

[aalex_38]

Alors ça c'st bien, tu répond tout seul à tes problèmes