AutoIt Français

Bonjour à tous,

je viens de tomber sur une "coquille" dans mon programme de pilotage d'imprimante au travers d'excel :
je pilote 3 imprimantes USB qui peuvent changer de port à chaque démarrage.
Par exemple je possède une 'HP LaserJet 1020' qui est reconnue (actuellement sous Excel) avec le nommage suivant : 'HP LaserJet 1020 sur Ne02:'

La dernière partie du nom (Ne02:) change quasiment à chaque démarrage (cela peut être Ne03:, ...).
Cela est lié à l'ordre de détection des différentes imprimantes par le poste.
Je n'arrive pas à comprendre la logique de détection et donc à modifier cela dans mon programme.

J'ai déjà regardé la fonction donné par Tlem sur le post suivant : http://www.autoit.fr/forum/viewtopic.php?f=11&t=4794 mais sans succès : je n'arrive pas à définir le numééro qui doit être utilisé (02 dans mon exemple).

Voici un bout de mon code pour comprendre l'importance de cette information.

Code : Tout sélectionner

$RefImp1020 = "HP LaserJet 1020 sur Ne02:"

If $oExcel = "" Then $oExcel = ObjCreate("Excel.Application")
$oExcel.Visible = 0                  ; Afficher excel (=1) ou masquer (=0)
$oExcel.WorkBooks.Open($PathFileProd)            ; Ouverture du fichier
$oExcel.ActiveSheet.PageSetup.Zoom = 91
$oExcel.ActivePrinter = $RefImp1020                 ; Impression sur l'imprimante 1020
$oExcel.ActiveSheet.PrintOut

Par avance merci à tous.

Bonjour peuchere83,

Je suis entrain de bosser sur un projet de changement d'imprimante si celle par défaut est OFFLINE.

Voici ce que j'ai commencé à faire :

► Afficher le texte

Code : Tout sélectionner

#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ListViewConstants.au3>

SplashTextOn("", "DETECTION DE L'ETAT DES IMPRIMANTES EN COURS...", 500, 50, -1,-1,33,"", 9)


; LISTE LES IMPRIMANTES RESEAU
Dim $i=1
    Local $objWMIService = ObjGet("winmgmts:\\" & @ComputerName & "\root\CIMV2")
    Local $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Printer WHERE PortName LIKE 'IP_%'")
Dim $imp_tab[1][5]
For $objItem In $colItems
            ReDim $imp_tab[$i+1][5]

            ; Nom
            $imp_tab[$i][0]=$objItem.Caption

            ; Défaut
            If $objItem.Default="True" Then $imp_tab[$i][1]="DEFAUT"

            ; Port
            $imp_tab[$i][2]=StringRight($objItem.PortName,StringLen($objItem.PortName)-3)

            $i=$i+1

        Next

$imp_tab[0][0]=UBound($imp_tab)

For $i=1 To $imp_tab[0][0]-1

    If Ping($imp_tab[$i][2])=0 Then $imp_tab[$i][3]="OFFLINE"
Next


Run("CONTROL PRINTERS","")

$Program_Name = "Imprimantes et télécopieurs"

WinWait($Program_Name,"")
WinSetState($Program_Name,"",@SW_HIDE)

$imp_nb = ControlListView($Program_Name, "", "SysListView321", "GetItemCount")


#Region ### START Koda GUI section ### Form=
Global $Form1_1 = GUICreate("LISTE ET ETAT DES IMPRIMANTES RESEAU", 703, 236, -1, -1)
Global $MenuItem1 = GUICtrlCreateMenu("&Fichier")
Global $MenuQuitter = GUICtrlCreateMenuItem("Quitter", $MenuItem1)
Global $MenuItem2 = GUICtrlCreateMenu("?")
Global $MenuAide = GUICtrlCreateMenuItem("Aide", $MenuItem2)
Global $MenuMail = GUICtrlCreateMenuItem("Contacter l'auteur", $MenuItem2)
Global $Menuweb = GUICtrlCreateMenuItem("Site web de l'auteur", $MenuItem2)
Global $Menu_maj = GUICtrlCreateMenuItem("Vérifier les mises à jours", $MenuItem2)
Global $MenuApropos = GUICtrlCreateMenuItem("A propos de...", $MenuItem2)
Global $Label1 = GUICtrlCreateLabel("LISTE ET ETAT DES IMPRIMANTES RESEAU", 8, 8, 681, 17, $SS_CENTER)
GUICtrlSetFont(-1, 11, 800, 0, "Verdana")
Global $List1 = GUICtrlCreateListView("IMPRIMANTE|DEFAUT|IP|OFFLINE|ETAT", 7, 31, 687, 175)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 200)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 75)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 75)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 4, 200)
GUISetState(@SW_SHOW)
;Global $Form1_1_AccelTable[1][2] = [["{VERR.MAJ}", $Menu_maj]]
;GUISetAccelerators($Form1_1_AccelTable)
#EndRegion ### END Koda GUI section ###

