# Shrinkage caused by TableForm

Writing:

table = {{Style[
ToString[Subscript["\[Eta]", "1"], StandardForm] <> " = " <>
ToString[a b/2, StandardForm], FontFamily -> "Consolas",
FontSize -> 16, Black]},
" ", {Style[
ToString[Subscript["\[Eta]", "2"], StandardForm] <> " = " <>
ToString[c d/2, StandardForm], FontFamily -> "Consolas",
FontSize -> 16, Black]}}


I get:

while writing:

TableForm[table]


I get:

where it is evident that the fractions are reduced. How can I avoid this shrinking?

Use ScriptLevel somewhere. For example:

table
TableForm[Style[table, ScriptLevel->0]]


I will include ScriptLevel->0 in one of your table entries but not the other so you can see the difference.

table = {
{
Style[
ToString[Subscript["\[Eta]","1"],StandardForm]<>" = "<>ToString[a b/2,StandardForm],
FontFamily->"Consolas",FontSize->16,Black, ScriptLevel->0
]
},
" ",
{
Style[
ToString[Subscript["\[Eta]","2"],StandardForm]<>" = "<>ToString[c d/2,StandardForm],
FontFamily->"Consolas",FontSize->16,Black
]
}
};

TableForm[table]


• @Carl_Woll: thank you so much! Forgive me, but I think I have not posted a sufficiently accurate example. Now the problem should be clearer. Thanks again!
– TeM
Mar 7 '18 at 17:07
• Simply perfect! I never thought of positioning it at that point!
– TeM
Mar 7 '18 at 17:27