rsfpdf/EJEMPLO2.rbbas
2011-07-30 11:20:16 -05:00

1 line
No EOL
1.4 KiB
Text

#tag Class
Protected Class EJEMPLO2
Inherits fpdf
#tag Method, Flags = &h1
Protected Sub Footer()
//Posición: a 1,5 cm del final
self.SetY(-15)
//Arial italic 8
self.SetFont("Arial","I",8)
//Número de página
self.Cell(0,10,"Page " + str(self.PageNo()) + "/{nb}",0,0,"C")
End Sub
#tag EndMethod
#tag Method, Flags = &h1
Protected Sub Header()
//Logo
self.Image("demoinfo/logo_rpdf.png",10,8)
//Arial bold 15
self.SetFont("Arial","B",15)
//Movernos a la derecha
self.Cell(80)
//Título
self.Cell(30,10,"Title",1,0,"C")
//Salto de línea
self.Ln(20)
End Sub
#tag EndMethod
#tag ViewBehavior
#tag ViewProperty
Name="Index"
Visible=true
Group="ID"
InitialValue="-2147483648"
InheritedFrom="Object"
#tag EndViewProperty
#tag ViewProperty
Name="Left"
Visible=true
Group="Position"
InitialValue="0"
InheritedFrom="Object"
#tag EndViewProperty
#tag ViewProperty
Name="Name"
Visible=true
Group="ID"
InheritedFrom="Object"
#tag EndViewProperty
#tag ViewProperty
Name="Super"
Visible=true
Group="ID"
InheritedFrom="Object"
#tag EndViewProperty
#tag ViewProperty
Name="Top"
Visible=true
Group="Position"
InitialValue="0"
InheritedFrom="Object"
#tag EndViewProperty
#tag EndViewBehavior
End Class
#tag EndClass