Form Printing with Staples

[cballew]

Hi there so this is a really obscure question that someone dreamed up and wants me to make a thing if possible in a database i manage for them here at work.

Essentially they have 800 some odd members who all have this survey to fill out, but they want to print a form for each member with their demographic information on top. So what they have is a form that you can cycle through different members right now. So what they are asking of me is to be able to click a print button to print all the different records of this 2 page form for all their members, so roughly 1600 pages will be printed. That's easy enough but then they also are asking that each member record be stapled individually by the printer. Our printer is pretty advanced and allows for every method of printing and binding, but is there even an option in Access printing to print one record set at a time and print the pages that would come out so in this case every 2 pages basically?



The only other way i could think of doing it was some sort of macro that prints the first record and continues on to run a print function to print the next record and so forth, but i think that would be just the worst, but if thats the only method then i suppose that could work right?

any help is much appreciated!

[CJ_London]

is there even an option in Access printing to print one record set at a time and print the pages that would come out so in this case every 2 pages basically?

the way you would do that is open a recordset of the memberID's that need to be printed. Then loop through the recordset and apply the memberID as a filter to the report to just print the one report. Something like

dim rst as dao.recordset
set rst=currentdb.openrecordset("Select memberID from tblMembers")
while not rst.eof
    docmd.openreport "myReport",,,"MemberID=" & rst!MemberID
    'code here to output to printer and do stapling
    rst.movenext
wend

the above is aircode so you may need to close the report and reopen it

another option is the printout command. here is a link https://docs.microsoft.com/en-us/off...docmd.printout
so you would need to know how many members. I've not used it, you will have to experiment

dim i as integer
docmd.openreport "myReport"
for i=1 to reports!myreport.recordsource.recordcount*2 step 2
    docmd.printout pagefrom:=i, pageto=i+1
next i

Have you thought of printing double sided? save paper and staples