×
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Contact US

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Access, I want a list box that will allow automatic printing of multi.

Access, I want a list box that will allow automatic printing of multi.

Access, I want a list box that will allow automatic printing of multi.

(OP)
I am trying to make a fully automated, report printing Form.  I have a form that automatically checks for new data every minute and need it to be able to print.  The form has a list box that is where control numbers of unprinted reports are put.  I then made a macro that will open the report based on the selection you make.  Problem is, I want it to automatically print a seperate report for each of the control numbers.  I don't want to have to select the control number and even now when i do it does one report for both numbers if i manually select them.  If you need more info please respond and i will write more to help you understand.
Thanks, Bret

RE: Access, I want a list box that will allow automatic printing of multi.

Ah yes, you need to start learning the powerful language called VBA.
macros and such have their limits, VBA is limitless.

I would suggest in the timer event you could open and print a report automatically.

Docmd.Openreport ...... , ACNormal
will print it right out

and the code needs to look at the list box or whatever you have for the "control numbers"
I would put them in a table so you could run a query and get back a recordset then use a

Do unitl MySet.EOF
  Docmd.Openreport ...... , ACNormal
  MySET.movenext
Loop

to get every one

After you are done then delete the records in  the table.
Here’s a complete snippet I use a lot.

   'Delete Items in list
    Dim dbs As Database
    Dim rst As Recordset
    Set rst = dbs.OpenRecordset("History Just Print These")
    rst.MoveLast
    For a = rst.RecordCount To 1 Step -1
        rst.Delete
        rst.MovePrevious
    Next
    
    rst.Close
    dbs.Close


DougP, MCP
 dposton@universal1.com
 
 Ask me how Bar-codes can help you be more productive.

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members! Already a Member? Login

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close