50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
variable ox2
variable oy
variable page
constructor {args} {
set tmp(-file) $options(-file)
catch {array set tmp $args}
install pdf using pdf4tcl::pdf4tcl %AUTO% -compress 1 \
-landscape 1 -paper a4 -margin 15mm -file $tmp(-file)
$self configurelist $args
$self StartPrint
}
destructor {
catch {$pdf destroy}
}
|
|
|
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
variable ox2
variable oy
variable page
constructor {args} {
set tmp(-file) $options(-file)
catch {array set tmp $args}
install pdf using pdf4tcl::new %AUTO% -compress 1 \
-landscape 1 -paper a4 -margin 15mm -file $tmp(-file)
$self configurelist $args
$self StartPrint
}
destructor {
catch {$pdf destroy}
}
|