Curioso!

I needed to convert lots of Word files to PDF. This script automates the second step, convert Postscript to PDF.

use Win32;
use Win32::API;
use Win32::OLE;
use Win32::OLE qw(in);

sub ps2pdf {
	my $psfile = shift;
	my $pdffile = shift;
	my $distiller = Win32::OLE->new('PDFDistiller.PDFDistiller.1')
		or die Win32::OLE->LastError;
	$distiller->FileToPDF($psfile, $pdffile, 'Print');
}

This entry was posted on Friday, 5 Nov 2004 at 14:11 (last modified: 19 May 2005) and is filed under Hacks, Perl. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.