13/03/2007, 13:06
|
| Colaborador | | Fecha de Ingreso: febrero-2007 Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 17 años, 8 meses Puntos: 88 | |
Re: FPDF completo? chaval, aki tienes este codigo, supongo que ya descargaste todo lo referente a este codigo, asi que te pongo el ejemplo de como realizar , fue una lectura interesante ese post, ya que verinchi y los otros muchachos escruñeron todo para poder sacar las cosas
. te paso el codigo de una pagina brasileña donde este muchacho se tomo el tiempo de poner un ejemplo completo, solo elimina las partes de las imagenes ya que pues no las teneis, ok? va pues
Código:
<!--#include file="fpdf.asp"-->
<%
'###############################################################################
'# Autor : Eduardo Gonçalves, www.edugs.com.br #
'# Criacao : 20/10/2005 #
'###############################################################################
Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF "P", "mm", "A4"
pdf.SetPath("fpdf/")
pdf.LoadExtension("table")
pdf.SetFont "Arial", "", 10
pdf.Open()
pdf.AddPage()
pdf.SetLeftMargin 10
'-------------- Table 1 ---------------------
pdf.SetTextColor 255, 255, 255'Text White
pdf.SetFont "arial", "B", 10
pdf.SetColumns 50, 50, 50 'Number of the Columns
pdf.Table.LineH = 4
pdf.SetStyles "B", "B", "B"
pdf.SetAligns "C", "C", "C"
pdf.SetBorders "B", "B", "B"
pdf.SetFills "942730", "375938", "336699"
pdf.Row "Coluna 01 ", "Coluna 02 ", "Coluna 03 "
pdf.Ln(0.1)
pdf.SetTextColor 0, 0, 0 'Text Black
pdf.SetAligns "L", "L", "L" 'Reset Align to LEFT
pdf.SetFills "B66369", "B1CA93", "8FB7CF" 'Reset Color of the Cells
pdf.SetStyles "", "", "" 'NO BOLD
For i=1 to 5
pdf.Row "linha("&i&") / Coluna 1", "linha("&i&") / Coluna 2", "linha("&i&") / Coluna 3"
pdf.Ln(0.2)
Next
pdf.ln(5)
pdf.Image "Penta.jpg", pdf.GetX(), pdf.GetY(), 0
'-------------- Table 2 ---------------------
pdf.SetX(pdf.getImageW()+10)
pdf.SetTextColor 255, 255, 255'Text White
pdf.SetColumns 80, 30 'Number of the Columns
pdf.Table.LineH = 4
pdf.SetStyles "", "B"
pdf.SetAligns "J", "J" 'texts in justify
pdf.SetBorders 0, 0
pdf.SetFills "003277", "FEB200"
pdf.Row "Queimei a língua, queimei gordura, queimei tudo... Ainda bem!!!! É PENTA!!!! E não é que a família Scolari conseguiu ganhar a Copa? Até a defesa jogou bem! É claro que eu continuo apaixonada por Kléberson e Gilberto Silva! Como diria o penta pentelho Galvão Bueno: 'Uns monstros em campo.' Aliás, o Galvão deu pelo menos uma dentro. Essa seleção é de monstros mesmo! Dentro e fora de campo! Mas agora é tudo festa. Viva Ronaldo Buça na Cabeça, Ronaldinho Dentama de Ouro e Rivaldo suvaco Raspado!!!! Viva Brasil!!! PENTACAMPEÕES!!!!! ", "Penta!!"
pdf.Close()
pdf.Output
%>
y myakire, no se desanime, |