envoi sur port parallèle avec VBA
Bonjour,
J'ai trouvé sur ce forum du code VBA pour envoyer un signal sur le port série:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| Private Sub CommandButton1_Click()
With MSComm1 'configuration du port
If .PortOpen Then _
.PortOpen = False 'ouverture du port
.CommPort = 1 'On utilise le port COM1:
'.Handshaking = 2 'RTS
'.RThreshold = 1
'.RTSEnable = True 'mieux pour le port COM:
.Settings = "9600,n,8,1"
'.SThreshold = 1
.PortOpen = True 'ouverture du port
.OutPut = "c'est moi"
.PortOpen = False 'ouverture du port
End With
End Sub |
Mais est-ce que l'on peut faire de même pour envoyer un signal sur le port parallèle?
Merci pour votre aide
Soph
