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