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
Users browsing this forum: No registered users and 11 guests
Copyright © 1985 - 2019 Capital Office Business Software. All Rights Reserved.