Expand then print

[Back]

Pipes the selection or file through expand before sending it to the printer.

if ($selection_start == -1)
{
   p = dialog("Print file on:", "fir", "lwself", "Cancel")
   save()
}
else
   p = dialog("Print selection on:", "fir", "lwself", "Cancel")

if (p==1) pn="fir"
if (p==2) pn="lwself"

if (p < 3 && p > 0)
{
   if ($selection_start != -1)
      shell_command("expand -"$tab_dist" | lpr -P"pn" -J "$file_name" (selection)", get_selection())
   else
      shell_command("expand -"$tab_dist" | lpr -P"pn" -J "$file_name, get_range(0, $text_length))
}

Released on  Wed, 21 Nov 2001  by C. Denat