Here's an easy one for you Alpha Guru's....
I have an event manager application, and one of the functions is to print out a list of those preregistered, receipts for each person, or name tags. The list and the receipts work perfectly, but the name tags, for some reason, only prints the very first tag. That tag is the correct first tag for the event, but I can't get the others to print.
The label design, in the desktop, correctly prints multiple tags, and I've set the "additional filter criteria" to none, so, in theory, everything sent to the label routine should print.
My code is:
In the above, the report is "NT".
Any suggestions?
Pat
I have an event manager application, and one of the functions is to print out a list of those preregistered, receipts for each person, or name tags. The list and the receipts work perfectly, but the name tags, for some reason, only prints the very first tag. That tag is the correct first tag for the event, but I can't get the others to print.
The label design, in the desktop, correctly prints multiple tags, and I've set the "additional filter criteria" to none, so, in theory, everything sent to the label routine should print.
My code is:
Code:
Dim vFilter as C Dim vOrder as C Dim vEv_Id as C vEv_Id = alltrim(CurrentForm.Controls.vEvent.value) If left(vEv_Id,1)="<" '==== no event was picked end end if Dim filename as C If vReport="PR" vFilter="Ev_Id = "+s_quote(vEv_Id) vOrder="lastname+firstname" filename = session.session_folder + chr(92) + "prreport.pdf" filename = report.saveas("[EMAIL="Signups@[PathAlias.ADB_Path]\Ev2pe.ddd%22,%22pdf%22,vFilter,vOrder,filename,.f"]Signups@[PathAlias.ADB_Path]\Ev2pe.ddd","pdf",vFilter,vOrder,filename,.f[/EMAIL].) if file.exists(filename) currentform.RedirectTarget = session.session_url + "prreport.pdf?" + time("hms3") end if end if If vReport="RR" vFilter="Ev2Pe->Ev_Id = "+s_quote(vEv_Id) vOrder="Ev2Pe->lastname+Ev2Pe->firstname" filename = session.session_folder + chr(92) + "rrreport.pdf" filename = report.saveas("[EMAIL="RU_forms@[PathAlias.ADB_Path]\Event_Set.set%22,%22pdf%22,vFilter,vOrder,filename,.f"]RU_forms@[PathAlias.ADB_Path]\Event_Set.set","pdf",vFilter,vOrder,filename,.f[/EMAIL].) if file.exists(filename) currentform.RedirectTarget = session.session_url + "rrreport.pdf?" + time("hms3") end if end if If vReport="NT" vFilter="Ev2pe->Ev_Id = "+s_quote(vEv_Id) vOrder="Ev2pe->lastname+Ev2pe->firstname" filename = session.session_folder + chr(92) + "ntlabels.pdf" filename = label.saveas("[EMAIL="Ev_NameTags@[PathAlias.ADB_Path]\Event_Set.set%22,%22pdf%22,vFilter,vOrder,filename,.f"]Ev_NameTags@[PathAlias.ADB_Path]\Event_Set.set","pdf",vFilter,vOrder,filename,.f[/EMAIL].) if file.exists(filename) currentform.RedirectTarget = session.session_url + "ntlabels.pdf?" + time("hms3") end if end if
Any suggestions?
Pat
Comment