Hello Michael, Thanks for the great start. I found alot of good info at: http://www.spacefold.com/colin/archive/articles/reportpreview/rp_extend.html
Thanks, Kent > -----Original Message----- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] > Behalf Of MB Software Solutions > Sent: Thursday, June 22, 2006 10:08 PM > To: [email protected] > Subject: Re: Report preview / print > > > Kent Belan wrote: > > >Hello, > >I am trying to create a generic report preview / print form in VFP9. > > > >Has anyone done this and willing to share before I start mine? > > > >Thanks, > >Kent > > > > > > > > Hi, Kent. > > Here's the method I call (created from ProFox tips of the past): > > PROCEDURE ShowReport(tcRpt as String, tcCaption as String, tlSkipPreview > as Logical, tlSkipPrompt as Logical) > * mjb 01-24-05 using Fred Taylor's idea for showing report inside max > window (courtesy ProFox archives) > * mjb 04-04-06 added tlSkipPreview and tlSkipPrompt clauses > LOCAL loFrm as Form, loException as Exception > CLEAR && mjb 04-12-06 get rid of any screen echos > TRY > IF !tlSkipPreview THEN > loFrm = CREATEOBJECT("Form") > WITH loFrm > .Caption = tcCaption > .WindowState = 2 && Maximized > .Show() > IF !tlSkipPrompt THEN > REPORT FORM (tcRpt) TO PRINTER PROMPT NOCONSOLE > PREVIEW WINDOW (.Name) > ELSE > REPORT FORM (tcRpt) TO PRINTER NOCONSOLE PREVIEW > WINDOW (.Name) > ENDIF && !tlSkipPrompt > ENDWITH && loFrm > loFrm.Release() > ELSE && no preview window (form) > IF !tlSkipPrompt THEN > REPORT FORM (tcRpt) TO PRINTER PROMPT NOCONSOLE > ELSE > REPORT FORM (tcRpt) TO PRINTER NOCONSOLE > ENDIF && !tlSkipPrompt > ENDIF && !tlSkipPreview > > CATCH TO loException > MESSAGEBOX(loException.Message,16,"Problem generating report.") > ENDTRY > ENDPROC && ShowReport(tcRpt as String, tcCaption as String, > tlSkipPreview as Logical, tlSkipPrompt as Logical) > > > -- > Michael J. Babcock, MCP > MB Software Solutions, LLC > http://mbsoftwaresolutions.com > http://fabmate.com > "Work smarter, not harder, with MBSS custom software solutions!" > > > > [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 ** 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.