For $i=1 To $imp_tab[0][0]-1
    $index_tmp = ControlListView($Program_Name, "", "SysListView321", "FindItem",$imp_tab[$i][0])
    $imp_etat = ControlListView($Program_Name, "", "SysListView321", "GetText",$index_tmp,2)
    $index_imp_tab = _ArraySearch($imp_tab, $imp_tab[$i][0],0,0,0,1,1,0) ; Recherche dans colonne 1
    $imp_tab[$index_imp_tab][4]=$imp_etat
    ;GUICtrlSetData($List1, $imp_tab[$i][0])
    GUICtrlCreateListViewItem($imp_tab[$i][0] & "|" & $imp_tab[$i][1] & "|" & $imp_tab[$i][2] & "|" & $imp_tab[$i][3] & "|" & $imp_tab[$i][4], $List1)
Next

SplashOff()

WinSetState($Program_Name,"",@SW_HIDE)
WinClose($Program_Name,"")



;_ArrayDisplay($imp_tab,"Etat des imprimantes")


While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit

  Case $MenuQuitter
  Case $MenuAide
  Case $MenuMail
  Case $Menuweb
  Case $Menu_maj
  Case $MenuApropos
 EndSwitch
WEnd

Il n'est pas fini, mais j'espère que cela pourra t'aider à récupérer des infos pour obtenir le nom qui te convient.

En espérant avoir pu t'aider.

Amicalement.

BM

Merci Scorp84,

mon problème n'est pas la récupération du nom brut de l'imprimante mais le port que semble lui rajouter excel (ex dans mon cas 'Ne02:' )
Par contre ton programme m'intéresse je vais donc le regarder de plus près.

je vais continuer mes recherches sur les forum VBA au cas où.

Cordialement

Après recherche, la seule solution semble de tester les différentes possibilités (de Ne01: à Ne10:)

Je vais donc devoir (je pense) utiliser une gestion d'erreur sur les objets com.

Si quelqu'un a une autre idée, je prends de suite !!!

@+

Coucou,

Je ne sait pas si sa peut t'aider, mais je post au cas ou ...

http://www.autoitscript.fr/forum/viewto ... =11&t=4794

Jérôme

J'ai aussi trouvé ça :

► Afficher le texte

Code : Tout sélectionner

#include <array.au3> ; Only for viewing the array.

$aPrinterList = _GetLocalPrinterList()
_ArrayDisplay($aPrinterList, '')

; Return local printer list.
; column 1 = Printer Name
; column 2 = Driver
; column 3 = Port
Func _GetLocalPrinterList()
    Local $PrinterList[1][85], $PrinterCount
    Local $objWMIService = ObjGet("winmgmts:\\" & @ComputerName & "\root\CIMV2")
    Local $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Printer")

    For $objItem In $colItems
        ReDim $PrinterList[$PrinterCount + 1][85]

