Built-in Mathematica Symbol

AccountingForm

AccountingForm[expr]
prints with all numbers in expr given in standard accounting notation.

AccountingForm[expr, n]
prints with numbers given to n-digit precision.

DigitBlock	Infinity	number of digits between breaks
ExponentFunction	Automatic	function to apply to exponents
ExponentStep	1	steps by which exponents can increase
NumberFormat	Automatic	function used to assemble mantissa, base, and exponent
NumberMultiplier	""	string to use to indicate multiplication
NumberPadding	{"",""}	strings to use for left and right padding
NumberPoint	"."	decimal point string
NumberSeparator	{","," "}	string to insert at breaks between blocks
NumberSigns	{{"(",")"},""}	strings to use for signs of negative and positive numbers
SignPadding	False	whether to insert padding after the sign

In accounting form negative numbers and scientific notation are not used:

Out[1]//AccountingForm=