Quelques lignes plutot qu'une description
'Dim A
'A = 1
'If A = 1 then
' Print sur laser
'Else
' Print sur COM 1
'End If
Cela marche quelque soit la valeur de A
MAIS
Comme je ne connais pas la valeur de A
'Dim A
'A = GetprinterType() fonction qui me permet de recuperer la valeur de A dans la registry
Et la le If A = 1 ne se fait plus et ce
quelque soit la valeur de A
Avez vous une idée ???