printing in pdox10 from a button

[pumkinjay]

I have just been upgraded from pdox7 to pdox10
also from win 98 to win 2000 proffessional.
the code below is part of what is in a button i wrote while i had pdox7 basically you pushed the button, typed in a varable, it opened the report(which is a 1 page A4 label) then a popup box appears ask how many labels, you then typed the required amount and out they printed. this worked fine in (7) but now in (10) it will only print 1 label

*Code is straight out of pdox(7) help*
siNCopies = 0
stPrompt = "Print how many copies?"

siNCopies.view(stPrompt)
if siNCopies > 0 then
prnOptions.Copies = siNCopies
else
return
endIf
why does it not work in (10).
Please write answers below
many thanks Jay

 

[NotAllThere]

Jay,
When V9 was many print problems were reported. These were addressed and V10 is considerably better. However, during the couse of the evolution, some of the default settings changed, and I'm guessing this may be part of your problem.

What type is prnOptions (printerOptionInfo or reportPrintInfo)? Have a look at the help for both of these and check if there is any other related parameter which may need to be explicitly defined - e.g. if the prnOptions is reportPrintInfo type, you may also need to set the makeCopies parameter as well.

Padraig

 

[Lewy]

You may want to try opening the report in design mode, make a small change and save it - repeat and cancel the small change. The report should then be saved in P10 format.

If you are still having problems you may want to remove ALL traces of the suite from your PC ensuring that anything to do with P9 are fully removed. Obviously save all the data files, reports, forms etc. Re-install the suite and then import all your data back into the system.

It worked for me when going from P8 to P10.

Regards,

Paul

 

[pumkinjay]

thanks to everyone who shown intrest in my thread.
I have now got it working see below
Var
stockRep Report
siNCopies SmallInt
stPrompt String
repInfo ReportPrintInfo
endVar

siNCopies = 0
stPrompt = "Print how many copies?"
siNCopies.view(stPrompt)
if siNCopies > 0 then
repInfo.nCopies = siNcopies
repInfo.makeCopies = true
repInfo.name = "cl-bl.rsl"
stockRep.print(repInfo)

endIf
thanks again
Jay
PS: why does pdox10 take so long to load (30 secs)