Leser: 2
4 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
use dipp::PDF::API2;
use CGI;
my $q = CGI->new();
my $pdf = new dipp::PDF::API2;
my $page = $pdf->page;
my $gfx = $page->gfx;
my $bfont = $pdf->ttfont('fonts/arial.ttf', -encoding => 'latin1'); #'latin1' oder 'utf8'
print $q->header(-type => 'application/pdf', -attachment => 'dipp_process.pdf', -charset => 'latin1', -expires => '0s'); #'latin1' oder 'utf8'
$page->mediabox (612, 792);
$txt = $page->text;
$txt->font ($bfont, 12);
$txt->translate (32, 634);
$txt->text ('Fax');
print $pdf->stringify;
my $bfont = $pdf->corefont('Arial',-encode=>'latin1');
4 Einträge, 1 Seite |