Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Impression sur imprimante réseau

J

Jacques25

XLDnaute Occasionnel
Bonjour à tous,

j'ai fait quelques recherche depuis ce matin et quelques soit le sujet et/ou le site j'en reviens toujours au même, à savoir un code qui ne marche pas.

Mon soucis, dans mon code je souhaite "simplement" enfin je croyais pouvoir imprimer une feuille sur l'imprimante par défaut de l'utilisateur. J'ai donc essayé :
ActiveSheet.Range("A1:O44").PrintOut
Ca marche mais quand juste avant j'ai fait une impression PDF il m'envoit sur l'imprimante PDF Creator.

Dans 95% des cas ce sera toujours la même imprimante qui sera utilisée donc je me suis dit autant indiquer le nom de l'imprimante j'ai donc essayé :
ActiveSheet.Range("A1:O44").PrintOut ActivePrinter:="Mon imprimante"
Le résultat est le même, pouvez vous m'aider.

L'imprimante est bien installée sur mon PC, ça marche en impression direct, ça marche si auparavant je n'ai pas imprimé en PDF mais sinon je bloque.

Merci à tous de l'aide que vous pourrez m'apporter.

@Plus
Jack
 
Trier par date Trier par votes

Modeste geedee

XLDnaute Barbatruc
Bonsour®
il serait plus simple de recenser une liste des imprimantes du réseau
et designer alors l'imprimante voulue (il n'y en a pas tant que çà dans "UN bureau"...)
VB: 
Sub ChangerPrinter()
Dim oldprinter  As String, reponse
oldprinter = Application.ActivePrinter
Application.Dialogs(xlDialogPrinterSetup).Show
reponse = MsgBox("Imprimante précedente : " & oldprinter & Chr(10) & "Imprimante actuelle : " & Application.ActivePrinter, vbOKCancel + vbQuestion + vbDefaultButton2, "Changer d'imprimante ")
If reponse <> vbOK Then Application.ActivePrinter = oldprinter
End Sub

une fois definitivement identifiée l'imprimante voulue :
mettre dans votre code l'instruction suivante :
Application.ActivePrinter = "\\CheminReseau\IMPxxx sur Ne??:"
termes à adapter selon identification précédente
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

S
  • Question
XL 2021 Mon aperçu ne correspond pas à mon document
Réponses
3
Affichages
569
Gégé-45550
R
  • Question
Microsoft 365 Impression userform en mode paysage
Réponses
5
Affichages
542
patricktoulon
L
  • Résolu(e)
XL 2016 RESOLU Imprimer un fichier excel sur trois imprimantes réseau
Réponses
4
Affichages
1 K
Linalor
L
  • Question
XL 2010 Impression d'un userform en pdf & Multipages
Réponses
6
Affichages
2 K
PoloTaz67
J
  • Résolu(e)
XL 2013 Changement port Ne pour imprimante sélectionner
2
Réponses
15
Affichages
2 K
Bernard_XLD
O
  • Question
XL 2019 Code VBA pour automatiser la programmation des rotations des ouvriers qui travaillent à temps partiel et se relaient par période de temps constante.
2 3
Réponses
35
Affichages
1 K
olivier1984
O
T
  • Question
XL 2019 Bouton aperçu avant impression
Réponses
2
Affichages
2 K
telemarrk
T
C
  • Question
Microsoft 365 Avoir un calendrier d'équipe du type Outlook, mais sur Excel pour bénéficier des champs de listes
Réponses
1
Affichages
373
ChTi160
D
  • Question
Microsoft 365 Cas réel - avec problème complexe sur de la prevision de match en evitant les doublons
Réponses
1
Affichages
678
Dock91
D
C
  • Question
Autres Dans Excel, à partir d'un UserForm, copier l'adresse sélectionnée dans enveloppe de publipostage Word et ouvrir la fenêtre "aperçu avant impression"
Réponses
11
Affichages
662
Chatron
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…