$PrinterList[$PrinterCount][0] = $objItem.Availability
$PrinterList[$PrinterCount][1] = $objItem.AvailableJobSheets
$PrinterList[$PrinterCount][2] = $objItem.AveragePagesPerMinute
$PrinterList[$PrinterCount][3] = $objItem.Capabilities
$PrinterList[$PrinterCount][4] = $objItem.CapabilityDescriptions
$PrinterList[$PrinterCount][5] = $objItem.Caption
$PrinterList[$PrinterCount][6] = $objItem.CharSetsSupported
$PrinterList[$PrinterCount][7] = $objItem.Comment
$PrinterList[$PrinterCount][8] = $objItem.ConfigManagerErrorCode
$PrinterList[$PrinterCount][9] = $objItem.ConfigManagerUserConfig
$PrinterList[$PrinterCount][10] = $objItem.CreationClassName
$PrinterList[$PrinterCount][11] = $objItem.CurrentCapabilities
$PrinterList[$PrinterCount][12] = $objItem.CurrentCharSet
$PrinterList[$PrinterCount][13] = $objItem.CurrentLanguage
$PrinterList[$PrinterCount][14] = $objItem.CurrentMimeType
$PrinterList[$PrinterCount][15] = $objItem.CurrentNaturalLanguage
$PrinterList[$PrinterCount][16] = $objItem.CurrentPaperType
$PrinterList[$PrinterCount][17] = $objItem.Default
$PrinterList[$PrinterCount][18] = $objItem.DefaultCapabilities
$PrinterList[$PrinterCount][19] = $objItem.DefaultCopies
$PrinterList[$PrinterCount][20] = $objItem.DefaultLanguage
$PrinterList[$PrinterCount][21] = $objItem.DefaultMimeType
$PrinterList[$PrinterCount][22] = $objItem.DefaultNumberUp
$PrinterList[$PrinterCount][23] = $objItem.DefaultPaperType
$PrinterList[$PrinterCount][24] = $objItem.DefaultPriority
$PrinterList[$PrinterCount][25] = $objItem.Description
$PrinterList[$PrinterCount][26] = $objItem.DetectedErrorState
$PrinterList[$PrinterCount][27] = $objItem.DeviceID
$PrinterList[$PrinterCount][28] = $objItem.Direct
$PrinterList[$PrinterCount][29] = $objItem.DoCompleteFirst
$PrinterList[$PrinterCount][30] = $objItem.DriverName
$PrinterList[$PrinterCount][31] = $objItem.EnableBIDI
$PrinterList[$PrinterCount][32] = $objItem.EnableDevQueryPrint
$PrinterList[$PrinterCount][33] = $objItem.ErrorCleared
$PrinterList[$PrinterCount][34] = $objItem.ErrorDescription
$PrinterList[$PrinterCount][35] = $objItem.ErrorInformation
$PrinterList[$PrinterCount][36] = $objItem.ExtendedDetectedErrorState
$PrinterList[$PrinterCount][37] = $objItem.ExtendedPrinterStatus
$PrinterList[$PrinterCount][38] = $objItem.Hidden
$PrinterList[$PrinterCount][39] = $objItem.HorizontalResolution
$PrinterList[$PrinterCount][40] = $objItem.InstallDate
$PrinterList[$PrinterCount][41] = $objItem.JobCountSinceLastReset
$PrinterList[$PrinterCount][42] = $objItem.KeepPrintedJobs
$PrinterList[$PrinterCount][43] = $objItem.LanguagesSupported
$PrinterList[$PrinterCount][44] = $objItem.LastErrorCode
$PrinterList[$PrinterCount][45] = $objItem.Local
$PrinterList[$PrinterCount][46] = $objItem.Location
$PrinterList[$PrinterCount][47] = $objItem.MarkingTechnology
$PrinterList[$PrinterCount][48] = $objItem.MaxCopies
$PrinterList[$PrinterCount][49] = $objItem.MaxNumberUp
$PrinterList[$PrinterCount][50] = $objItem.MaxSizeSupported
$PrinterList[$PrinterCount][51] = $objItem.MimeTypesSupported
$PrinterList[$PrinterCount][52] = $objItem.Name
$PrinterList[$PrinterCount][53] = $objItem.NaturalLanguagesSupported
$PrinterList[$PrinterCount][54] = $objItem.Network
$PrinterList[$PrinterCount][55] = $objItem.PaperSizesSupported
$PrinterList[$PrinterCount][56] = $objItem.PaperTypesAvailable
$PrinterList[$PrinterCount][57] = $objItem.Parameters
$PrinterList[$PrinterCount][58] = $objItem.PNPDeviceID
$PrinterList[$PrinterCount][59] = $objItem.PortName
$PrinterList[$PrinterCount][60] = $objItem.PowerManagementCapabilities
$PrinterList[$PrinterCount][61] = $objItem.PowerManagementSupported
$PrinterList[$PrinterCount][62] = $objItem.PrinterPaperNames
$PrinterList[$PrinterCount][63] = $objItem.PrinterState ;*
$PrinterList[$PrinterCount][64] = $objItem.PrinterStatus
$PrinterList[$PrinterCount][65] = $objItem.PrintJobDataType
$PrinterList[$PrinterCount][66] = $objItem.PrintProcessor
$PrinterList[$PrinterCount][67] = $objItem.Priority
$PrinterList[$PrinterCount][68] = $objItem.Published
$PrinterList[$PrinterCount][69] = $objItem.Queued
$PrinterList[$PrinterCount][70] = $objItem.RawOnly
$PrinterList[$PrinterCount][71] = $objItem.SeparatorFile
$PrinterList[$PrinterCount][72] = $objItem.ServerName
$PrinterList[$PrinterCount][73] = $objItem.Shared
$PrinterList[$PrinterCount][74] = $objItem.ShareName
$PrinterList[$PrinterCount][75] = $objItem.SpoolEnabled
$PrinterList[$PrinterCount][76] = $objItem.StartTime
$PrinterList[$PrinterCount][77] = $objItem.Status
$PrinterList[$PrinterCount][78] = $objItem.StatusInfo
$PrinterList[$PrinterCount][79] = $objItem.SystemCreationClassName
$PrinterList[$PrinterCount][80] = $objItem.SystemName
$PrinterList[$PrinterCount][81] = $objItem.TimeOfLastReset
$PrinterList[$PrinterCount][82] = $objItem.UntilTime
$PrinterList[$PrinterCount][83] = $objItem.VerticalResolution
$PrinterList[$PrinterCount][84] = $objItem.WorkOffline ; Hors connexion true sinon false



        $PrinterCount += 1
    Next
    Return $PrinterList
