3 de octubre de 2016

Convertir informe a BMP

La siguiente rutina envía el resultado de un informe a un mapa de bit por página.

Local oListener As ReportListener, nPageIndex
oListener = Createobject("ReportListener")
oListener.ListenerType = 3

cRutaReporte = Home(2)+"Solution\Reports\invoice.frx"

Report Form (cRutaReporte) Preview Object oListener

For nPageIndex=1 To oListener.PageTotal
    cOutputFile = "c:\tmp"+Trans(nPageIndex)+".bmp"
    oListener.OutputPage(nPageIndex,;
    cOutputFile, 105, 0,0,768,1024) && 105=bitmap
Next

Saludos.

Jesus Caro V

No hay comentarios. :

Publicar un comentario