[VB6] Oggetto MSComm - Problema con stampante

[Elena85]

Ho anche inserito una msgbox per controllare che OutBufferCount sia effettivamente 0...

Dim x As Integer

MSComm1.PortOpen = True
MSComm1.Output = strBuff

Do
x = MSComm1.OutBufferCount
MsgBox x
If x = 0 Then MSComm1.PortOpen = False
Loop Until x = 0

E in effetti mi scrive che x = 0!!