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:\Temp\KixPrint.txt"
Del $filename
If Open(1,$filename,5) = 0

  $text = $norm + "Testing for " + $bold + " a laser Printer" + $norm + @CRLF
  $text = $text + $norm + @DATE + " " + @TIME + @CRLF
  $text = $text + $norm + "Normal" + @CRLF
  $text = $text + $cond + "Condensed" + $norm + @CRLF
  $text = $text + $bold + "Bold" + $norm + @CRLF
  $text = $text + $italic + "Italic" + $norm + @CRLF
  $text = $text + $und + "Underline" + @CRLF
  $text = $text + $italic + $und + "Underlined Italic" + $norm + @CRLF

  Len($text) ' characters to write' ?

  $rc = WriteLine(1, $text)
  @SERROR ?

  $rc = Close(1)
  ?
  "Done..." ?
Else
  ?
  ? "Cannot open $filename..."
  Get $x
Endif

'File contains: ' ?
Display $Filename


Use LPT1: \\PrintServer\HPLJ4200m
@SERROR ?

Copy $Filename LPT1: