Bouton d'impression avec sélection d'une imprimante

Anonyme
2023-03-27T07:43:16+00:00

Bonjour,

J'ai créé cette macro qui a fonctionné 8 mois et qui me retourne une erreur 1004 à présent :

Sub Certif()
Application.ActivePrinter = "iR-ADV C257 sur Ne02:" 'Le debugger s'arrêt sur cette ligne: La méthode 'ActivePrinter' de l'objet '_Application' a échoué
ThisWorkbook.Worksheets(Array("Certificat")).PrintOut To:=1, Preview:=True 'le Preview permet de vérifier l'impression mais même si on l'annule la feuille suivante sort
ThisWorkbook.Worksheets(Array("Attestation désinstallation")).PrintOut To:=1
End Sub

J'aimerais une macro qui fonctionne toujours et peut-être améliorer le fait que les impressions suivantes soient annulées si on annule la première.

Auriez-vous des propositions de code à me faire et/ou pourquoi un code fonctionne puis arrête de fonctionner sans aucune mise à jour ou modification ?

Microsoft 365 et Office | Excel | Autres | Windows

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires

4 réponses

Trier par : Le plus utile
Le plus utile Les plus récents Les plus anciens
  1. DanielCo 107.7K Points de réputation
    2023-03-27T12:08:08+00:00

    Je n'ai qu'une imprimante. Mais ça fonctionne avec l'imprimante virtuelle Microsoft Print to PDF.

    Daniel

    Cette réponse a-t-elle été utile ?

    0 commentaires
  2. Anonyme
    2023-03-27T11:21:04+00:00

    Merci Daniel,

    Le port a changé sur l'imprimante.

    La ligne :

    MsgBox "The name of the active printer is " & Application.ActivePrinter

    permet d'afficher le nom et le port de l'imprimante.

    Avez vous déjà fait une série d'impression sur différente imprimante? est ce que cela fonctionne?

    Cette réponse a-t-elle été utile ?

    0 commentaires
  3. DanielCo 107.7K Points de réputation
    2023-03-27T09:32:40+00:00

    Bonjour,

    Est-ce que tu es sûr que ce soit exactement le nom d'une imprimante ? Et que celle-ci soit toujours connectée sur le même port ?

    Sinon, il est peut-être de choisir l'imprimante par défaut en affichant la liste des imprimantes disponibles :

    Application.Dialogs(xlDialogPrinterSetup).Show

    Daniel

    Cette réponse a-t-elle été utile ?

    0 commentaires
  4. Supprimé

    Cette réponse a été supprimée en raison d’une violation de notre Code de conduite. La réponse a été signalée manuellement ou identifiée via la détection automatisée avant que l’action ne soit entreprise. Pour obtenir plus d’informations, veuillez consulter notre Code de conduite.

    Les commentaires ont été désactivés. En savoir plus