Imprimer depuis un module VBA Résolu/Fermé

Question

Bonjour, 
Bonjour à tous,
J'ai créé un classeur Excel dans lequel j'ai un module Vba pour l'impression. Ce classeur est à la disposition de plusieurs dizaines d'utilisateurs. Il fonctionne très bien et il est apprécié de tous. Cependant on me demande de l'améliorer en permettant de choisir l'imprimante (dans le cas ou plusieurs imprimantes sont reliées à l'ordinateur) ou de choisir la qualité d'impression. Pour cela je souhaiterais que dans ma macro impression ci-dessous faire appel et afficher la boîte de dialogue «Imprimer» mais je n'y parviens pas !

Sub ImpressionTableau()
    Dim p As Integer
    'Application.ScreenUpdating = False                  ' Bloque le rafraîchissement de l'écran.
    'Application.EnableEvents = False                    ' Arrêt de la scrutation.
    If Sheets("Bordereau").Range("A28").Value = "" Then             ' Test si la 1ere cellule utilisée, A28.
        MsgBox ("Le Tableau n'a pas été rempli !" & vbCrLf & " " & vbCrLf & "Il n'y a donc rien à imprimer."), vbCritical, "Fédération Trucmuche"
        Exit Sub
    End If
'Définit la zone complète
    Sheets("Tableau").PageSetup.PrintArea = "$A$1:$N$235"         ' Partie de la feuille utilisée.
    p = Nb_LigneBdx                                                   ' Saut à la fonction Nb_LigneBdx
    p = Nb_PagesBdx(p)                                              ' Saut à la fonction Nb_PagesBdxN2
    With Sheets("Tableau")
        .Visible = True
        .PrintOut from:=1, To:=p
        .Visible = False
    End With
     Application.ScreenUpdating = True           ' Rétablis le rafraîchissement de l'écran.
    Application.EnableEvents = True               ' Remise en service de la scrutation.
End Sub

' Calcule et renvois le N° de la dernière ligne non vide.
Function Nb_LigneBdx() As Integer
    Dim I As Integer
    For I = 28 To 235
        If Sheets("Tableau").Range("A" & I).Value = "" Then Exit For      ' Test la première cellule vide de la colonne A.
    Next I
    Nb_LigneBdx = I - 1
End Function

' Calcule et renvois le Nb de page.
Function Nb_PagesBdx(Lignes As Integer) As Integer
    Select Case Lignes
        Case 1 To 58: Nb_PagesBdx = 1
        Case 59 To 110: Nb_PagesBdx = 2
        Case 111 To 162: Nb_PagesBdx = 3
        Case 163 To 214: Nb_PagesBdx = 4
        Case Is > 214: Nb_PagesBdx = 5
    End Select
End Function
Indépendamment de cette modification le classeur et l'impression fonctionnent très bien.
Pouvez-vous m'aider ?
D'avance merci.
Mistral

michel_m · Answer

Bonjour, 

Pour choisir une imprimante 
Application.Dialogs(xlDialogPrint).Show
et tu as normalement le bouton "propriétés de l'imprimante" 

cette syntaxe ne marche peut-être pas en réseau (je suis en mono poste) dans ce cas il faudrait utiliser WMI... Tu dis. 
 Michel

Mistral_13200 · Answer

Bonjour Michel,

Merci pour ta réponse et pour ta rapidité.

J'ai fais un test sur un simple classeur et ça fonctionne correctement tout au moins pour les proprietés de l'imprimante. Il me reste à tester ça avec plusieurs imprimantes.
Par contre je n'arrive pas à intégrer cette ligne dans mon module tout en conservant le calcule du nombre de page à imprimer.
As-tu une idée
Cordialement
Mistral

Mistral_13200 · Answer

Re,

En fait j'ai beaucoup de difficullté pour comprendre tous les arguments (15 en tout) de l'instruction :

Application.Dialogs(xlDialogPrint).Show(, 2, [p], 7, , , , , , , , , , , 1)

J'arrive bien à valider le N° des pages à imprimer (de 2 à [p]) ainsi que le nombre d'exemplaire (7) mais je n'arrive pas à valider l'option "Pages(s)" et pourtant le mets bien le 15iem argument à 1.

Aurais-tu une idée ou une solution à me proposer.
Cordialement
Mistral

Le Pingou · Answer

Bonjour, 
Essayer avec ce code qui vous permet de choisir l'imprimante (clic OK pour valider le choix) : Application.Dialogs(Excel.xlBuiltInDialog.xlDialogPrinterSetup).ShowEt dans votre code vous récupérez le nom de l'imprimante active que vous placez comme argument supplémentaire de PrintOut .PrintOut from:=1, To:=p .....

Ou avec ceci:
Sub choix_imprimante 
imprimante = Application.Dialogs(xlDialogPrinterSetup).Show 
Application.ActivePrinter = imprimante 
End SubSalutations. 
Le Pingou

Mistral_13200 · Answer

Bonjour Le Pingou,
Tout d'abord merci te t'intéresser à mon problème.
J'ai voulu tester les deux solutions proposées mais je dois reconnaître que je m'y perds un peu.
Dans la première j'ai bien la fenêtre choix de l'imprimante qui s'ouvre, je peux effectivement la choisir et configurer l'impression avec la touche «Configurer» mais je ne vois pas comment récupérer le nom de l'imprimante ni comment l'insérer après.
Dans la seconde j'ai une erreur 1004 : La méthode ActivePrinter de l'objet Application a échoué.
Peux-tu m'aider Stp.
Cordialement
Mistral

Le Pingou · Answer

Bonjour Mistral_13200,
Oui je peux vous aider, difficile de répondre sans voir le code que vous avez créé.. !

Note: concernant la première, je n'ai pas dit la touche [Configurer] mais : clic OK pour valider le choix, se qui est différent.

Salutations.
Le Pingou

Mistral_13200 · Answer

Le Pingou,
	Pijaku

Bonjour à vous deux,

Merci de consacrer de votre temps à régler mon problème.

La totalité du code de ma macro est dans mon tout premier message. Je rappellerais simplement que ce code fonctionne parfaitement tel qu'il est. Par contre certains utilisateurs me demande de le modifier pour avoir le choix de l'imprimante et de la qualité d'impression.
J'ai bien compris qu'il fallait valider le choix de l'imprimante avec OK, je voulais simplement dire que l'on pouvait également intervenir sur les paramètres de l'imprimante si on le souhaitait.
C'est bien dans l'intégration de l'imprimante par défaut dans ma macro que je bute et c'est précisément là que j'ai besoin de votre aide.
Maintenant si vous estimez que l'instruction PrintOut n'est pas adaptée je n'ai rien contre le fait de changer mais je ne sais pas par quoi.
J'ai bien essaye :

Application.Dialogs(xlDialogPrint).Show(, 2, [p], 7, , , , , , , , , , , 1)
Mais là je bute sur la manière de valider l'option page de la fenêtre «Imprimer». Je sais récupérer le Nb de page et Nb d'exemplaire et cela est indispensable pour n'imprimer que le Nb de page nécessaire.

En tout cas un grand merci à vous deux.
Cordialement
Mistral

Le Pingou · Answer

Bonjour,
Oui mais se n'est pas le code avec la correction qui ne fonctionne pas.
Dans se cas, les lignes de code que vous devez avoir  juste après la ligne :
 p = Nb_PagesBdx(p) :
Application.Dialogs(Excel.XlBuiltInDialog.xlDialogPrinterSetup).Show
    Nom = ActivePrinter
    With Sheets("Tableau")
        .Visible = True
        .PrintOut from:=1, To:=p, ActivePrinter:=Nom
        .Visible = False
    End With
Remarque : dans la boite de dialogue vous choisissez l'imprimante et valider par OK.

michel_m · Answer

Bonjour à tous,

A tout Hasard
Je n"ai pas trouvé une aide sur tes 15 aguments (...?...)et je ne comprend pas ce 1.... quand tu parles de "pages", s'agit il bien de pages à l'intérieur d'une "feuille" excel ?

pour trouver le nombre de pages par feuvlle, j'ai trouvé cette instruction sur un autre site
ExecuteExcel4Macro("GET.DOCUMENT(50)")
et pour imprimer:
FeuilN.PrintOut From:=1 To:=ExecuteExcel4Macro("GET.DOCUMENT(50)"

mais....

Mistral_13200 · Answer

Bonjour Michel,

L'instruction :

Application.Dialogs(xlDialogPrint).Show(, 1, [p], 7, , , , , , , , , , , 1)

a 15 arguments de configuration possible qui sont :

range_num, from, to, copies, draft, preview, print_what, color, feed, quality, y_resolution, selection, printer_text, print_to_file, collate

J'arrive a configurer sans problème les pages que je souhaite imprimer (de 1 à p) et le nombre d'exemplaire à imprimer (7) voir l'exemple ci-dessus mais je n'arrive pas à valider l'option pages dans la partie "Etendue" de  la boîte dialogue Imprimer, je reste sur "Tout" en permanence. J'imprime donc toute la feuille feuille du classeur soit 25 pages.

Cordialement
Mistral

Le Pingou · Answer

Bonjour Mistral_13200, 
Une des solutions est ici : https://forums.commentcamarche.net/forum/affich-21020404-imprimer-depuis-un-module-vba#12 
Je l'ai testé et elle fonctionne. 
Est-il possible de savoir si chez vous c'est en ordre ? 
Salutations. 
Le Pingou

Mistral_13200 · Answer

parce que "p" est une variable, elle est le résultat du calcule du nombre de page à imprimer.

Pour être plus précis, dans la partie Etendue de la fenêtre Imprimer il y a deux options : "Tout" et "Pages(s)" je voudrais basculer de "Tout" vers "Pages(s)" et je n'y arrive pas.

Mistral_13200 · Answer

Re Le Pingou,

Cela semble effectivement fonctionner l'imprimante par défaut est bien reconnue. C'est déjà une bonne chose!
Par contre si je change la qualité d'impression ou si je choisi d'imprimer en N&B ou en couleur en utilisant le bouton "Configurer" de la fenêtre de dialogue rien ne se passe et pourtant je valide bien par Ok.
Mieux je dirais même que je garde les parametres d'impression du dernier parametrage manuel.
Je n'y comprends plus ruen....
Cordialement
Mistral

Le Pingou · Answer

Bonjour,
Eh oui, Il ne reste plus, visiblement plus facile à dire qu'à faire, a pouvoir modifier les paramètres d'impression tel que la qualité Normal/Brouillon ou encore N&B/Couleur et pour que cela fonctionne il faut passer les paramètres choisies à la procédure. 
Pouvez-vous mentionner exactement les paramètres qui seront autorisés pour l'utilisateur ?

Le Pingou · Answer

Bonjour Mistral_13200,
Je viens d'effectuer des tests, avec le code que je vous ai proposé, en changeant les diverses valeurs de configuration, noir/blanc, couleurs, orientation (Portrait/Paysage) etc. et tout fonctionne parfaitement avec le code tel quel.

Mistral_13200 · Answer

Bonjour Le Pingou,

J'ai moi aussi fait d'autres essais hier au soir sur un autre ordi et une autre imprimante et là j'ai effectivement pu changer la qualité d'impression et la couleur. Malheureusement au club je n'ai pas d'imprimantes en réseau...
Je vais regarder pourquoi sur mon imprimante couleur je reste en N&B???

Quand j'aurais réglé mon problème et si tu le permets, je reviendrais vers toi si j'ai d'autres questions.
Encore un grand merci à vous trois pour votre aide.
Cordialement
Mistral

PS : Je serais absent jusqu'au 21/03

Mistral_13200 · Answer

Re,

C'est exactement ce que je viens de faire et le problème persiste.
Ci-dessous le code complet avec lequel je fais mes tests et pour lequl je ne pense pas avoir commis d'erreur.

Sub ImpressionTableau()

    Dim p As Integer

    Application.ScreenUpdating = False                              ' Bloque le rafraichissement de l'écran.
    Application.EnableEvents = False                                ' Arret de la scrutation.

    If Sheets("Tableau").Range("A28").Value = "" Then               ' Test si la 1ere cellule utilisée, A28.
        MsgBox ("Le Tableau n'a pas été saisi !" & vbCrLf & " " & vbCrLf & "Il n'y a donc rien à imprimer."), vbCritical, "Fédération Trucmuche"
        Exit Sub
    End If

'Définit la zone complète
    Sheets("Tableau").PageSetup.PrintArea = "$A$1:$N$235"           ' Partie de la feuille utilisée.
    p = Nb_LigneBdx                                                 ' Saut à la fonction Nb_LigneBdx
    p = Nb_PagesBdx(p)                                              ' Saut à la fonction Nb_PagesBdx
    'p = 9
    
    If Application.Dialogs(Excel.XlBuiltInDialog.xlDialogPrinterSetup).Show = False Then
    GoTo Line1
    Else

    Nom = ActivePrinter
    With Sheets("Tableau")
        .Visible = True
        .PrintOut from:=1, To:=p, ActivePrinter:=Nom
        '.Visible = False 'A remettre dans la version difinitive.
    End With
    End If
    
Line1:

    Application.ScreenUpdating = True                               ' Rétablis le rafraichissement de l'écran.
    Application.EnableEvents = True                                 ' Remise en service de la scrutation.

 End Sub

' Calcule et renvois le N° de la dernière ligne non vide.
Function Nb_LigneBdx() As Integer
    Dim I As Integer
    For I = 28 To 235
        If Sheets("Tableau").Range("B" & I).Value = "" Then Exit For      ' Test la première cellule vide de la colonne A.
    Next I
    Nb_LigneBdx = I - 1
End Function
' Calcule et renvois le Nb de page.
Function Nb_PagesBdx(Lignes As Integer) As Integer
    Select Case Lignes
        Case 1 To 58: Nb_PagesBdx = 1
        Case 59 To 110: Nb_PagesBdx = 2
        Case 111 To 162: Nb_PagesBdx = 3
        Case 163 To 214: Nb_PagesBdx = 4
        Case Is > 214: Nb_PagesBdx = 5
    End Select
End Function

Si tu vois une anomalie merci de ma le signaler.
Me vider la tête ne me fera pas de mal...
Cordialement
Mistral

Le Pingou · Answer

Bonjour,
La partie qui touche l'imprimante est correcte. 
Pour éviter le [GoTo Line1] j'écrirais de cette manière :
If Application.Dialogs(Excel.XlBuiltInDialog.xlDialogPrinterSetup).Show = True Then
    Nom = ActivePrinter
    With Sheets("Tableau")
        .Visible = True
        .PrintOut from:=1, To:=p, ActivePrinter:=Nom
        '.Visible = False 'A remettre dans la version difinitive.
    End With
End If    
Note: pour votre imprimante, assurez-vous que la modification des paramètres soit prise en compte directement sans passé par la procédure VBA.

Mistral_13200 · Answer

Bonjour L e Pingou,

Je reviens  à la charge car ça ne fonctionne toujours pas. J'ai réinstallé mon imprimante est elle fonctionne normalement. Si je fais des essais d'impression manuellement par Fichier/Imprimer j'imprime bien en N&B ou en couleur selon mes choix. Idem pour la qualité d'impression Normal/Brouillon.

Par contre quand je fais des tests en utilisant la macro j'ai deux problèmes (A ce moment là l'imprimante est configurée couleur/Normal) :
1er essais : Je lance l'impression avec le bouton et je valide le choix par OK sans rien changer. L'impression est en N&B alors que l'imprimante était en couleur et qu'elle y est restée ! Pourquoi ?
2iem essais : Je lance l'impression et je configure l'impression en N&B puis je valide par OK. L'impression se fait bien en N&B (l'imprimante est OK vérification par Fichier/Imprimer) mais apparaît le 2iem problème, a savoir j'ai deux trait pointillé qui apparaissent sur le bord droit des cellules des colonnes G et N. Pourquoi ?
3iem essais : Je lance l'impression et je configure l'impression en Couleur puis je valide par OK. L'impression se fait en N&B alors que l'imprimante est bien passée en couleur (l'imprimante OK vérification par Fichier/Imprimer) !!!
Tous ces essais ont été fait sur le classeur dont le lien est ci-dessous :

http://www.cijoint.fr/cjlink.php?file=cj201103/cij3nbfyED.xls

Pouvez-vous m'aider car je n'y comprends vraiment plus rien.
Merci d'avance.
Cordialement
Mistral

Le Pingou · Answer

Bonjour,
Tout fonctionne correctement chez moi.
Avez-vous contrôlé votre macro pas à pas ?
Essayez aussi de désactiver l'événement : `EnableEvents' !

Mistral_13200 · Answer

Re,

Oui j'ai contrôlé ma macro en pas à pas, et je dirais même que je ne fais que ça...
Ou alors je m'y prends mal!
Mais tu n'as pas l'apparition des pointillés sur la feuille Menu après avoir modifié la configuration et fait l'impression?

Quand j'imprime manuellement, Fichier/Imprimer je fais ce que je veux de mes impression ce qui pour moi mets l'imprimante hors de cause.
Mais d'ou viens le problème quand j'utilise les macros?

Le Pingou · Answer

Bonjour,
Vous est-il possible, lors de l'exécution de votre macro pas à pas, de faire une copie d'écran pour chaque pas et de mettre les images sur un document Word et ensuite de le poster !
Ainsi j'aurai une vue du déroulement et peut-être une change de ... !

Mistral_13200 · Answer

Vous trouverez ci-dessous un lien vers ce que vous m'avez demandé.
J'espere avoir bien compris votre demande.

http://www.cijoint.fr/cjlink.php?file=cj201103/cijJt3UcZd.pdf

Le Pingou · Answer

Bonjour,
Merci pour l'information.
A première vue tout semble correct sauf un petit détail qui me manque. Voir la pièce jointe.
https://www.cjoint.com/?3dFu6xEHNgz

Mistral_13200 · Answer

Bonjour Le Pingou,

Vous trouverez avec le lien ci-dessous ce que vous m'avez demandé

http://www.cijoint.fr/cjlink.php?file=cj201104/cijkxWCX7U.pdf

Je précise que j'ai fais tous mes essais avec la même configuration de départ de mon imprimante. En effet entre chaque essais je remettais mon imprimante en Couleur et Normal  qui est la configuration standard, et je faisais une impression de contrôle qui elle était bonne.
Le problème semble se produire que dans un cas précis, c'est quand je demande une impression N&B et en brouillon.
Je ne comprends vraiment pas pourquoi!
Je voudrais encore vous remercier de me consacrer du temps pour m'aider, un grand merci à vous.
Cordialement
Mistral

Le Pingou · Answer

Bonjour,
Excusez-moi d'insister, le pas à pas n'est pas le même que celui que j'ai mis comme modèle, il manque la phase après configuration de l'imprimante, vous devez revoir le boite de dialogue et valider par OK .... !
Essayer de suivre le modèle point par point et rien d'autre!

Mistral_13200 · Answer

Bonjour,


Je n'ai trouvé votre message que ce matin ce qui explique ma réponse tardive.
J'ai donc refait deux essais un en couleur et l'autre en N&B. J'ai veillé également à la superposition des fenêtres pour bine mettre en évidence les conditions des captures d'ecran.

http://www.cijoint.fr/cjlink.php?file=cj201104/cijydQgd9B.doc 

En esperant que cette fois-ci vous pourrez en déduire quel que chose.
Cordialement
Misstral

Le Pingou · Answer

Bonjour,
Merci pour vos informations, à première vue tout semble correct.
Par contre de mon côté à la suite d'un nouveau test plus poussé, je viens de réussir à reproduire la faute sur mon imprimante.
La recherche de la correction est pour demain.

Mistral_13200 · Answer

Bonjour,

Cela me rassure car vraiment je commencé à douter de moi...

Dans tout les cas un grand merci à vous.
Cordialement
Mistral

Le Pingou · Answer

Bonjour,
Eh bien je pense avoir mis le doigt sur la petite gentillesse.
Je fais encore des tests en fin de journée et je vous donnerai des nouvelles.

Le Pingou · Answer

Bonjour,
Je vous laisse essayer avec votre matériel, votre fichier avec une modification du code : https://www.cjoint.com/?3efsaAmxaOZ
 J'espère que se sera bon ... !

Mistral_13200 · Answer

Bonjour,

J'ai fait un rapide test hier au soir que j'ai arreté car dans votre solution on ne prend plus en compte le bouton annuler de la fenêtre "Choix de l'imprimante".
Par contre il semblerait en effet que cela fonctionne correctement pour ce qui est de la qualité d'impression.
Ne pouvant pas mettre de test "IF" dans l'instruction "With" je vais refaire des tests de la qualité d'impression sans l'instruction "With" de manière à reprendre le test sur le bouton "Annuler".
Ou avez-vous une autre idée?
Cordialement
Mistral

Le Pingou · Answer

Bonjour,
Il faut se mettre d'accord, lorsque vous cliquer sur `Annuler ` dans le choix de l'imprimante, cela signifie que vous gardez l'imprimante par défaut et ou l'imprimante choisie mais avec la configuration par défaut. Donc l'impression se déroule normalement.
Peut - être que vous désirez tout simplement annuler l'ordre d'impression, se qui est différent !
Merci de le préciser, la modification est très simple.
Note: l'important est que les différents choix de configuration fonctionnent correctement...

Mistral_13200 · Answer

Effectivement il s'agit de supprimer l'ordre d'impression et rien de plus.

Il est bien evident que si on veur choisir une imprimante ou une qualité d'impression il faudra passer par cette boite et valider avant de sortir.

La suppression est indispensable pour eviter de gâcher du papier et de l'encre.

Le Pingou · Answer

Bonjour,
Le bloc `With' avec l'instruction ''If ` qui fonctionne, j'ai testé :
    With Sheets("Tableau")
        .Visible = True
        .Activate
' ***** définir configuration imprimante
        If Application.Dialogs(Excel.XlBuiltInDialog.xlDialogPrinterSetup).Show = True Then
        .PrintOut from:=1, To:=p ', ActivePrinter:=Nom
        End If
        .Visible = False 'A remettre dans la version difinitive.
    End With

Mistral_13200 · Answer

Re,

 A permière vue semble semble correcte. MERCI!!!
Je vais pousser tous mes tests pour verifier le bon, fonctionnenement.
Je te eins au courant.
Cordialement.
Mistral

Mistral_13200 · Answer

Bonjour Le Pingou,


Les tests que j'ai fait chez moi se sont bien déroulés, je peux changer la qualité d'impression sans problème. Je dois encore contrôler le choix de l'imprimante sur un autre ordinateur, ou il y a plusieurs imprimantes, mais je pense que ça marchera car s'était déjà bon avant.
Je vais laissé le sujet ouvert quelque temps encore et, si tu le permet, je reviendrais vers toi en cas de problème.
En attendant un grand merci à toi pour ton aide et le temps que tu y a consacré.
Cordialement.
Mistral

Imprimer depuis un module VBA

37 réponses

Discussions similaires