EndFunc   ;==>_GetLocalPrinterList

Tu verras "$objItem.PortName" (59). ça devrait t'aider à récupérer le port.

Si tu veux en savoir plus :
http://msdn.microsoft.com/en-us/library ... 85%29.aspx
http://www.autoitscript.com/forum/index ... opic=18524

Amicalement.

BM

Merci pour ces réponses !!!

Mais malheureusement cela ne change rien à mon problème :
@Jerome :
Oui j'ai déjà utilisé le fonction de Tlem (dixit mon 1er post)

@scorp84 :
Ta fonction est la même que Tlem (avec beaucoup plus d'information) mais malheureusement le numéro qui change sur excel ne correspond pas au port (je pensais cela moi aussi mais à tord)
Par exemple dans mon cas ma HP LaserJet 1020 est sur le port USB001 (dixit ton code) alors qu'excel me la déclare comme : 'HP LaserJet 1020 sur Ne04:'

Je suis donc entrain de faire une gestion d'erreur sur les objets com.

Merci

tu utilise des imprimantes qui ne sont pas déclarées en tant qu'imprimantes locales, elles te sont remontées par les autres machines présentes sur le réseau !

en conséquence : soit tu installe ces imprimantes directement sur ton post (aucun branchement à faire, juste suivre la procédure normale d'ajout d'imprimante en la recherchant dans l'annuaire réseau)
soit tu utilise directement des fonctions de connexion à des ressources distantes, ça pourrait éventuellement aider ...
_WinNet_AddConnection2 ou _WinNet_AddConnection3
(voir un sujet initié par Sh4dows pour en apprendre un peu plus)

en revanche après à toi de voir comment cela serait utilisable pour utiliser les imprimantes connectés par ce biais là ... parce que moi j'en sais pas plus !

SrBelial a écrit :tu utilise des imprimantes qui ne sont pas déclarées en tant qu'imprimantes locales, elles te sont remontées par les autres machines présentes sur le réseau !

Se sont des imprimantes USB qui sont physiquement reliées à mon PC. Comment ne peuvent elles pas être déclarées comme imprimantes locales

De plus j'ai essayé aussi avec une imprimante réseau et elle est aussi nommée de la même manière sous excel : SonNom sur Ne0x:

Par avance merci.

si elles sont déclarées comme s'appelant "laserqqch sur Neo#" c'est qu'elles sont considérées comme des imprimantes réseau, et que c'est le poste Neo# qui partage ces imprimantes qui te permet d'y accéder ...

du coup tu as beau avoir un cable USB .... quand tu imprime ça fait tout le circuit :
ton poste => réseau/routeur/switch/autre => Neo# => réseau/routeur/etc ... => ton poste => imprimante

(à moins que ce soient des imprimantes possédant une interface ethernet ou wifi auquel cas après le second passage dans le réseau ça ne passe pas par ton poste mais direct à l'imprimante ...

Merci pour ces informations SrBelial.

Mon seul problème est que je ne vois pas comment installer mes imprimantes pour qu'elles soient considérées comme en local.
Car si je suis ton raisonnement, si je débranche mon câble réseau, je devrais être dans l'impossibilité d'imprimer sur mon imprimante USB ?!
Or cela fonctionne et elle est toujours détectées de la même manière sous Excel.

Le poste Neox n'existe pas sur mon réseau. Je pense donc que c'est excel qui le crée pour son fonctionnement sur port usb car en port lpt1 pas de problème.

D'ailleurs pourrais tu faire le test suivant pour moi stp :
tu dois certainement avoir une imprimante usb connectée à ton poste. Peux tu vérifier son nom sous excel ?
Pour cela tu créés une nouvelle macro (outils>macro>nouvelle macro) et tu lance une impression de ta page vierge sur ton imprimante usb. Tu arretes ensuite l'enregistrement de la macro, puis tu vas dans outils>macro>macros et tu sélectionne modifié pour voir le nom détecté.

Je me doute que tu connais forcément cette manipulation mais je la précise pour les autres personnes du forum qui auront la gentillesse de tester cela pour moi.

Par avance merci.

AutoIt Français

[..] Sélection de l'imprimante sous excel

[..] Sélection de l'imprimante sous excel

Re: [..] Sélection de l'imprimante sous excel

Re: [..] Sélection de l'imprimante sous excel

Re: [..] Sélection de l'imprimante sous excel

Re: [..] Sélection de l'imprimante sous excel

Re: [..] Sélection de l'imprimante sous excel

Re: [..] Sélection de l'imprimante sous excel

Re: [..] Sélection de l'imprimante sous excel

Re: [..] Sélection de l'imprimante sous excel

Re: [..] Sélection de l'imprimante sous excel

Re: [..] Sélection de l'imprimante sous excel