[VB6] Oggetto MSComm - Problema con stampante

[Elena85]

Ecco come ho modificato il codice:

Dim x As Integer

MSComm1.PortOpen = True
MSComm1.Output = strBuff

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

Ma ho sempre lo stesso problema...
Il mio codice è corretto, vero?
Quindi non dovrebbe essere un problema con la trasmissione dei dati nel buffer...giusto?
Grazie mille ancora!