FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Informe a PDF
Posts: 3
Joined: Fri May 13, 2011 08:44 AM
Informe a PDF
Posted: Wed May 18, 2011 11:28 AM

Estoy intentando enviar un informe a PDF utilizando NCONVERT.
El problema es q cuando el informe tiene varias paginas me crea un fichero por cada pagina.
Existe alguna manera de crear un unico fichero con todas las paginas?

  For X=1 To Len(oPrn:aMeta)
    WF:=cTarget+"\PDF\"+Substr(WNFactura,1,1)+Alltrim(Str(X))+Substr(WNFactura,4)+".WMF"
    WF1:=cTarget+"\PDF\"+Substr(WNFactura,1,1)+Alltrim(Str(X))+Substr(WNFactura,4)+".PDF"
    WF:=Alltrim(WF)
    WF1:=Alltrim(WF1)

    If File(WF)
        Delete File &WF
    End
    If File(WF1)
        Delete File &WF1
    End
    CopyFile(oPrn:aMeta[X],WF)

    Sele 14
    cEj:="NCONVERT.EXE -quiet -out pdf -c 5 &WF "
    WaitRun( cEj )

    If File(WF)
  • Delete File &WF
    End
    Next
    If cPdf
    oPrn:End()
    End
    If nFra=1
        MsgAlert("Ha sido creado el fichero" + Chr(13) + WF1 )
    End
    End
    

Este es el codigo que utilizo
Podriais echarme una mano

Gracias

Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Informe a PDF
Posted: Wed May 18, 2011 01:51 PM
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 33
Joined: Tue Jun 08, 2010 03:34 PM
Re: Informe a PDF
Posted: Wed May 18, 2011 05:33 PM

Karinha, si querés, podés probar esta otra alternativa:

viewtopic.php?f=6t=21029p=111738#p111738

&&

Libreria: FWH/FWHX 9.11 25/November/2009

Harbour: Harbour 2.0.0 Beta2

Compilador: Borland C++ 5.5.1 versión 32 bits

Editor de Recursos: UEstudio 10.0

Gestor de B.D: A.D.A ( Advantage Data Architect )

S.O: Windows XP
Posts: 3
Joined: Fri May 13, 2011 08:44 AM
Re: Informe a PDF
Posted: Thu May 19, 2011 09:47 AM

Muchas gracais por la contestacion.
Pero esta opcion requiere instalar PDF Creator.
Y quisiera seguri usando Nconvert que es mas "opaco" para el usuario.

Gracias

Continue the discussion