prima di tutto grazie per i tuoi consigli,
io ho fatto le variazioni che mi hai suggerito ma la stampante non risponde e mi da errore (8002 Numero di porta non valido)
MENTRE IO INSERISCO IL NUMERO DI PORTA ESATTO




Private Sub Combo1_Change()
MSComm1.CommPort = Combo1.ListIndex + 1
End Sub

Private Sub Command1_Click()
Command1.Caption = "DMX Printer Test Program"

MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
Desc$ = "10K OHM 1/4 WATT"
pcs = 590
MSComm1.Output = Chr$(2) & "L" & vbCr
MSComm1.Output = "H07" & vbCr
MSComm1.Output = "D11" & vbCr
MSComm1.Output = "191100801000025" & vbCr
MSComm1.Output = "1a6210000000050" & vbCr
MSComm1.Output = "E" & vbCr
MSComm1.PortOpen = False

End Sub