choix d'imprimante en réseau

http://www.excelabo.net/xl/imprimer.php#choiximprimante



"JPB" <jean-paul.bataille@cegetel.fr> a écrit dans le message de
news:54b66196.0409142333.39b7b7d6@posting.google.com...

Bonjour,


Je développe une appli sous excel 97,qui doit étre utilisée par mes
camarades.
Les imprimantes sont en réseau

Sur mon poste le choix de l'imprimante donne

Application.ActivePrinter = "\Nom_d_Imprimante sur Ne01:"

Sur un autre poste

Application.ActivePrinter = "\Nom_d_Imprimante sur Ne03:"

Comment faire pour connaitre le Ne## attaché à la seule imprimante A3
du service, sur nimporte quel poste de travail?


Merci pour votre aide à tous,


JPB

"YannX" <ydx_nospam@yahoo.fr> wrote in message news:<uNN#uoymEHA.3968@TK2MSFTNGP11.phx.gbl>...

http://www.excelabo.net/xl/imprimer.php#choiximprimante

J'avais oublié ce bon site du disciple..... une vrai Mine d'or Pur.

Par contre il y a un petit soucis de mise au point chez moi :
Il faut rajouter un S final à Sheet

Workbooks(BookName).SheetS(1).PrintOut copies:=1


petite amélioration : Comme on désire imprimer la feuille active,
j'ai fait l'échange pour

'BookName = Workbooks("Machin.xls")
BookName = ActiveWorkbook.Name


'======================================================================= 'Cette macro liste les imprimantes, donne le choix et le nombre de pages à imprimer.

Sub Imprime()
Dim BookName As String

'BookName = Workbooks("Machin.xls")
BookName = ActiveWorkbook.Name
If Not Printer_Choice(BookName) Then
Workbooks(BookName).Sheets(1).PrintOut copies:=1
End If
End Sub

'============================================================================
Merci pour votre aide à tous,


JPB