Very Computer

On a custom menu form, I have a button for reports.  When the button
is pressed, a report "switch menu" appears.  The user chooses a report
and it prints.  The problem is that the report ("codes") always prints
twice.  The Paradox dialog box printing and preparing to print goes
through its motions twice.

What am I doing or not doing properly?

Here is the code:
       var
         vform                Form
         rHandle        Report
         rpiHandle      ReportPrintInfo
       endvar

   switchMenu
     case "Premiums Master" :

     case "Shipping Master" :

     case "Contacts..." :

     case "Summary" :

     case "Codes" :
          rpiHandle.name = "codes.rsl"
          rHandle.print(rpiHandle)

            if NOT rHandle.print(rpiHandle) then
               msgStop("Error printing " + rpiHandle.name,
               "Please make sure the report exists and try again.")
            endIf

  endSwitchMenu

 rpiHandle.name = "codes.rsl"
          rHandle.print(rpiHandle) --- Prints the 1st time

            if NOT rHandle.print(rpiHandle) then --- prints the 2nd time
               msgStop("Error printing " + rpiHandle.name,
               "Please make sure the report exists and try again.")
            endIf

The only way the program can check for the NOT condition is to try to
print the report. Just eliminate the first statement and you should be OK
Scott

        I think it's very simple, look at your code:
 rHandle.print(rpiHandle)

            if NOT rHandle.print(rpiHandle) then
               msgStop("Error printing " + rpiHandle.name,
               "Please make sure the report exists and try again.")
            endIf
...

        What you're saying is:
print the report rHandle
then print it again, and if the print command returns false
        because it couldn't print it, then show an error
...

        So instead, get rid of the first .Print command and just
use the if not .print that you've got there.

--
Paradox and Delphi Consultant. Member: Borland Delphi Technical Support
             Most small questions answered for free!

       Paradox Web Page: http://www.pagescape.com/fire/pdox/
          My words are my own, I don't speak for Borland.

Quote:>          rHandle.print(rpiHandle)

Quote:>        if NOT rHandle.print(rpiHandle) then
>           msgStop("Error printing " + rpiHandle.name,
>           "Please make sure the report exists and try again.")
>        endIf

-Tom

Tom McKeon
Softbite International

It appears that you are calling the print() method twice, or am I missing
something??

--
David