Print on custom toolbar

[tsoileau]

I am using a custom toolbar on a po program that I am doing for a school in our district. When I press print on the toolbar, the option of printing or preview comes up the I get an error:
Script: TEMPLATE line8:
review_report("po",query.filter,query.order)
Function is not recognized

Here is the xbasic that I placed in the custom toolbar for printing:

record_number = current_record_number()
query.filter = "recno() = " + record_number
query.order = ""
prompt_result = ui_get_print_or_preview("preview ")
if prompt_result = "print" then
rint_report("po",query.filter,query.order)
else if prompt_result = "Preview" then
review_report("po",query.filter,query.order)
end if

Please give some direction.

Thanks as always,

ted
tsoileau is online now Report Post Edit/Delete Message

[Tom Cone Jr]

Re: Print on custom toolbar

Have p's been dropped?

rint_report() s/b print_report()

review_report() s/b preview_report()

[tsoileau]

Re: Print on custom toolbar

Tom,

The p's didn't carryover from copy and paste. They are in the toolbar script.

[Tom Cone Jr]

Re: Print on custom toolbar

After correcting the spellings I adapted your script to a custom toolbar for the Customer information form in AlphaSports and it ran just fine. Suggest you double check the spelling of the preview and print function calls. Might be prudent to check the spelling of the report name, too.

[tsoileau]

Re: Print on custom toolbar

Tom,
This is what it should have looked like on the original post. The p on print was left off with the copy and paste. "PO" is the name of the report that I would like to print.
What I did do is replace this script with: a5_print_current_record() It does work except that I would like to just allow the report to print and eliminate the other choices. I do not understand how the script works ok for you but not for me. I guess I am not seeing the forest through the trees.

Thanks for your response.



record_number = current_record_number()
query.filter = "recno() = " + record_number
query.order = ""
prompt_result = ui_get_print_or_preview("preview ")
if prompt_result = "print" then
print_report("po",query.filter,query.order)
else if prompt_result = "Preview" then
review_report("po",query.filter,query.order)
end if

[DaveM]

Re: Print on custom toolbar

Ted,

Can you send the whole step by step? It seems there is more to it.

record_number = current_record_number()
query.filter = "recno() = " + record_number
query.order = ""
prompt_result = ui_get_print_or_preview("preview ")  '[COLOR=red]where did this prompt come from  "[COLOR=red]prompt_result"[/COLOR]?[/COLOR]
if prompt_result = "print" then
rint_report("po",query.filter,query.order)
else prompt_result = "Preview"   [COLOR=red]'then  not needed ?
[/COLOR]review_report("po",query.filter,query.order)
end if

[COLOR="DarkRed"]My code to print a christmas card if it helps.  Most was stolen off a button made by alpha.[/COLOR]
dim flag_error as l
flag_error = .f.
if is_object(topparent.this) then 
	p = topparent.this
	if p.class() = "Form" then 
		DELETE Parameter1 
		'Set the Parameter variable to the object's .value property
		Parameter1 = eval("P:Acct.value")
	else    'Not in a Form. This is an error condition.
		flag_error = .t.
	end if 
else
	flag_error = .t.
end if 
if flag_error then 
	ui_msg_box("Error","You can only run this script from within a Form",UI_STOP_SYMBOL)
	end 
end if 
filter = "Acct = [varN->parameter1]"
query.filter = replace_parameters(filter,local_variables())
query.order = ""
:Report.Print("CCardsPrint1",query.filter,query.order)

Or maybe I am wrong, maybe will know when we see it all??

I really cheat on this stuff by letting alpha do the joband then copying the code after I have it working in a button tht alpha does for me.

[tsoileau]

Re: Print on custom toolbar

I tried something new today and low and behold it worked.
Tom and Dave, thanks for your help. Dave, like you, I try to use Alpha to write the code and then view it. Unfortunately, sometimes it is like trying to find your glasses when they are sitting on your nose.

I hope you guys have a Merry Christmas and a Happy New Year.

Ted

[gmeredith17]

Re: Print on custom toolbar

I tried something new today and low and behold it worked.

What did you try? Future viewers of the thread may be interested in your solution.

[tsoileau]

Re: Print on custom toolbar

I used the following code by letting alpha do it then coping it to the tool bar.

record_number = current_record_number()
query.filter = "recno() = " + record_number
query.order = ""



'Prompt user whether to print, or preview the layout. Set default to Print
prompt_result = ui_get_print_or_preview("Print")
If prompt_result = "Print" then

:Report.Print("PO",query.filter,query.order)

Else if prompt_result = "Preview" then
:Report.Preview("PO",query.filter,query.order)
End if

Works like a charm. This will print the current record in the report.

Again, thanks to all for the help.

ted