簡體   English   中英

由wkhtmltopdf創建的pdf每頁中的表格標題

[英]Table header in every page of pdf created by wkhtmltopdf

我正在使用wkhtmltopdf-amd64創建pdf。 我向此perl文件發送了一個字符串,該字符串是javascript中的表格。Pdf已正確創建,但問題出在第二頁和其他頁面上,我也想要表格標題。 這是我的perl程序。請幫助...。

#!/usr/bin/perl
use CGI;
use CGI qw/param/;  
use URI::Escape; 
use strict;
use Data::Dumper;
use User;
use ADMIN;
use WORKFLOW;
use Time::Piece;
use User;
use HTML::Entities;
use lib "../utils";

use lib "../cgi";
use CGI::Carp qw(fatalsToBrowser);
use Date::Calc qw(:all);
use POSIX 'strftime';
use POSIX;
use configured_mail;
use PSESSION;
use 5.010;
use Time::Piece;
use URI::Escape; 
 use MIME::Base64;


my $userobj = User -> new();
my $BASEPATH = $userobj ->getAppBasePath();
my $URLBASEPATH = $userobj->getAppBaseUrl();
# my $admin_obj = ADMIN->new($proj,$username);
#my $proj;
#my $username;

my $query = CGI->new(); 
my $CGISESSID = $query->param('CGISESSID');

my $ps = PSESSION->new();
my $ps_outref = $ps->getSessionData("$CGISESSID");
my $proj = $ps_outref->{'proj'};

my ($pdffile,$htmlfile,$curtime);
our $PageNo;

sub generate_pdf
{
                my $file = shift @_;
                my $pdf_path = shift @_;

                my $curtime= localtime(time);
                $curtime =~ s/ /_/g;
                $curtime =~ s/:/_/g;    
                my $time=$curtime;
                $curtime=$pdf_path;

                $htmlfile ="$BASEPATH/macro/$proj/PDF_Report/".$curtime.".html";
                $pdffile="$BASEPATH/macro/$proj/PDF_Report/".$curtime.".pdf";
                open(INFO, ">$htmlfile");
                print INFO $file;
                close(INFO);


                system "../bin/wkhtmltopdf-amd64 -B 15 -L 15 -R 15 --zoom 1.00 --margin-top 10 --footer-spacing 3 --footer-left 'Page:[page]' --footer-right 'Date:$time' --header-center 'BenchMark Report' --footer-center 'Tata Technologies Ltd.' --footer-font-size 12 --header-font-size 15 -O landscape $htmlfile $pdffile";


              return 1;


}
1; 

一種解決方案是創建一頁pdf文件的集合,每頁一個,然后將它們加入最終的PDF中。

 if (@pdfFilenames > 1){
    my $filenameString = join(' ',@pdfFilenames);
    `pdfunite   $filenameString   joinedFinalAllCombinedPDFfilename.pdf `;
    `rm $filenameString `;
        :
        :
  }

使用pdfunite命令行應用程序。 還有其他合並PDF的方法,例如非常有用的pdftk(它不是Tk應用程序,AFAIK)

pdftk A=a-doc.pdf B=bbbbb.pdf C=file3.pdf D=page4.pdf\
        cat     C D A1-10 B18 B2 A400-4-2  \
        output  combined.pdf

暫無
暫無

聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.

 
粵ICP備18138465號  © 2020-2024 STACKOOM.COM