Discussion :

[Souriane]

Bonjour,

Comment fait-on pour sélectionner par VBA n’importe quelle imprimante sauf celles qui donne le rendu en PDF? Ou encore, comment faire pour mettre en page un fichier Excel lorsqu’une imprimante « PDF » est sélectionnée

C’est que ma macro est utilisée par plusieurs usagers où je travaille. La macro met en forme un fichier extrait d’une BD avant de l’enregistrer sur l’intranet.

La raison pourquoi elle fait une mise en page est au cas où quelqu’un souhaiterait imprimer le document : la macro détermine la zone d’impression, la largeur des colonnes, les marges, le format de papier, etc.

Or, si par défaut l’usager a comme imprimante « Adobe PDF », la macro ne fonctionne pas comme il faut parfois. J’avais donc ajouté dans le code ces lignes :

Code :

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

1
2
3
4
5
Dim sPrinterOriginal As String
    sPrinterOriginal = Application.ActivePrinter

'Sélectionne l'imprimante générale du département
      Application.ActivePrinter = "\\svmimp1\Imp_NB sur Ne05:"

Et à la fin du code, je remettais l’imprimante de l’usager

Code :

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

1
2
'Remet l'imprimante de l'usager actif
Application.ActivePrinter = sPrinterOriginal

Tout fonctionnait très bien jusqu’à ce que j’aie cette nouvelle employée cette semaine qui utilise la macro pour la première fois et obtient l’erreur que la méthode ActivePrinter a échouée. Après certaines recherches, je constate que sur son poste de travail à elle l’imprimante, que nous utilisons dans mon département s’appelle « \\svmimp1\Imp_NB sur Ne06: » ! (au lieu de 05)

Je n’ai aucune idée pourquoi ça fait ça mais j’aimerais savoir comment faire pour mettre en page un fichier Excel lorsqu’une imprimante « PDF » est sélectionnée?


Merci!

Souriane

[Souriane]

Toujours à la recherche d'une solution. N'importe laquelle. L'important, c'est d'être capable de faire la mise en forme d'une page même si l'imprimante par défaut est PDF ou n'importe quelle imprimante.

Merci!

Souriane

[ChristianBosch]

Bonjour,

Pourquoi pas mettre en place une gestion de l'erreur sur cette ligne de code ? Avec un on error goto blabla, ou on error resume next

Sinon il va falloir ajouter manuellement une imprimante de référence du même nom sur chaque poste et la mettre en constante.

Autre méthode est de sélectionner l'imprimante que l'on veut utiliser avec Application.Dialogs(xlDialogPrinterSetup).Show.

Peut etre que je réponds a coté et que je n'ai pas bien compris votre problématique