The Texas Distrubted Business Environment

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.

Flexible Printing
#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)
Characters left: 2500
 

Contact Ekky

Thanks for your interest.

Ekky Software Customer Support Team.

Ekky Software Product Range
Ekky Software Homepage T-Accounts Online ObjectDatabase++ TScript Ekky Software Homepage T-Accounts Onlinee ObjectDatabase++ TScript