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
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5