aqui otra forma de crear PDF desde ASP

[lexus]

Código:

 Class TextObject
	 Public default Property Get ClassName() 'As FontStyles
	  ClassName = "TextObject"
	 End Property
	 Dim m_Text 'As String
	 Dim m_Font 'As FontObj
	 Public FontSize 'As Integer
	 Private Sub Class_Initialize()
	  Set m_Font = New CFontObj
	  FontSize = 10
	 End Sub
	 Public Property Get FontStyle() 'As FontStyles
	  FontStyle = FontObj.FontStyle
	 End Property
	 Public Property Let FontStyle(ByVal MyStyle)
	  m_Font.FontStyle = MyStyle
	 End Property
	 Public Property Get Font() 'As Fonts
	  Font = m_Font.Font
	 End Property
	 Public Property Let Font(ByVal myFont)
	  m_Font.Font = myFont
	 End Property
	 Public Property Get Text() 'As String
	  Text = m_Text
	 End Property
	 Public Property Let Text(ByVal myText)
	  m_Text = myText
	 End Property
	 Public Property Get FontObj() 'As FontObj
	  Set FontObj = m_Font
	 End Property
	 Public Property Set FontObj(ByVal myFont)
	  Set m_Font = myFont
	 End Property
	End Class
	'===================
	function GetPdfFormatedDate()
	 GetPdfFormatedDate = year(Now) & _
	  PadLeftWithZeros(month(now),2) & _
	  PadLeftWithZeros(day(now),2) & _
	  PadLeftWithZeros(hour(now),2) & _
	  PadLeftWithZeros(minute(now),2) & _
	  PadLeftWithZeros(second(now),2)
	End function
	function PadLeftWithZeros(sValue,iSize)
	 PadLeftWithZeros = right("00000000" + trim(sValue),iSize)
	 End function
	 function StringToMultiByte(S)
	 Dim i, MultiByte
	 For i=1 To Len(S)
	 MultiByte = MultiByte & ChrB(Asc(Mid(S,i,1)))
	 Next
	 StringToMultiByte = MultiByte
	End function
	%>

espero les sea de gran utilidad, segun lo leido funciona sin necesidad de ningun componente, solo con asp.. suerte, nos comentan como les fue.. y ke ventajas trae sobre la otra forma posteada en mensajes anteriores de como crear asp con pdf sin componentes.


pagina de donde fue extraido el codigo: http://www.planet-source-code.com/UR...!4/anyname.htm