restart;

multiple := module() option package;
  export dsds1d_s,printdata;
  local TSprintf;

  TSprintf := proc()
    uses Typesetting;
      mrow(seq(`if`(e::string, mn(e), Typeset(EV(e))), e = [args]));
    #sprintf("%a",[args]);
  end proc:

  dsds1d_s := proc( rtc,
                    {width::positive:=500},
                    {widthmode::identical(pixels,percentage):=':-pixels'} )
    global R;
    local r, topic, tudo, num, dsd, dsss1, dsss2, dsss3, xml;
    uses Typesetting, DocumentTools, DocumentTools:-Layout;
    tudo := [1, -233243, sqrt(23+x), ('int')(2*x^2+35*x+4, x)];
    num := rand(1 .. nops(tudo())); dsd := tudo[num()];
    dsss1 := tudo[num()]; dsss2 := tudo[num()]; dsss3 := tudo[num()];
    for r to rtc do
      topic[r] := TSprintf(ex, " ", r, ". SomeLongSentence ", r);
      R[r] := Row(Cell(Textfield(Equation(topic[r]),
                                 ':-alignment'=':-left'),
                       ':-columnspan'=4)),
              Row(Cell(Textfield(Equation(mrow(mtext("A","mathcolor"="#ff0000"),
                                               mtext(". "),TSprintf(dsd))),
                                 ':-alignment'=':-left')),
                  Cell(Textfield(Equation(mrow(mtext("B"), mtext(". "), TSprintf(dsss1))),
                                 ':-alignment'=':-left')),
                  Cell(Textfield(Equation(mrow(mtext("C"), mtext(". "), TSprintf(dsss2))),
                                 ':-alignment'=':-left')),
                  Cell(Textfield(Equation(mrow(mtext("D"), mtext(". "), TSprintf(dsss3))),
                                 ':-alignment'=':-left'))
                  );
    end do;return NULL;
  end proc:
printdata:=proc(rtc,
                    {width::positive:=500},
                    {widthmode::identical(pixels,percentage):=':-pixels'}) local xml;global R;
uses Typesetting, DocumentTools, DocumentTools:-Layout;
xml := Worksheet(Table(':-exterior'=':-none', ':-interior'=':-none',
                           ':-hiddenborderdisplay'=':-never', ':-alignment'=':-center',
                           ':-width'=width, ':-widthmode'=widthmode,
                           Column()$4,
                           seq(op([R[r]]),
                               r=1..rtc)
                          ));
    InsertContent(xml);
    return NULL;
end proc:
end module:

with(multiple):

dsds1d_s(3);

printdata(3,widthmode=percentage, width=100)