print to a printer from Max/Jitter

for reference, this Perl script does the following:
opens a word document and run appointed macro on it (the macro saves doc
file as unicode txt file), it then creates new text files containing only
one line, in reversed char order (Hebrew support is hell).
using imagemagic it then convert each one line txt file into a gif file. for
max to use.

#!/usr/bin/env perl
use Win32::OLE;
use File::DosGlob;
use utf8;
# Launch new instance of Word
my $wrd = Win32::OLE->new('Word.Application');

$wrd->{'Visible'} = 0;

# First argument to script is the name of the macro
my $macro_to_run = shift @ARGV;

# Everything else is a document on which to run macro
foreach $arg (@ARGV) {

# Expand any wildcards that might be in the argument
#the current word macro turns a doc into a unicode txt file
foreach $file (File::DosGlob::glob($arg)) {
my $file_full_name = Win32::GetFullPathName($file);
my $doc = $wrd->{'Documents'}->Open($file_full_name);
$wrd->Run($macro_to_run);
$doc->Close();
###end of word macro
$filename= $arg.'.txt' ;
open FILE, "$filename"; #opens the newly created txt file
binmode(FILE, ":utf8"); #make it unicode as we are working in hebrew
@lines = ;
#now the each word is reversed and each line is outputed
# into a sequance of txt lines one line per file
$a=0;
do{
$tempdel = "tmp$a".'.txt' ;
open FH, ">:utf8", "$tempdel" ;
@letters=split (//,$lines[$a]);
print FH reverse @letters ; #prints to hebrew
# This is the full path to the convert element from imagemagic.
#this takes the indevidual txt files and convert them to jpg's
#this script is a (primitive) hebrew subtitle creator
$imagelibpath = 'convert.exe -background black -pointsize 36 -fill
white -gravity Center label:@'.$tempdel." " .$tempdel.'.gif';
system $imagelibpath ;
$a++ ;
} while($a

}
}
#delete temp txt files
unlink ;
$wrd->Quit(); #end prog

2006/9/1, yair reshef :
>
> i second doing this with perl+imagemagik thru a batch files (done in
> windowz)
>
> 2006/9/1, mattyo < news@ostrowski.info>:
>
> > I don't know if this is useful information, but I've successfully run
> > Perl scripts in shell which call imagemagick.....
> >
> > M
> >
> >
> > On Aug 31, 2006, at 2:01, pnyboer wrote:
> >
> > >
> > > Thanks for the helps!
> > > Applescript is a possibility...I started going the shell route,
> > > which worked...almost. Of course my printer doesn't seem to
> > > support the lpr option "ppi" so it want to prints big at low-res.
> > > Imagemagick was then installed, which works from Terminal, but the
> > > same command thru the shell object doesn't do the trick:
> > >
> > > convert -density 200 /Volumes/HardDrive/Users/me/Desktop/test.tif /
> > > Volumes/HardDrive/Users/me/test2.tif
> > >
> > > Has anyone used imagemagick with shell? Hmmm...very attractive fi i
> > > git it werkin'...
> > >
> > > P.
> > >
> >
> >
>
>