Page 1 of 1
Printing multiple copies from a card file
Posted: Thu Feb 08, 2007 4:51 pm
by Rob
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.
Posted: Thu Feb 08, 2007 4:53 pm
by COBS Tech Support
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.