Torna al Thread
Private Sub StampaEtichetta(sFileName As String)
On Error GoTo WriteFileErrors
Open sFileName For Output As #1
Print #1, "N"
Print #1, "B10,10,0,3,3,7,200,B,"""123456789""""
Print #1, "P1"
Shell ("print " & sFileName) 'Stampa l'etichetta barcode
WriteFileExit:
Close #1
Exit Sub
WriteFileErrors:
MsgBox "Errore durante la stampa dell'etichetta: " & vbCrLf & Err.Number & " " & Err.Description
Resume WriteFileExit
End Sub