Zebra program to generate the tags and then save as a prn for use by WINDEV
code print prn
PROCEDURE WD_Printer_PRN_Etiqueta(bIniNamePrinter is boolean, filename_to_print is string, verbose_mode is boolean=True) : boolean
PRIVATE
_result is boolean=False
_buffer is Buffer
IF bIniNamePrinter = True AND WD_Valida_PRN(filename_to_print) = True
sPrintnamefull is string = INIRead("CONFIG","ZEBRA","",fCurrentDir()+"\Zebra.ini")
WHEN EXCEPTION IN
IF iConfigure(sPrintnamefull) THEN
_buffer=fLoadBuffer(filename_to_print)
iEscape(_buffer)
iEndPrinting()
_result=True
ELSE
IF verbose_mode THEN
Error(ErrorInfo())
END
END
DO
IF verbose_mode THEN
Error("Fatal Error !",ExceptionInfo())
END
END
END
RESULT _result