Buon giorno
Non sono un programmatore VB ma utilizzo un programma di sviluppo (Movicon)che ha VBA come tool integrato che serve creare degli script (che raramente utilizzo e per funzioni molto semplici).
Ora però devo implementare una funzione di stampa di un codice e qui casca l'asino(cioè io)
che dopo avere scritto queste linee di codice ha come risultato un bel flop.
Di seguito ho copiato il codice dello script
L'errore segnalato nel debug è "non è presente un riferimento ad un oggetto"riferito alla
linea Printer.Print s
Grazie a tutti coloro che mi suggeriranno il rimedio
Sub Main
Dim disegno As String
Dim s As String
'Dim Printer As New Printer
Giuliano=Format(ddd,"000")
Pezzi_parziali = Format(pezzi_OK_parziali,"00000")
Anno = Format(YYY,"00")
Open "C:\CodiceBarra.txt" For Output As #1
Print #1 ,"00518066280"&"76107"&"0"&Format(pezzi_OK_parziali,"00000")&Format(ddd,"000")&Format(YYY,"00")
Close #1
Open "C:\CodiceBarra.txt" For Input As#1
Line Input #1, s
Printer.Print s
End Sub
End Sub