Pb nom imprimante réseauRésolu

Question

Bonjour,
Je développe en VB6 Sp6
J'utilise PrintDLG pour sélectionner une imprimante.
Cette API me renvoie une structure du type suivant :
Public Type InformationImprimante ' PRINTDLG
    lStructSize As Long
    hwndOwner As Long
    hDevMode As Long
    hDevNames As Long
    hdc As Long
    flags As Long
    nFromPage As Integer
    nToPage As Integer
    nMinPage As Integer
    nMaxPage As Integer
    nCopies As Integer
    hInstance As Long
    lCustData As Long
    lpfnPrintHook As Long
    lpfnSetupHook As Long
    lpPrintTemplateName As String
    lpSetupTemplateName As String
    hPrintTemplate As Long
    hSetupTemplate As Long
End Type


Ensuite, je récupère le nom de l'imprimante sélectionnée en utilisant les API Suivantes :
'Récup de l'adresse mémoire
adresseStructureDEVMODE = GlobalLock(imprimanteSelectionne.hDevMode)
'Alimentation de la structure InfoDevice de dype "DevMode"
Call CopyMemory(infoDevice, ByVal adresseStructureDEVMODE, Len(infoDevice))
'Récup du nom de l'imprimante
nomImprimante = Left(infoDevice.dmDeviceName, InStr(1, infoDevice.dmDeviceName, Chr(NULL_PTR)) - 1)

Tout cela fonctionne très bien... Sauf (et oui, il y un hic, sinon je ne serais pa slà) pour les imprimantes dont le nom a une taille de plus de 32 caractères.
Pourquoi 32 ? Parce que le type DevMode est définit comme suit :
Public Const CCHDEVICENAME = 32
Public Const CCHFORMNAME = 32
Public Const PD_RETURNDC = &H100
Public Const PD_RETURNIC = &H200
Public Const NULL_PTR = 0&
  
Public Type DevMode
'C'est ci dessous que le pb apparait 
        dmDeviceName As String * CCHDEVICENAME        dmSpecVersion As Integer
        dmDriverVersion As Integer
        dmSize As Integer
        dmDriverExtra As Integer
        dmFields As Long
        dmOrientation As Integer
        dmPaperSize As Integer
        dmPaperLength As Integer
        dmPaperWidth As Integer
        dmScale As Integer
        dmCopies As Integer
        dmDefaultSource As Integer
        dmPrintQuality As Integer
        dmColor As Integer
        dmDuplex As Integer
        dmYResolution As Integer
        dmTTOption As Integer
        dmCollate As Integer
        dmFormName As String * CCHFORMNAME
        dmUnusedPadding As Integer
        dmBitsPerPel As Long
        dmPelsWidth As Long
        dmPelsHeight As Long
        dmDisplayFlags As Long
        dmDisplayFrequency As Long
End Type

Pas moyen de m'en sortir ! Quelqu'un a t il une idée SVP ?

D'avance Merci

Cordialement


Pat

 Don't Worry , Be Happy 

lorsque le problème est résolu, pensez Réponse Acceptée

pneau · Accepted Answer

Je me réponds à moi meme vu que j'ai trouvé une solution...
bref,
la structure DEVNames récupérée avec PrintDLG contient le nom complet de mon imprimante, sans llimitation de taille...
donc, j'ai fait la chose suivante :
adresseStructureDEVNAME = GlobalLock(imprimanteSelectionne.hDevNames)
            If adresseStructureDEVNAME > 0 Then
               Call CopyMemory(infoDevName, ByVal adresseStructureDEVNAME, Len(infoDevName))
               GlobalUnlock (imprimanteSelectionne.hDevNames)
            End If
nomImprimante = Trim(Mid(infoDevName.extra, infoDevName.wDriverOffset + 1, (infoDevName.wOutputOffset - infoDevName.wDeviceOffset)))
nomImprimante = Replace(nomImprimante, Chr(0), "")

Cordialement

Pat

 Don't Worry , Be Happy 

lorsque le problème est résolu, pensez Réponse Acceptée

Pb nom imprimante réseau

1 réponse

Votre réponse

Discussions similaires