Results 1 to 3 of 3
  1. #1
    4 Star Lounger
    Join Date
    Feb 2002
    Posts
    537
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Print out all documents (Access 2000)

    I have an option box that open reports depending on the option.i want to add another option, with which to print all the reports one after another without opening them.The task seems easy but somehow I cannot find the easy solution.Maybe an additional button?

    Dim stDocName As String
    Select Case Me!FrameA
    Case 1
    stDocName = "rptAttachementA"
    Case 2
    stDocName = "rptAttachementB"
    Case 3
    stDocName = "rptAttachementB"
    Case 4
    stDocName = "rptAttachementKIAInvoice"
    End Select
    DoCmd.OpenReport stDocName, acPreview

  2. Subscribe to our Windows Secrets Newsletter - It's Free!

    Get our unique weekly Newsletter with tips and techniques, how to's and critical updates on Windows 7, Windows 8, Windows XP, Firefox, Internet Explorer, Google, etc. Join our 480,000 subscribers!

    Excel 2013: The Missing Manual

    + Get this BONUS — free!

    Get the most of Excel! Learn about new features, basics of creating a new spreadsheet and using the infamous Ribbon in the first chapter of Excel 2013: The Missing Manual - Subscribe and download Chapter 1 for free!

  3. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 16 Times in 16 Posts

    Re: Print out all documents (Access 2000)

    You'd have to change the code you already have as well as adding some new lines to it. Let's say that you add an option #5 to print all reports.

    Select Case Me!FrameA
    Case 1
    DoCmd.OpenReport "rptAttachementA", acViewPreview
    Case 2
    DoCmd.OpenReport "rptAttachementB", acViewPreview
    Case 3
    DoCmd.OpenReport "rptAttachementB", acViewPreview
    Case 4
    DoCmd.OpenReport "rptAttachementKIAInvoice", acViewPreview
    Case 5
    DoCmd.OpenReport "rptAttachementA", acViewNormal
    DoCmd.OpenReport "rptAttachementB", acViewNormal
    DoCmd.OpenReport "rptAttachementB", acViewNormal
    DoCmd.OpenReport "rptAttachementKIAInvoice", acViewNormal
    End Select

  4. #3
    4 Star Lounger
    Join Date
    Feb 2002
    Posts
    537
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Print out all documents (Access 2000)

    I is great ! Thank you so much !

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •