A ver si alguien ha trabajado con AspPDF de Persits mi duda es la siguiente:
Tengo una codigo que genera una tabla con los registros de una DB en una PDF el problema es cuando quiero poner iimagenes pues no se como decirle que imprima en una segunda hoja.
digamos son mas de 30 registros por lo tanto se forman dos hojas de lista, cuando genero mis imagenes con la siguiente instruccion se generan en la misma hoja , no hace el salto de pagina, escribo el codigo para ver si alguien me puede ayudar gracias
::::::::::::::::::::::::::::::::::
dim intTotal
intTotal = 0
yimg=0
pag=1
rs.MoveFirst
set rsprodInfo = Server.CreateObject("ADODB.Recordset")
while not rs.EOF
Set rsprodInfo = Conn_inter.Execute("SELECT A.NUMERO_ART,A.DESC_ARTICULO,B.PRODUCTIMG FROM ARTICULOS A,ARTICULOS_WEB B WHERE A.NUMERO_ART='"&rs("numero_art")&"' AND A.NUMERO_ART=B.NUMERO_ART")
Set Row = Table.Rows.Add(80) ' row height
param.Add "alignment=left;color=black; indentx=1; indenty=30"
' Row.Cells(2).AddText "http://www.pcs.com.mx/images/Articulos/ "& rsProdInfo("NUMERO_ART") &" .jpg"
Row.Cells(2).AddText trim(rsProdInfo("NUMERO_ART")), param
Row.Cells(3).AddText rsProdInfo("DESC_ARTICULO"), param
param.Add "alignment=right;color=black"
Row.Cells(4).AddText pdf.FormatNumber(precio_pb(rs("NUMERO_ART"),rs("CV E_CAT_AR"),1,"M"), "precision=2, delimiter=true"), param
Row.Cells(5).AddText pdf.FormatNumber(precio_pb(rs("NUMERO_ART"),rs("CV E_CAT_AR"),2,"S"), "precision=2, delimiter=true"), param
Row.Cells(6).AddText pdf.FormatNumber(precio_pb(rs("NUMERO_ART"),rs("CV E_CAT_AR"),2,"S"), "precision=2, delimiter=true"), param
i_path = "../img/articulos/" & trim(rsProdInfo("NUMERO_ART")) & ".jpg"
Set Image = Doc.OpenImage( Server.MapPath( "../../images/articulos/" & trim(rsProdInfo("NUMERO_ART")) & ".jpg" ) )
if yimg = 640 then
pag=pag+2
yimg= 0
end if
Param("x") = 27
Param("y") = 635 - yimg
Param("ScaleX") = 1 / 3
Param("ScaleY") = 1 / 3
yimg= yimg + 80
Page.Canvas.DrawImage Image, Param
Param.Clear
rs.MoveNext
wend
