How To Print "Gridlines" From an Entity With Multiple Occurrences

Author: kathy.seeman@noris.org (kathseem)

Hi,

I'm running a Uniface form on Client-Server.  The form presents data in a tabular format (kind of like an Excel Spreadsheet, but not in a grid widget).  When printing out the results of the form, we'd like to have gridlines print to allow for easier reading of the data.   Is there any way to do the equivalent of "print gridlines" in Excel, so that lines would print between each row?

We are running Uniface 9.3.02. 

Any help is appreciated!

Kathy

 

 

 

2 Comments

  1. on option which does not appear during display:

    specify a breakframe which contains a line

    in the leave printed occurence trigger of the entity, just enter

    printbreak BreakFrameName


    Author: ulrich-merkel (ulrichmerkel@web.de)
  2. another option which does not need additional lines is the "zebra":

    in each odd occurence ($curocc % 2), change the color to one (expl. yellow which is col=6) which is printed as a light grey with the occurence gets focus trigger:

    if ($printing)
      $fieldvideo ( Field1 ) = "col=6"
      $fieldvideo ( Field2 ) = "col=6"
    endif

    and revert it in the leave printed occurence trigger

      $fieldvideo ( Field1 ) = ""
      $fieldvideo ( Field2 ) = ""

     

    Or you can use the example from the helpfile (which takes much longer to process compared with the hardcoded one):

    operation MAKE_COLORFUL
    variables
       string LIST_OF_FIELDS
       string FIELD
    endvariables
    
    LIST_OF_FIELDS = $entinfo($entname, PaintedFields)
    while (LIST_OF_FIELDS != "")
       getitem FIELD, LIST_OF_FIELDS, -1
       ; give this field bright colors
       fieldvideo FIELD, "COL=53"
       delitem LIST_OF_FIELDS, -1
    endwhile
    end
    

    Author: ulrich-merkel (ulrichmerkel@web.de)