Print "LP " : print at 50, #Y,"Ilość" : print at 250, #Y, "Wymiar" : print at 400, #Y,"Suma mb" : print LF   

   ii=1
   rs.MoveFirst()

   SetStyl (Styl (Font (40,B,"Arial CE"),-1,"Styl0"))
ramka 700,500,3   
   while !rs.eof()
         tblArkIl(ii)=Rs.Fields("ilosc").Value : grow tblArkIl,1
         tblArkDl(ii)=Rs.Fields("dlugosc").Value : grow tblArkDl,1
         fSumaMbArk=tblArkIl(ii)*val(tblArkDl(ii))
         print (using "%i",ii)
         print at 50,#Y,(using "%i",tblArkIl(ii) )
         print at 250,#Y,tblArkDl(ii)
         print at 400,#Y,(using "%.2f",fSumaMbArk) : print LF
         fSumaMb=fSumaMb+fSumaMbArk
         ii=ii+1
         rs.MoveNext()
         if ii>13 then
            goto nast3
         endif
   wend
nast3:
koniec

//deklaracja stylu tabeli
int xpos = 320
int StylBL = Styl (Font (40,B,"Arial CE"),-1,"Styl0")
int tabelkaBL = tabela 1,4,70,StylBL,300,StylBL, 175, StylBL, 175, StylBL, 175, bc

tabela #tabelkaBL, od xpos,#Y //tu oczywiście dalej możesz mieć czasem problem z pozycjonowaniem
   kolumna 1, "ta kolumna ma 70 pkt szerokości"
   kolumna 2, "300"
   kolumna 3, "175"
   kolumna 4, "175"
   kolumna 5, "175"+lf+lf+
koniec

int xpos = 200
int ypos = 400
int StylBL = Styl (Font (40,B,"Arial CE"),-1,"Styl0")
int StylNL = Styl (Font (36,"Arial CE"),-1,"Styl1")
int tabelkaBL = tabela 1,4,70,StylBL,300,StylBL, 175, StylBL, 175, StylBL, 175, StylBL
int tabelkaNL = tabela 1,4,70,StylNL,300,StylNL, 175, StylNL, 175, StylNL, 175, StylNL


tabela #tabelkaBL, od xpos, ypos //tu oczywiście dalej możesz mieć czasem problem z pozycjonowaniem
   kolumna 1, "Lp."
   kolumna 2, "Nazwa"
   kolumna 3, "cecha1"
   kolumna 4, "cecha2"
   kolumna 5, "cecha3"
koniec

tabela #tabelkaNL, od xpos, #Y
   kolumna 1, "1"
   kolumna 2, "jakaś nazwa"
   kolumna 3, "x"
   kolumna 4, "y"
   kolumna 5, "a" + lf + "b"+ lf+lf+"c"
koniec
tabela #tabelkaNL, od xpos, #Y
   kolumna 1, "2"
   kolumna 2, "jakaś nazwa2"
   kolumna 3, "z"
   kolumna 4, "y"
   kolumna 5, "b"
koniec

ramka od #X,#Y,400,400,1