PB 5, XP, Printjob now hangs

[computergeek]

Hi,

I have been tasked with taking a look at one our our legacy systems that still uses PB 5.0, on XP. Script now hangs after upgrading to XP:

int li_Job
window lw_Sheet

/* Print active sheet */
lw_Sheet = w_mdi_main.GetActiveSheet ()
if IsValid (lw_Sheet) then
w_mdi_main.SetMicroHelp ("Printing active sheet...")
li_Job = PrintOpen ()
lw_Sheet.Print (li_Job, 1, 1)
PrintClose (li_Job)
w_mdi_main.SetMicroHelp ("")
end if

Any ideas as to why? (Other than this application SHOULD be upgraded to a newer version of PB)

Thanks in advance for the information.

Computergeek

 

[mbalent]

I'd check the return value from the printopen method call. You may have to change the variable "li_Job" to a long from an integer.

Matt

"Nature forges everything on the anvil of time

 

[computergeek]

Hi,

I don't think the method PrinttoPen method exists within PB 5.0 What is the PrinttoPen method?

Thanks,

Computergeek

 

[computergeek]

Hi,

Duh... sorry for the last reply. I think I better go have my morning coffee.

Computergeek

 

[mbalent]

Your example is using the following:

li_Job = PrintOpen ()

the value returned may exceed the limit of a Powerbuilder integer thereby setting li_Job to some random value.

Matt

"Nature forges everything on the anvil of time

 

[computergeek]

Hi,

Thanks... Changed the li_job fro Int to Long and it works now. Not sure why this functionality worked fine though for about 10 years other than the OS changed.

Thanks again,

Computergeek