Has anyone tried to create a text file with embedded printer codes and then have that file printed to a windows printer?

Here is the code I was testing with which does not seem to work...

Break On
Color w+/b
Cls

; Printer Codes

$esc = Chr(27)
$norm = $esc + "(10U" + $esc + "(s0p10.00h12.0v0s0b0T" + $esc + "&d@@"
$cond = $esc + "(10U" + $esc + "(s0p16.67h8.5v0s0b0T"
$bold = $esc + "(s3B"
$italic = $esc + "(s1S"
$und = $esc + "&d0D"

$filename = "C:\Admin\KixPrint.txt"
Del $filename
If Open(1,$filename,5) = 0
$text = $norm + "Testing for " + $bold + " a laser Printer" + $norm Gosub PrintLine
$text = $norm + @DATE + " " + @TIME Gosub PrintLine
$text = $norm + "Normal" Gosub PrintLine
$text = $cond + "Condensed" + $norm Gosub PrintLine
$text = $bold + "Bold" + $norm Gosub PrintLine
$text = $italic + "Italic" + $norm Gosub PrintLine
$text = $und + "Underline" Gosub PrintLine
$text = $italic + $und + "Underlined Italic" + $norm Gosub PrintLine
$rc = Close(1)
?
? "Done..."
Sleep 2
Else
?
? "Cannot open $filename..."
Get $x
Endif

Exit


:PrintLine
$rc = WriteLine(1,$text + @CrLf)
Return



Thanks,

Alan