(

Description:

Draws horizontal black line


Parameters:
h1	Left position (0-480)
h2	Right position (0-480)

global
procedure TestPrintRn(record RcVc RepSpec)
begin

  StartReportJob("Report Example");                  
  Header(1,"Use it to print in Header",1);     
  EndHeader;
  
  StartFormat(15);
  OutString(0,0,"String",false);
  OutDate(100,0,CurrentDate,false);
  OutLongInt(400,0,10,true);
  OutVal(1,0,10/3,M4Val,true);
  EndFormat;
  Black_Divider(0,1);

  EndJob;

  return;
end;


Related topics:

««