diff --git a/WolframLanguageForJupyter/Resources/Initialization.wl b/WolframLanguageForJupyter/Resources/Initialization.wl
index 6d59d54..b2c3b75 100644
--- a/WolframLanguageForJupyter/Resources/Initialization.wl
+++ b/WolframLanguageForJupyter/Resources/Initialization.wl
@@ -9,6 +9,7 @@ Symbols defined:
 	applyHook,
 	$canUseFrontEnd,
 	$outputSetToTraditionalForm,
+	$outputSetToTeXForm,
 	$trueFormatType,
 	connectionAssoc,
 	bannerWarning,
@@ -98,7 +99,16 @@ If[
 	$canUseFrontEnd := (UsingFrontEnd[$FrontEnd] =!= Null);
 
 	$outputSetToTraditionalForm := (Lookup[Options[$Output], FormatType] === TraditionalForm);
-	$trueFormatType := If[$outputSetToTraditionalForm, TraditionalForm, #&];
+	$outputSetToTeXForm := (Lookup[Options[$Output], FormatType] === TeXForm);
+	$trueFormatType :=
+		Which[
+			$outputSetToTraditionalForm,
+			TraditionalForm,
+			$outputSetToTeXForm,
+			TeXForm,
+			True,
+			Identity
+		];
 
 	(* obtain details on how to connect to Jupyter, from Jupyter's invocation of "KernelForWolframLanguageForJupyter.wl" *)
 	connectionAssoc = ToString /@ Association[Import[$CommandLine[[4]], "JSON"]];
diff --git a/WolframLanguageForJupyter/Resources/OutputHandlingUtilities.wl b/WolframLanguageForJupyter/Resources/OutputHandlingUtilities.wl
index d99c7b3..2f24222 100644
--- a/WolframLanguageForJupyter/Resources/OutputHandlingUtilities.wl
+++ b/WolframLanguageForJupyter/Resources/OutputHandlingUtilities.wl
@@ -28,7 +28,8 @@ If[
 		files
 *************************************)
 
-	Get[FileNameJoin[{DirectoryName[$InputFileName], "Initialization.wl"}]]; (* $canUseFrontEnd, $outputSetToTraditionalForm
+	Get[FileNameJoin[{DirectoryName[$InputFileName], "Initialization.wl"}]]; (* $canUseFrontEnd, $outputSetToTeXForm,
+																					$outputSetToTraditionalForm,
 																					$trueFormatType *)
 
 (************************************
@@ -105,6 +106,12 @@ If[
 			Return[True]
 		];
 
+		(* if the FormatType of $Output is set to TeXForm, or if the expression is wrapped with TeXForm,
+			and the expression has an acceptable textual form, format as text *)
+		If[($outputSetToTeXForm || exprHead == TeXForm) && !containsPUAQ[ToString[expr]],
+			Return[True];
+		];
+
 		(* if the FormatType of $Output is set to TraditionalForm,
 			or if the expression is wrapped with TraditionalForm,
 			do not use text *)
@@ -172,23 +179,57 @@ If[
 
 	(* generate HTML for the textual form of a result *)
 	toOutText[result_] := 
-		StringJoin[
-			(* preformatted *)
-			"<pre style=\"",
-			(* use Courier *)
-			StringJoin[{"&#", ToString[#1], ";"} & /@ ToCharacterCode["font-family: \"Courier New\",Courier,monospace;", "Unicode"]], 
-			"\">",
-			(* the textual form of the result *)
-			(* NOTE: the OutputForm (which ToString uses) of any expressions wrapped with, say, InputForm should
-				be identical to the string result of an InputForm-wrapped expression itself *)
-			StringJoin[{"&#", ToString[#1], ";"} & /@ 
-				ToCharacterCode[
-					(* toStringUsingOutput[result] *) ToString[result],
-					"Unicode"
+		Module[
+			{isTeXWrapped, isTeXFinal},
+			(* check if this result is wrapped with TeXForm *)
+			isTeXWrapped = (Head[result] === TeXForm);
+			(* check if this result should be marked, in the end, as TeX *)
+			isTeXFinal = isTeXWrapped || $outputSetToTeXForm;
+			Return[
+				StringJoin[
+
+					(* mark this result as preformatted only if it isn't TeX *)
+					If[
+						!isTeXFinal,
+						{
+							(* preformatted *)
+							"<pre style=\"",
+							(* use Courier *)
+							StringJoin[{"&#", ToString[#1], ";"} & /@ ToCharacterCode["font-family: \"Courier New\",Courier,monospace;", "Unicode"]], 
+							"\">"
+						},
+						{}
+					],
+
+					(* mark the text as TeX, if is TeX *)
+					If[isTeXFinal, "&#36;&#36;", ""],
+
+					(* the textual form of the result *)
+					(* NOTE: the OutputForm (which ToString uses) of any expressions wrapped with, say, InputForm should
+						be identical to the string result of an InputForm-wrapped expression itself *)
+					({"&#", ToString[#1], ";"} & /@ 
+						ToCharacterCode[
+							(* toStringUsingOutput[result] *)
+							Quiet[
+								ToString[If[!isTeXWrapped, $trueFormatType[result], result]]
+							],
+							"Unicode"
+						]),
+
+					(* mark the text as TeX, if is TeX *)
+					If[isTeXFinal, "&#36;&#36;", ""],
+
+					(* mark this result as preformatted only if it isn't TeX *)
+					If[
+						!isTeXFinal,
+						{
+							(* end the element *)
+							"</pre>"
+						},
+						{}
+					]
 				]
-			],
-			(* end the element *)
-			"</pre>"
+			];
 		];
 
 	(* generate HTML for the rasterized form of a result *)