Private Sub Class_Globals
End Sub
Public Sub Initialize
End Sub
Public Sub imprimirTexto(Texto1 As String)
Dim printer As JavaObject
Dim ctxt As JavaObject
ctxt.InitializeContext
printer.InitializeStatic("br.com.execucao.posmp_api.printer.Printer")
printer = printer.RunMethod("getInstance", Array(ctxt))
printer.RunMethod("open", Null)
printer.RunMethod("setFeedLineAuto", Array(True))
printer.RunMethod("print", Array(Texto1))
End Sub