Hello,
I am using Win7 and Alpha V v10. Using an application based on the old Alpha Sports app. When I am ready to print my invoice I want a default number of
copies to be 2 ....I have my invoice form with a button that on push offers a print/preview box which I push the enter button on the keyboard. The next popup
is the Windows 7 print box where I can change the printer, page range and Number of Copies. I want the number of copies to be 2, by default, but have the option
to change it. I assume the Win 7 popup is being set by A5 before it displays. The print function then prints a report (which is my invoice) I get this working eventually but everytime I have changed a printer it quits working
properly..goes back to a quanity of 1. I can't find where to set it If it helps I have copied the code for the button
'Last Updated: 19-Jul-2012 11:48:31 AM
'Created By : gold ring
'Updated By : Bobby
PARENT.commit()
dim A_ASK_PRINT as c
dim A_FORM_CURRENT as c
dim A_ASK_INVOICE as c
dim INVOICE_NUMBER as c
range.flags=RANGE_INDEX.or.RANGE_FIRST.or.RANGE_LAST
range.index_handle=index_record_get(db_current())
range.filter=""
range_add(db_current(),recno(),recno())
A_ASK_PRINT=ui_get_radio(this.text,1, "Print","Preview")
if A_ASK_PRINT="Print"
goto print
elseif A_ASK_PRINT= "Preview"
goto preview
else
goto cleanup
end if
print:
:Report.print("Invoice",db_filter_get(db_current()),db_order_get(db_current()))
goto cleanup
preview:
:Report.preview("Invoice",db_filter_get(db_current()),db_order_get(db_current()))
goto cleanup
cleanup:
range_drop(db_current())
I am using Win7 and Alpha V v10. Using an application based on the old Alpha Sports app. When I am ready to print my invoice I want a default number of
copies to be 2 ....I have my invoice form with a button that on push offers a print/preview box which I push the enter button on the keyboard. The next popup
is the Windows 7 print box where I can change the printer, page range and Number of Copies. I want the number of copies to be 2, by default, but have the option
to change it. I assume the Win 7 popup is being set by A5 before it displays. The print function then prints a report (which is my invoice) I get this working eventually but everytime I have changed a printer it quits working
properly..goes back to a quanity of 1. I can't find where to set it If it helps I have copied the code for the button
'Last Updated: 19-Jul-2012 11:48:31 AM
'Created By : gold ring
'Updated By : Bobby
PARENT.commit()
dim A_ASK_PRINT as c
dim A_FORM_CURRENT as c
dim A_ASK_INVOICE as c
dim INVOICE_NUMBER as c
range.flags=RANGE_INDEX.or.RANGE_FIRST.or.RANGE_LAST
range.index_handle=index_record_get(db_current())
range.filter=""
range_add(db_current(),recno(),recno())
A_ASK_PRINT=ui_get_radio(this.text,1, "Print","Preview")
if A_ASK_PRINT="Print"
goto print
elseif A_ASK_PRINT= "Preview"
goto preview
else
goto cleanup
end if
print:
:Report.print("Invoice",db_filter_get(db_current()),db_order_get(db_current()))
goto cleanup
preview:
:Report.preview("Invoice",db_filter_get(db_current()),db_order_get(db_current()))
goto cleanup
cleanup:
range_drop(db_current())
Comment