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
