Esse script pega a página do terra e converte, bloqueia para não modificar e não copiar e ainda gera paginação!
<!--METADATA TYPE="TypeLib" UUID="{414FEE4B-2879-4090-957E-423567FFCFC6}"-->
<%
' Início - Mostrar Contrato : Gerar PDF '
Dim Pdf, Doc, Page
Set Pdf = Server.CreateObject("Persits.Pdf")
Set Doc = Pdf.CreateDocument
Doc.ImportFromUrl "http://www.terra.com.br"
Doc.Encrypt "7658tedk4784584754747584484584854484545", "", 40, PdfFull And (Not PDFModify) And (Not PDFCopy)
For Each Page In Doc.Pages
Page.Canvas.DrawText "Pág."&Page.Index&"/"&Doc.Pages.Count&"", "x=15, y=20", Doc.Fonts("Arial")
Next
Doc.SaveHttp("attachment; filename=Contrato.pdf")
' Final - Mostrar Contrato : Gerar PDF '
%>
Para obter mais informações do Persits.Pdf, acesse o site aqui com manual e confira as informações, algumas delas disponibilizei aqui como por exemplo:
Bloquear pdf para Impressão = pdfPrint, olha outros exemplo aqui abaixo:
Pergunta
Ted k'
Esse script pega a página do terra e converte, bloqueia para não modificar e não copiar e ainda gera paginação!
Para obter mais informações do Persits.Pdf, acesse o site aqui com manual e confira as informações, algumas delas disponibilizei aqui como por exemplo: Bloquear pdf para Impressão = pdfPrint, olha outros exemplo aqui abaixo:A METADATA server para identificar os parâmentros de bloqueio:
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.