Tracy, Thanks again for your input on this - and especially for the Code - I really appreciate it!
I finally have time today to look into this - as you probably saw from the other e-mail reply. Now, I'm just trying to understand how your code below would work. I suspect that its an extra program that I would have to call - for each and every time that I work on a report form. It would be great if I could somehow hook it into VFP - so that it would get called automatically. Although - I suspect that this is NOT an option. IT sounds like I would have to remember to run this step every time I work on a report. Right now - to fix the problem - every time I work on a Report - I try to remember to re-open it again in VFP9 (even though almost ALL of my work here is done within VFP7) - then, once I open it in VFP9 - I simply open the Report, go to Page Setup in the menu, the turn off Save Printer Env.! Needless to say - almost every time I forget to make that update in VFP9 - one of the QA Tech's here get a call almost always the day after they installed the update - due to the printer problem!! Would running your program be about the same thing - that I would have to remember to run the tool on the report? I suspect so. Is it possible - within VFP7 - to Add something to the Menu system? Like under TOOLS? Thanks again, -K- -----Original Message----- From: ProfoxTech [mailto:[email protected]] On Behalf Of Tracy Pearson Sent: Monday, October 08, 2012 11:41 AM To: [email protected] Subject: RE: VFP9-Reporting Hi Kurt, Since you are working in VFP 7, I don't know that either of the blog entries will help. You're probably better creating a menu item, or prg to launch the report editor in VFP 7. If anyone wants to chime in about the code, please do so. Something like this: LPARAMETERS ReportName MODIFY REPORT (ReportName) USE FORCEEXT(ReportName, "FRX") IN 0 SHARED ALIAS FixReport LOCATE FOR ObjCode = 53 LOCAL ExprText, ExprLines[1], ExprLoop ExprText = "" FOR ExprLoop = 1 to ALINES(ExprLines, FixReport.Expr) IF UPPER(ExprLines[ExprLoop]) = "DEVICE=" LOOP ENDIF IF UPPER(ExprLines[ExprLoop]) = "DRIVER=" LOOP ENDIF IF UPPER(ExprLines[ExprLoop]) = "OUTPUT=" LOOP ENDIF ExprText = ExprText + ExprLines[ExprLoop] + CHR(13) + CHR(10) NEXT REPLACE FixReport.Tag WITH "", ; FixReport.Tag2 WITH "", ; FixReport.Expr WITH ExprText ; NEXT 1 IN FixReport USE IN SELECT("FixReport") [excessive quoting removed by server] _______________________________________________ Post Messages to: [email protected] 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/289ea162f5642645b5cf64d624c66a140e260...@us-ny-mail-002.waitex.net ** 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.
