James,

Creating the pdf was tricky for me.

Here is my code.  Hope it helps.....

loObj = XFRX("XFRX#LISTENER")
rptname =  Alltrim(Str(dispatch.callnumber))+'_call'
tmpdir = 'c:\dispatch'
lcreportname = 'c:\dispatch\rpts\sht_am_L'

        lnRetVal = loObj.SetParams(Alltrim(rptname),tmpdir,.T.,,,,"PDF")
        oapp.exlog('~GET~  lnRetVal from create loObj of xfrx' + Str(lnRetVal))

        If lnRetVal = 0
                loObj.setPasswords("ow",Alltrim(Defa.agencyph))
                loObj.setPermissions(.T., .F., .F., .F.)
                *do we want to include the radio log?
                If printtlog
                        Select dispatch
                        Report Form &lcreportname For Recno() = thisrecord 
Object loObj Nopageeject
                        Select runlog
                        Report Form c:\dispatch\RPTS\runlog.FRX Object loObj
                Else
                        Select dispatch
                        Report Form &lcreportname  For Recno() = thisrecord 
Object loObj
                Endif
                
                loObj.finalize()

                lsendgood = .T.
        else
                *something went wrong here, notify user
        Endif
        oapp.exlog('~GET~  created pdf file ')

Thanks,
Alan Bain

On Thu, Sep 8, 2011 at 2:50 PM, James E Harvey <jhar...@hanoverpa.com> wrote:

_______________________________________________
Post Messages to: ProFox@leafe.com
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message: 
http://leafe.com/archives/byMID/profox/CAB4ymPBzSmiMLohM9thBDhDSoFburTrD9HmLmCpwbi=gzz7...@mail.gmail.com
** All postings, unless explicitly stated otherwise, are the opinions of the 
author, and do not constitute legal or medical advice. This statement is added 
to the messages for those lawyers who are too stupid to see the obvious.

Reply via email to