ASPPDF og unik font
Hejsa,Jeg bruger ASPpdf til at lave HTML om til en PDF som nedensående.. jeg har dog en linie som skal skrives med en speciel font.. jeg kan godt få dette til at virke ved normal oprettelse af en PDF, men når jeg bruger HTML til PDF kan jeg ikke få det til at virke..
Jeg har smidt koden her forneden, håber der er nogen som kan hjælpe? på forhånd tak
'*******************************************************
Set Connmainpages = Server.CreateObject("ADODB.Connection")
Connmainpages.Open MM_pdfdatabase_STRING
set findthemarketing = Connmainpages.Execute("SELECT * FROM Bookletmarketing order by MAvariantnr ASC")
do while not findthemarketing.eof
thisisthecontents = thisisthecontents & "<br><br><table width='100%' border='0' cellspacing='0' cellpadding='0'>"
thisisthecontents = thisisthecontents & "<tr><td><table width='0%' border='0' cellspacing='0' cellpadding='0'>"
thisisthecontents = thisisthecontents & "<tr><td><table width='200' border='0' cellpadding='5' cellspacing='1' bgcolor='#000000'>"
thisisthecontents = thisisthecontents & "<tr><td bgcolor='#FFFFFF'><div align='center'>"
thisisthecontents = thisisthecontents & "<font FACE=""C:\Inetpub\wwwroot\Bandmaster\prodesigndenmark\pdf\V100020_.TTF"">*" & findthemarketing("MAbarcode") & "*</font>" ' ### her kaldes fonten ####
thisisthecontents = thisisthecontents & "</div></td></tr></table></td></tr><tr><td> </td></tr><tr><td>"
thisisthecontents = thisisthecontents & "<FONT STYLE=""font-family: Arial; font-size: 10pt"">" & findthemarketing("MAdescription") & "</font>"
thisisthecontents = thisisthecontents & "</td></tr></table></td><td><div align='right'><img src='http://192.168.1.102/prodesigndenmark/pdf/55049611.jpg' height='265' /></div></td>"
thisisthecontents = thisisthecontents & "</tr>"
thisisthecontents = thisisthecontents & "</table>"
if whatpage = "" then
whatpage = 0
end if
whatpage = whatpage+1
if whatpage = 3 then
thisisthecontents = thisisthecontents & "<BR style='page-break-before: always'>"
whatpage = 0
end if
findthemarketing.MoveNext
loop
findthemarketing.close
Set Pdf = Server.CreateObject("Persits.Pdf")
Set Doc = Pdf.CreateDocument
If Doc Is Nothing Then Response.Write "This PDF is password-protected."
Set Page = Doc.Pages.Add(516, 729)
Doc.ImportFromUrl "<html>" & thisisthecontents & "</html>"
Call Doc.SaveHttp("attachment;filename=letter.pdf")
findthemarketing.close
