OT - Imprimir pdf

Definitivamente cambio desde la ultima vez que entre alli...

Yo tengo una version que era bien mas simple y podias usar libremente porque
tenia una propaganda al pie de pagina



"dargento" wrote in message
news:

Gracias por tu contestacion, pero creo que eso no es gratuito, y ademas
en esa web no veo muy claro lo que hay que descargar o como aplicarlo.
Muchas gracias


dargento

dargento's Profile: http://www.msusenet.com/member.php?userid47
View this thread: http://www.msusenet.com/t-1870036057

Saludos, bueno aqui envio el codigo para que puedan crear pdf, claro que
tienen que tener el programa que crea pdf.

si no entienden mucho el codigo ASP preguntenle a un compañero que sea
experto en ASP y entendera inmediata mente de lo que se trata, bueno queridos
cibernautas espero que el codigo les ayude en sus labores diarias.

se despide muy atentamente Ian Pierre

pd: solo para que lo anoten las mujeres

<%@ Language=VBScript %>
<%
'Option Explicit
response.buffer = true
rut=request("ruth")
nombre=request("nombre")
rutformat = request("rutformat")
fecha=now()

%>

<%

'*** Declaracion de variables
Dim mySmartUpload

Set PDF = Server.CreateObject("Persits.PDF")
response.write(Server.MapPath("carta.pdf"))
Set Doc = PDF.OpenDocument(Server.MapPath("pdf\carta.pdf"))

'*** Obtiene Objeto Pagina para la página 1
Set Page = Doc.Pages(1)

set Font = Doc.Fonts("Verdana Bold")


DIM tc
DIM td


Set FSysObj = CreateObject("Scripting.FileSystemObject")
Dim MyFile

if FSysObj.FileExists(Server.MapPath("pdf\" & rutformat & ".pdf")) then
Set MyFile = FSysObj.GetFile(Server.MapPath("pdf\" & rutformat & ".pdf"))
MyFile.Delete true
end if




'rut=request("hrut")
'nombre=request("nombre")
'rutformat = request("rutformat")
'fecha=now()


DIM VAR_PRUEBA


'VAR_PRUEBA ="LUGAR"
'MonthOptions = "Jan##Feb##Mar##Apr##May##Jun##Jul##Aug##Sep##Oct##Nov##Dec"
'' TRASPASA VARIABLES A CAMPOS DEL DOCUMENTO
'*******************
'Set Field = Doc.Form.Findfield("CCMonth2")
'Field.Flags "3"


Set Field = Doc.Form.FindField("tc")
Field.SetFieldValue cuentas, Font

Set Field = Doc.Form.FindField("td")
Field.SetFieldValue cuentas, Font

Set Field = Doc.Form.FindField("nombre")
Field.SetFieldValue nombre, Font

Set Field = Doc.Form.FindField("rut")
Field.SetFieldValue rutformat, Font

Path = Server.MapPath("pdf\" & rutformat & ".pdf")

FileName = Doc.Save( Path, False)


'Pos=InStrRev(Server.MapPath("pdf"), "\")

'FileName=left(Server.MapPath("pdf"),Pos) & "copia_carta.pdf"

'response.write FileName
'RESPONSE.END
'FileName = Doc.Save( Path, False)
set pdf = nothing
response.redirect ("pdf\" & rutformat & ".pdf")
'=='FileName = Doc.SaveHttp("filename=filename", "application/pdf")'
'Filename = Doc.Save( Server.MapPath("form.xls"), False )'
' FSysObj.DeleteFile FileName, true
'response.redirect "../Administrador/buscar_ficha_esp.asp?rut=" & rut

''FileName = Doc.SaveHttp("filename=filename", "pdf")'
''Filename = Doc.Save( Path, False )'
''FSysObj.DeleteFile Server.MapPath("pdf\" & rutformat & ".pdf"), true