PDF::FromHTML如何生成PDF文件呢？

minirain

用了唐凤的模块PDF::FromHTML不能生成PDF文件，提示：
D:\2.2c\Mht2Pdf>mht2pdf.pl
C:\Users\mike\AppData\Local\Temp\Dk5szvMhoP.xml: 'TABLE' (width 100%) didn't make a node!
Error removing C:\Users\mike\AppData\Local\Temp\Dk5szvMhoP.xml at C:/Perl/lib/File/Temp.pm line 890, <INFILE> line 1.
用的PDF::FromHTML0.31版，在Win7下安装Active Perl5.14，模块安装正常！
minirain
20121029

dgww

1. use strict;
   
2. use warnings;
   
3. 
   
4. use PDF::API2;
   
5. 
   
6. use constant mm => 25.4 / 72;
   
7. use constant in => 1 / 72;
   
8. use constant pt => 1;
   
9. my $pdf = PDF::API2->new( -file => "$0.pdf" );
   
10. my $picture1="Google Image Result for https---www.dnssec-tools.org-wiki-images-2-2f-Dt-zabbix-dnssec-rollover01.png.png";
    
11. my $picture2="Google Image Result for https---www.dnssec-tools.org-wiki-images-6-6e-Dt-zabbix-uem-dnsresp02.png.png";
    
12. my $picture3="Google Image Result for https---www.dnssec-tools.org-wiki-images-6-6e-Dt-zabbix-uem-dnsresp03.png.png";
    
13. my $page = $pdf->page;
    
14. # width, height
    
15. $page->mediabox( 210 / mm, 297/mm);
    
16. #$page->mediabox( 768,1280);
    
17. #$page->bleedbox(  5/mm,   5/mm,  100/mm,  143/mm);
    
18. #$page->cropbox( 7.5 / mm, 7.5 / mm, 97.5 / mm, 140.5 / mm );
    
19. #$page->artbox  ( 10/mm,  10/mm,   95/mm,  138/mm);
    
20. 
    
21. my %font = (
    
22.     Helvetica => {
    
23.         Bold   => $pdf->corefont( 'Helvetica-Bold',    -encoding => 'latin1' ),
    
24.         Roman  => $pdf->corefont( 'Helvetica',         -encoding => 'latin1' ),
    
25.         Italic => $pdf->corefont( 'Helvetica-Oblique', -encoding => 'latin1' ),
    
26.     },
    
27.     Times => {
    
28.         Bold   => $pdf->corefont( 'Times-Bold',   -encoding => 'latin1' ),
    
29.         Roman  => $pdf->corefont( 'Times',        -encoding => 'latin1' ),
    
30.         Italic => $pdf->corefont( 'Times-Italic', -encoding => 'latin1' ),
    
31.     },
    
32. );
    
33. 
    
34. 
    
35. 
    
36. my $photo = $page->gfx;
    
37. die("Unable to find image file: $!") unless -e $picture1;
    
38. my $photo_file = $pdf->image_png($picture1);
    
39. #$photo->image( $photo_file, 180 / mm, 66 / mm, 41 / mm, 57 / mm );
    
40. #$photo->image( $photo_file, 5 / mm, 120 / mm, 500 / mm, 60 / mm );
    
41. $photo->image( $photo_file, 10/mm , 220/mm ,150/mm,60/mm );
    
42. 
    
43. 
    
44. $photo_file = $pdf->image_png($picture2);
    
45. $photo->image( $photo_file, 10/mm , 140/mm ,140/mm,52/mm );
    
46. 
    
47. $photo_file = $pdf->image_png($picture3);
    
48. $photo->image( $photo_file, 10/mm , 80/mm ,112/mm,38/mm );
    
49. 
    
50. $pdf->save;
    
51. $pdf->end();

复制代码