VBA:Stampa testo txt su stampante predefinita

di il
3 risposte

VBA:Stampa testo txt su stampante predefinita

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

3 Risposte

Devi accedere o registrarti per scrivere nel forum
3 risposte