trasmettere dati alla porta parallela (era: Domanda)

[Foga27News]

prova così:

Private Sub Form_Load() 
Open "LPT1" For Binary As #1 
dim DATI as string
DATI=String(" ",NByte)
Get #1,1,DATI
Close #1 
End Sub