1 %RegisteredObject 0 %String %Integer TECH.Print.Kolommen.TekstType TECH.Print.Kolommen.TekstUitlijning Titel:%String,Breedte:%Integer=-1,TekstType:TECH.Print.Kolommen.TekstType,TekstUitlijning:TECH.Print.Kolommen.TekstUitlijning %Status $length(Titel)+1) { Set Spaties = " " Set ..Titel = Titel_$E(Spaties,1,Breedte-$length(Titel)) Set ..Breedte = Breedte } else { Set ..Breedte = Breedte } Set ..TekstType = TekstType Set ..TekstUitlijning = TekstUitlijning Quit $$$OK ]]>