Since this discussion went off-list, I'll summarize ... The Win32::Printer module is available built with FreeImage, at the bribes repository, at least.
Mario succeeded in printing a .jpeg using the $dc->Image command, the 3 argument version. I found that the 5 argument version of $dc->Image allowed printing of .tif files. Look in the documentation of Win32::Printer, especially for the Image method. That should give the results you're looking for, with a little effort. Ed Zarger wrote: > I don't have my code here now, but I know that Win32::Printer can work > well with .tif files. > > In order to print a .tif file, you need the FreeImage.dll library > (freely available from sourceforge). > My first idea is that you may not have that, or your Win32::Printer may > not have been built with that. I'm not sure if the CPAN available > modules were built with FreeImage. If not, it must have been easy to > build them with mingw, since that's how I would have done it. > > I'll look at my code at my other computer tomorrow, if I can, and let > you know if any other ideas jump out at me. > > Ed Z > > Goerres, Mario wrote: >> Hi @ll, >> >> >> >> I have problems with the Module Win32::Printer. >> >> If I print a document with write and brush, how it make in the example, >> I get an positve result. >> >> >> >> Now, I will to print an image and I get an blanko paper. Where is my >> mistake? >> >> >> >> My code: >> >> >> >> use Win32::Printer ; >> >> >> >> $filename = "E:\\test\\09696395.tif" ; >> >> >> >> my $dc = new Win32::Printer( >> >> papersize => A4, >> >> dialog => NOSELECTION , >> >> description => ‚Test Image', >> >> unit => 'mm' >> >> ); >> >> >> >> $dc->PBegin(); >> >> >> >> $image_handle = $dc->Image( $filename ); >> >> >> >> ($width, $height) = $dc->Image( $filename ); >> >> >> >> >> >> $dc->PEnd(); >> >> $dc->PDraw( ); >> >> >> >> # $dc->End(); >> >> $dc->Close(); >> >> >> >> I tried it with PBegin() and PEnd() Tags and I tried without it. The >> result will be a blanko paper. >> >> >> >> I hope you could help me. >> >> >> >> >> >> Best wishes >> >> Mario >> >> >> >> >> ------------------------------------------------------------------------ >> >> _______________________________________________ >> Perl-Win32-Users mailing list >> Perl-Win32-Users@listserv.ActiveState.com >> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs > > > _______________________________________________ > Perl-Win32-Users mailing list > Perl-Win32-Users@listserv.ActiveState.com > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs > _______________________________________________ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
