Printing multiple copies from a card file
  • Rob

    Printing multiple copies from a card file

    by Rob » Thu Feb 08, 2007 4:51 pm

    Is it possible that when I press Print from in a card file I can make the system ask me how many copies of the record I want to print? This is for printing labels based on the records I've got in my card file. THanks.
  • COBS Tech Support
    Posts: 678
    Joined: Fri Sep 09, 2005 8:23 am

    by COBS Tech Support » Thu Feb 08, 2007 4:53 pm

    1. Go to the Screen Builder and open your card file
    2. Select File|Screen Script from the menu
    3. At the very top of the text Insert this line:

    If ( Mode = 5 ) Goto Print

    4. Move to the bottom of the file and add these lines:

    Code: Select all

    Return

    :Print
    Declare cScript Type Character

    FormCreate()
    FormAdd("No. of copies to print:", 1, "99")
    If FormShow("Print", "Print", "Cancel")
       cScript := "Declare StartRecord Type Numeric" + CHR(13) + CHR(10)
       cScript := cScript + "StartRecord := " + NTrim(XXX->(RECNO()))
       CreatePrintJob("XXX", cScript, FormResult(1))
       OpenVisualBuilder()
    Endif
    Return FALSE


    5. Save your changes.

    ***Where you see XXX in the above script, change this to the name of your card file.

Who is online

Users browsing this forum: No registered users and 1 guest