Opened by HerbertH at 2014-12-23 16:08
Mein Text wird nicht in eine neue Zeile umgebrochen.
Ich habe erwartet das von dem lo...oong der Rest in die nächste Zeile rutscht wenn kein Platz mehr auf dem Blatt ist. Habe ich vielleicht eine Option vergessen? Danke für eure Tipps.
Hier der Code
Last edited: 2014-12-23 16:14:37 +0100 (CET)
Ich habe erwartet das von dem lo...oong der Rest in die nächste Zeile rutscht wenn kein Platz mehr auf dem Blatt ist. Habe ich vielleicht eine Option vergessen? Danke für eure Tipps.
Hier der Code
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/usr/bin/perl -w
use strict;
use PDF::API2::Simple;
my $pdf = PDF::API2::Simple->new(
file => 'new.pdf',
width => 595,
height => 842,
);
$pdf->add_font('Verdana');
$pdf->add_page();
my $long = "lo";
$long .= "o"x100;
$long .="ng";
$pdf->text($long, autoflow => 'on');
$pdf->text($long, autoflow => 'on');
$pdf->save();
Last edited: 2014-12-23 16:14:37 +0100 (CET)