Matheus Melo

Opa consegui resolver dpois de massantes horas de pesquisa e estudo da documentação, a solução é sempre simples, mas até achar é aquele corre corre. Vamos lá, segue o código que usei caso mais alguém precise disto no futuro. Set Pdf = Server.CreateObject("Persits.Pdf") Set Doc = Pdf.OpenDocument( Server.MapPath( "pdf/templatelocafaz.pdf" ) ) fPageWidth = Doc.Pages(1).Width fPageHeight = Doc.Pages(1).Height Set objDoc = Pdf.CreateDocument() Set objGraph = objDoc.CreateGraphicsFromPage(Doc, 1) ' Aqui eu gravo o código html gerado através do editor wysiwyg fckeditor em uma tabela no banco de dados cnt = cnt & request.Form("editor") sql = "update cotacaopdf set htmlpdf = '" & cnt & "' where id = 1" dbconn sql CloseDbConn() 'Aqui eu importo o mesmo html gerado acima através da pagina gerahtmlpdf q pega o código gravado na tabela acima e mostra abaixo da tag body, já definindo as margens e tamanho da página, no caso A4 objDoc.ImportFromUrl "http://www.site.com.br/gerahtmlpdf.asp", "scale=0.6; hyperlinks=true;pageWidth=595;pageHeight=842;LeftMargin=23;RightMargin=23;TopMargin=110;BottomMargin=95" ' Neste For eu pego cada págian do documento e repito a arte do template em pdf q fiz usando illustrator, já com o cabeçalho e rodapé. For Each Page in objDoc.Pages Page.Canvas.DrawGraphics objGraph, "x=0; y=0" Next 'Dpois só gravar o pdf e visualizá-lo Filename = objDoc.Save( Server.MapPath("pdfgerado.pdf"), False ) Response.Redirect ("pdfgerado.pdf") Ufa, foi duro conseguir isso mas tá aí, espero que sirva pra mais alguém e q encurta o tempo de pesquisa na internet. Um abraço a todos.

Olá amigos, Estou criando um pdf baseado em template pdf, usando o componente asppdf, fazendo o importFromURL, porém no pdf template tem uma imagem no cabeçalho e outra no rodapé com informações, gostaria que ele repetisse esse cabeçalho em todas as páginas, como o conteúdo é dinâmico vindo de um editor fckeditor onde os dados vão ser preenchidos e dpois exportados para o pdf, no caso a quantidade de páginas é variável então quando o conteúdo ocupa mais de uma página a segunda página não aparece o cabeçalho nem o rodapé, fica o texto em uma página em branco. Segue o código q estou usando: Set Pdf = Server.CreateObject("Persits.Pdf") Set Doc = Pdf.OpenDocument( Server.MapPath( "pdf/template.pdf" ) ) If Doc Is Nothing Then Response.Write "This PDF is password-protected." ' Obtain a password from user and try again Set Doc = Pdf.OpenDocument(Server.MapPath( "pdf/template.pdf" ), Pwd) End If cnt = cnt & request.Form("editor") Doc.ImportFromUrl "http://www.site.com.br/gerahtmlpdf.html", "scale=0.6; hyperlinks=true; drawbackground=true" Filename = Doc.Save( Server.MapPath("pdfgerado.pdf"), False ) Response.Redirect ("pdfgerado.pdf") Alguém pode me ajudar ?? Preciso resolver isso com certa ugência. Desde já agradeço a atenção de todos.

Olá estou configurando um servidor windows 2012 na Amazon e estou encontrando dificuldade com o PHP com o que me parecer ser simples de resolver, porém já vou pra mais de 48 horas de pesquisas e várias tentativas e nada de resolver. Acredito ser simples mas não consigo achar a resposta e preciso com urgência. Por gentileza dê uma olhada neste link q está hospedado no Amazon: http://ec2-54-207-28...mo-funciona.php você pode ver que as imagens estão quase todas quebradas, usei o relative path no código php dessa forma "/imagem/nomeimagem.jpg", quando mudo o path para "./imagem/nomeimagem.jpg" a imagem é exibida, como na primeira imagem do conteúdo da página. O problema é que o site está hospedado em outro alojamento em servidor windows e funciona perfeitamente com o caminho "/imagem/nomeimagem.jpg", confira no linkhttp://clubedapelada...o-funciona.php. Ficaria inviável pra mim alterar todos os caminhos de imagens em todo o site, inclusive na parte administrativa que faz uploads e gera o caminho com a barra normal e funciona perfeitamente no outro servidor. Por favor alguém pode me dar uma luz ????? Aguardo respostas com urgência. Grato pela atenção !

Olá pessoal ! Estou precisando com urgência de um fonte, ajudar, pedaço de código qualquer coisa que me ensine como fazer para inserir código html no xml. Estou usando o seguinte código: <%@Language=VBScript%> <html><body> <% function ntag(str) 'ntag = replace(str, "&lt;", "<") 'ntag = replace(ntag, "&gt;", ">") ntag = Server.HTMLDecode(str) end function Private Function HTMLDecode(byVal encodedstring) Dim tmp, i tmp = encodedstring tmp = Replace( tmp, "%20", " " ) tmp = Replace( tmp, "%22","""" ) tmp = Replace( tmp, "&quot;", chr(34) ) tmp = Replace( tmp, "&lt;" , chr(60) ) tmp = Replace( tmp, "&gt;" , chr(62) ) tmp = Replace( tmp, "&amp;" , chr(38) ) tmp = Replace( tmp, "&nbsp;", chr(32) ) For i = 1 to 255 tmp = Replace( tmp, "&#" & i & ";", chr( i ) ) Next HTMLDecode = tmp End Function data=request.form("dtNoticia1") resumo=request.form("resumoNoticia1") set doc=server.createobject("microsoft.xmldom") doc.load(server.mappath("teste.xml")) set raiz=doc.documentElement set registro=doc.createelement("noticia") raiz.appendchild(registro) set campo=doc.createelement("data") campo.text=data registro.appendchild(campo) set campo=doc.createelement("resumo") campo.text=HTMLDecode(resumo) registro.appendchild(campo) doc.save(server.mappath("teste.xml")) response.write "&status=" & data & "&" %><br> </body></html> estes dados estão vindo de um flash, porém quando gravo no xml ele fica dessa forma: <?xml version="1.0" encoding="ISO-8859-1"?> <noticias> <noticia> <data>&lt;p align="left"&gt;&lt;font face="Tahoma" size="11" color="#333333" letterSpacing="0.000000" kerning="0"&gt;&lt;b&gt;23/10/2007&lt;/b&gt;&lt;/font&gt;&lt;/p&gt;</data> <resumo>&lt;p align="justify"&gt;&lt;/p&gt;</resumo> </noticia> </noticias> quando é gravado no xml ele troca os simbolos < por &lt e > por &gt O que estou fazendo é testando como gravar no xml, mas meu objetivo final é criar uma ferramenta de inclusão, alteração e exclusão de conteúdo que está inserido no xml, se alguém tiver um fonte ou algo que possa me ajudar, agradeço muito ! Meu email é matheusmelo@yahoo.com.br Agradeço desde já a atenção de todos !