Customisable Print Scripts
The Texas Business Software allows users to write and register their own TScripts for printing of any object within the system. This allows for fully customisable printing, adding your own designs and images.
#include "PDFLibrary.ts" #include "TexasCommon.ts" public main(variable parameters) { PDFDocument pdf; Integer count; AString duration; pdf.SelectFont(PDFDocument .FONT_HELVETICA,24,-1,-1,-1,-1,1); pdf.SelectDraw(2); pdf.WriteText("To Do List for " + parameters.FormatedName + " (" + parameters.UserName + ")" ,40,800,515,0,PDFDocument.HORIZONTAL_CENTRE); pdf.SelectDraw(1,-1,-1,-1,205,205,205); pdf.DrawRectangle(40,750,515,22,PDFDocument .PATH_STROKE_FILL); pdf.SelectFont(PDFDocument .FONT_HELVETICA_BI,14,-1,-1,-1,-1,0); pdf.WriteText("Start Time",50,755); pdf.WriteText("Label",200,755); pdf.WriteText("Duration",480,755); pdf.SelectFont(PDFDocument .FONT_HELVETICA,11); for(count = 0; count < parameters.ToDoItem.length; count++){ pdf.WriteText(parameters.ToDoItem[count].Start.ToString(), 45,730-(count*20),150); pdf.WriteText(parameters.ToDoItem[count].Label, 195,730-(count*20),275); durationToString(parameters.ToDoItem[count].Duartion, parameters.ToDoItem[count].Flags.Integer() : duration); pdf.WriteText(duration,475,730-(count*20),80); } pdf.SelectDraw(2); pdf.StartPath(40,735-(count*20)); pdf.DrawLineTo(555,735-(count*20)); pdf.ClosePath(PDFDocument .PATH_STROKE); pdf.SaveDocument("todoItems.pdf"); }
Listen All
Comments (0)