Public Sub Main()
cArticulo = fg2.TextMatrix(fg2.Row, 0)
If UCase(Trim(cArticulo)) = “RTELCEL” OR UCase(Trim(cArticulo)) = “RMOVISTAR” OR UCase(Trim(cArticulo)) = “RIUSACELL” OR _
UCase(Trim(cArticulo)) = “RUNEFON” OR UCase(Trim(cArticulo)) = “RNEXTEL” Then
CancelaProceso = True
End If
‘Set Printer = ImpresoraDefault( “EPSON TM-U210B Partial cut” )
‘Printer.FontSize = 10
‘Printer.FontName = “8 Cpi”
‘PrintText “Hola”
‘PrintText “Como estan”
‘Printer.EndDoc
‘ Cancelamos el procedimiento estandar
‘ de impresión del punto de venta
‘CancelaProceso = True
End Sub
