//WX - Impressora Zebra

glocalsDevice is string = "LPT1"

// String to send to printer
sMyString is string

// Port no. returned from fOpen
glocaliPort is int

// Open the file

glocaliPort = fOpen(glocalsDevice, foCreateIfNotExist)

IF ErrorOccurred THEN
Error("Unable to contact the printer! ", ErrorInfo())
ELSE
// Init the label
sMyString = EDT_Reg_imp
fWrite(glocaliPort, sMyString)

// Close the file
fClose(glocaliPort)
END