Page 1 of 2 12 LastLast
Results 1 to 15 of 22
  1. #1
    3 Star Lounger
    Join Date
    Sep 2001
    Posts
    211
    Thanks
    32
    Thanked 0 Times in 0 Posts

    Setting up pagination (2002 / rel 10)

    Several times a day I need to produce packing slips for tractor trailer loads of product shipped on pallets. There are usually 20 - 30+ packing slips for each load, one for each pallet, with one customer requiring two slips per pallet. The slips are numbered 1 of ___, 2 of ___, 3 of ___, etc. Is there a formula or macro that would make my job easier than manually entering the first number? (The "total" number is entered with a formula)

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

    Re: Setting up pagination (2002 / rel 10)

    It's probably possible to use formulas to compute the slip number, for example

    =ROW()-3

    or

    =COUNTIF($B$1:$B1,$B1)

    but it would help if we knew what your worksheet looks like - could you post a small sample workbook (with dummy data)?

  3. #3
    3 Star Lounger
    Join Date
    Sep 2001
    Posts
    211
    Thanks
    32
    Thanked 0 Times in 0 Posts

    Re: Setting up pagination (2002 / rel 10)

    I've never posted anything before; how do I do it?

  4. #4
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Setting up pagination (2002 / rel 10)

    Make sure that the workbook is less than 100 KB. If it's too big, create a zip file containing the workbook.

    Below the area where you type a post or reply, there is a box labeled "Attach a file - 100k Max.", with a Browse... button next to it. Just before clicking Post It, click the Browse... button and select the workbook or zip file. It will appear as an attachment to your reply.

  5. #5
    3 Star Lounger
    Join Date
    Sep 2001
    Posts
    211
    Thanks
    32
    Thanked 0 Times in 0 Posts

    Re: Setting up pagination (2002 / rel 10)

    Here's the file - hope it worked!
    Attached Files Attached Files

  6. #6
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Setting up pagination (2002 / rel 10)

    Thanks - the attachment worked. The situation is different from what I thought it was. You can use the following macro to print out slips; the macro looks at the value calculated in cell E28 and fills cell C28 with values 1, 2, ..., etc. up to that value, and prints out the sheet for each value. You can specify multiple copies of each to be printed if you wish.
    <code>
    Sub PrintSlips()
    Dim i As Integer
    Dim n As Integer
    n = Range("E28")
    For i = 1 To n
    Range("C28") = i
    ActiveSheet.PrintOut Copies:=1 ' change if needed
    Next i
    End Sub</code>

  7. #7
    3 Star Lounger
    Join Date
    Sep 2001
    Posts
    211
    Thanks
    32
    Thanked 0 Times in 0 Posts

    Re: Setting up pagination (2002 / rel 10)

    Thanks! I'll let you know how it works.

  8. #8
    3 Star Lounger
    Join Date
    Sep 2001
    Posts
    211
    Thanks
    32
    Thanked 0 Times in 0 Posts

    Re: Setting up pagination (2002 / rel 10)

    This worked great!! You people at Wood's Lounge are batting 1000 - never been disappointed when looking for an answer. Can't thank you enough!!

  9. #9
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Setting up pagination (2002 / rel 10)

    You're welcome! I'm glad it helped.

  10. #10
    3 Star Lounger
    Join Date
    Sep 2001
    Posts
    211
    Thanks
    32
    Thanked 0 Times in 0 Posts

    Re: Setting up pagination (2002 / rel 10)

    Okay, you did a great job with pagination for one set of numbers. What if I have two pallet sheets on one page? The forms are identical, so the numbering would be identical. I've attached the form I use so you can see what I mean. Thanks again, in advance!
    Attached Files Attached Files

  11. #11
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Setting up pagination (2002 / rel 10)

    You can replace

    Range("C28") = i

    with

    Range("C22") = i
    Range("C49") = i

  12. #12
    3 Star Lounger
    Join Date
    Sep 2001
    Posts
    211
    Thanks
    32
    Thanked 0 Times in 0 Posts

    Re: Setting up pagination (2002 / rel 10)

    Guess I didn't explain myself so well this time. I meant to say I needed to have the forms number consecutively. The top form on the sheet should be 1 of N; the bottom form on the sheet should be 2 of N, etc. Thanks!

  13. #13
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Setting up pagination (2002 / rel 10)

    Try this version then:

    <code>
    Sub PrintSlips()
    Dim i As Integer
    Dim n As Integer
    n = Range("E22")
    For i = 1 To n Step 2
    Range("C22") = i
    Range("C49") = i + 1
    ActiveSheet.PrintOut Copies:=1 ' change if needed
    Next i
    End Sub
    </code>
    The value in cell E22 should be even (divisible by 2).

  14. #14
    3 Star Lounger
    Join Date
    Sep 2001
    Posts
    211
    Thanks
    32
    Thanked 0 Times in 0 Posts

    Re: Setting up pagination (2002 / rel 10)

    OK! You did it again! Works great! You're saving me LOTS of time!

  15. #15
    3 Star Lounger
    Join Date
    Sep 2001
    Posts
    211
    Thanks
    32
    Thanked 0 Times in 0 Posts

    Re: Setting up pagination (2002 / rel 10)

    OK, I'm back again. The pagination is working well with the two sheets on one page. Now I'm wondering if there is a way to have the top sheet number for the first half of the number of sheets needed and the bottom sheet number the last half? That would save me collating after they're printed. Thanks!

Page 1 of 2 12 LastLast

Posting Permissions

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