Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Error 1958 w/ object assisted repo form + no printer
Message
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Environment versions
Visual FoxPro:
VFP 9
OS:
Windows 2000 SP4
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01014730
Message ID:
01018575
Views:
14
For what its worth. I want to display an allready programmed VFP 9.0 prg that creates a cursor and generates a report using asp. The asp calls a dll which calls an exe that is the original vfp prg has the repo form command tweeked so that it uses the new 9.0 object assisted printing.

I had to sub class _reportlistener.htmllistener so that I could use getpageheight() and getpagewidth() to set these two values which satisfied VFP runtime even though there was no printer defined on the web server. See MSDN

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dv_foxhelp9/html/1845aee0-11f6-4d09-bfbd-b1847476a3d1.asp

Then I had to use the following approach to instantiate the object assisted printing so my subclass would be used
    ... create the report cursor
    lctheoutput=""
    loListener = .null.
    Set Classlib To noprinthtmllistener.vcx Additive
    loListener = Createobject("noprinthtmllistener")
    loListener.Quietmode = .T.
    Report Form regionbudget.frx Object loListener
    lctheoutput=Filetostr(loListener.targetfilename)
    Return lctheoutput && to the calling dll then asp
Other items:
1. Since this is all being called from an asp page I had to give iusr_machinename read/write permissions for several folders.
2. I had to include a copy of outputconfig.dbf in the exe project so _reportlistener would stop trying to create it in the windoes/system32 folder.
3. I had to place a copy of the frx and frt files in a directory that the _reportlistener was looking for. (I don't know why).

It is actually very slick now that it is working. Once I make sure this is working totally I will try and post how to do it in more detail if anybody is interested.
Paul Emery
theoakgrove@lansing.com
the Oakgrove Computer Group, Inc.
Grand Rapids, Michigan, USA
1-616-456-7133
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform