<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2900.5512" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Verdana size=2> Boa tarde a todos da lista...
novamente peço sua ajuda.</FONT></DIV>
<DIV><FONT face=Verdana size=2></FONT> </DIV>
<DIV><FONT face=Verdana size=2> Estou tendo que publicar
relatorios ( salvar se necessário e imprimir) mas este em pdf... sem
problema... estou usando o modulo PDF::API2; mas não entendi direito a parte de
formatação do arquivo.</FONT></DIV>
<DIV><FONT face=Verdana size=2></FONT> </DIV>
<DIV><FONT face=Verdana size=2> Veja, tenho uma variavel
'$conteudo' que pode ser (por exemplo) o retorno de uma
consulta no banco mysql. </FONT></DIV>
<DIV><FONT face=Verdana size=2></FONT> </DIV>
<DIV><FONT face=Verdana size=2> Quando gero o arquivo, o mesmo
é construido... mas as lihnas não cabem na pagina... não sei como acertar o
conteudo da vaiavel de forma a caber corretamente na folha, ou seja as quebras
de paginas e tudo mais.</FONT></DIV>
<DIV><FONT face=Verdana size=2></FONT> </DIV>
<DIV><FONT face=Verdana size=2> Queria saber o que faz estas
duas linhas</FONT></DIV>
<DIV><FONT face=Verdana size=2>
$pdf->mediabox(595,842);</FONT></DIV>
<DIV><FONT face=Verdana size=2> $txt->translate(100,800);
(sei que aqui é o posicionamento do texto.... mas nao consegui acertar na
página)<BR></FONT></DIV>
<DIV><FONT face=Verdana size=2></FONT> </DIV>
<DIV><FONT face=Verdana size=2></FONT> </DIV>
<DIV><FONT face=Verdana
size=2>#######################################</FONT></DIV>
<DIV><FONT face=Verdana size=2>#TRECHO DO CODIGO QUE GERA O PDF</FONT></DIV>
<DIV><FONT face=Verdana
size=2>#######################################</FONT></DIV>
<DIV><FONT face=Verdana size=2></FONT> </DIV>
<DIV><FONT face=Verdana size=2>my $pdf = PDF::API2->new(-file =>
"Relatorio.pdf");<BR>$pdf->mediabox(595,842);<BR>my $page =
$pdf->page;<BR>my $fnt = $pdf->corefont('Verdana',-encoding =>
'latin1');<BR>my $txt =
$page->text;<BR>$txt->textstart;<BR>$txt->font($fnt,
20);<BR>$txt->translate(100,800);<BR>$txt->text($conteudo);<BR>$txt->textend;<BR>$pdf->save;<BR>$pdf->end(
);</FONT></DIV>
<DIV><FONT face=Verdana size=2></FONT> </DIV>
<DIV><FONT face=Verdana size=2></FONT> </DIV>
<DIV><FONT face=Verdana size=2>fiz o codigo seguindo o exemplo do modulo que
instalei... se alguem tiver outro caminho para as pedras eu agradeço. o que acho
que pode ser melhor.</FONT></DIV>
<DIV><FONT face=Verdana size=2>lembrando que rodo activeperl 5.8</FONT></DIV>
<DIV><FONT face=Verdana size=2></FONT> </DIV>
<DIV><FONT face=Verdana size=2>A todos obrigado</FONT></DIV>
<DIV><FONT face=Verdana size=2></FONT> </DIV>
<DIV><FONT face=Verdana size=2></FONT> </DIV>
<DIV><FONT face=Verdana size=2>Ricardo Stock<BR><A
href="mailto:ricardostock@bol.com.br">ricardostock@bol.com.br</A></FONT></DIV></BODY></HTML>