Hallo zusammen,
ich versuche schon eine ganze Weile, einem bestehenden PDF einen Notizzettel hinzuzufügen. Das klappt auch, aber der Notizzettel ist leer. Ich kann keinen Text zum generierten Notizzettel hinzufügen. Trotz vielem "googeln" bin ich auf keine Lösung gestossen.
Hier mein Script:
---snip---
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
#!/usr/bin/perl
use PDF::API2;
use PDF::API2::Annotation;
use PDF::API2::Content;
use diagnostics;
use utf8;
use warnings;
use strict;
my ($pdf, $page, $annot, $text, @text, $txt, %option, $name, @txt, $pagenumber, $url);
$pdf = PDF::API2->open("31746_ST4A_B-GR.pdf");
$page = $pdf->openpage(1);
$annot=$page->annotation;
%option =(
-open=>(1),
-rect=>[0,0,0,50]
);
$annot->text("test",%option);
$pdf->saveas("document.pdf");
$pdf->end;
---snap---
Weiss jemand Rat?
Besten Dank zum Voraus!
kaeser\n\n
<!--EDIT|renee|1118068111-->