[VB6] Oggetto MSComm - Problema con stampante

[oregon]

E' meglio così

MSComm1.PortOpen = True
MSComm1.Output = strBuff

Do
  DoEvents
Loop Until MSComm1.OutBufferCount = 0

MSComm1.PortOpen = False