How about using Tuples:

Tuples[{1, 2}, 4] // MatrixForm

This is a job for ArrayReshape

r = Table[{i, j, k, L0},
  {i, 1, 2},
  {j, 1, 2},
  {k, 1, 2},
  {L0, 1, 2}]
  (ArrayReshape[r, {16, 4}]) // MatrixForm

ps. in this specific case, as was mentioned above, Tuples[{1, 2}, 4] will do the same and much easier.

Thank you all guys, at this moment I have done in this way:

Table[KroneckerProduct[misure[[i]], misure[[j]], misure[[k]], 
   misure[[l]]], {i, 1, 2}, {j, 1, 2}, {k, 1, 2}, {l, 1, 2}];
Flatten[%];
linearvectors = ArrayReshape[%, {16, 1, 16}];

Is there any way to put all those commands in one line? (I'm sorry for those idiot questions, this is my second day using mathematica and I had no time to read a manual :( )