Stacked Ticket Numbering

[WildBill]

I need a macro that will create a comma delimited csv file that will be used to create tickets (10 up sheet) in "stacked" order so that they can be stapled in sequential order. For example, say I need 50 tickets, 1-5 in stack one, 6-10 in stack two, 11-15 in stack 3, 16 -20 in stack 4, 21-25 in stack 5, etc. The software prints the tickets this sequence.



I've tried this using excel but ran into bugs. Someone suggested doing it in access. Any help would be appresicated.

WildBill

[ranman256]

in the report, in page setup,
columns tab,
set # of columns = 2

then column layout, either :
print down 1st then across
or
across 1st , then down

[WildBill]

Sorry I'm at a loss. i have even started. I was using Excel.

[WildBill]

This is an image of a spreadsheet result of what I'm trying to do in Access. The first is the input on Sheet 1 and the second is the result on sheet 2

[CJ_London]

To clarify your first post, where does the csv file come into it? Or do you need a report to print the tickets? In which case does it matter if tickets appear bottom left of the sheet or top left? (Top left would be easy to do)

Or are you just looking for a list of numbers in the specified order per your spreadsheet?

[WildBill]

The CSV file is used by a third party ticketing software. The tickets are 10 to a sheet but the software doesn't "stack" them sequentially. The merge csv file will do that in the layout as described above. Thanks, Bill

PS, I supposed I could print the tickets directly from Access if I could figure out how to create the "stacked" numbering.

[CJ_London]

‘Layout as described above’ is just a list of numbers in the specified order per you spreadsheet?

And you haven’t said whether the order of the pack of 5 tickets matter, so long as tickets 1-5 are in the same pack, 6-10 in another etc

You have 3 dimensions you need to determine from any number - row, column and page. And then you need to sort these accordingly

Investigate using the mod and \ operators to determine these values

You are not clear about whether it matters where on the sheet 1-5 appears or whether you want to do this as a report so can’t really advise further

[WildBill]

‘Layout as described above’ is just a list of numbers in the specified order per you spreadsheet?

And you haven’t said whether the order of the pack of 5 tickets matter, so long as tickets 1-5 are in the same pack, 6-10 in another etc

You have 3 dimensions you need to determine from any number - row, column and page. And then you need to sort these accordingly

Investigate using the mod and \ operators to determine these values

You are not clear about whether it matters where on the sheet 1-5 appears or whether you want to do this as a report so can’t really advise further

Sorry, thought this was included. The layout is how the ticket software lays it out.
There are 10 tickets per sheet.

[June7]

Review https://www.accessforums.net/showthr...774#post405774

[Micron]

So this is what the first 3 pages should look like?

page 1			page 2			page 3
25	50		24	49		23	48
20	45		19	44		18	43
15	40		14	39		13	38
10	35		9	34		8	33
5	30		4	29		3	28

My current thought is to have a report with 9 calculated controls positioned like what you've shown. The 50 textbox doesn't need a calculation, just the seed value. Open the report, calculations are based on a seed value (50 in your case) and are performed in a loop. Print the page, subtract 1 from the seed value, refresh the report and print again. I suppose the loop needs a counter based on the number of pages (5). A mathematical calculation could control the loop, but if anything goes wrong with that you could end up with a whole lot of useless pages from being stuck in a printing loop.

You could also just use code to populate the controls with calculated values. That would require 10 lines of code just for that part. Not too onerous or repetitive I guess.

[WildBill]

In this illustration, there would be 5 sheets of paper, each with ten tickets. Sheet 1 would have numbers 1,6,11,15,21,26,31,36,41,46. Sheet 2 would have numbers 2,7,12,16,22,27,32,42,47. Sheet 3 etc.

[Micron]

I'd probably go with what was linked in post 9 but you could go with calculated controls:



and then code like this in a standard module

Option Compare Database
Option Explicit
Public ctr As Integer

Private Sub PrintTickets()

ctr = 1
Do Until ctr = 6
   DoCmd.OpenReport "rptStackedTicket", acViewPreview '<< open normal instead so that it just prints out
   ctr = ctr + 1
   DoCmd.Close acReport, "rptStackedTicket"
Loop

End Sub

and this in the report Load event

Private Sub Report_Load()
Me.txt1 = ctr
MsgBox "printing page " & ctr

End Sub

With that method, you might experience screen flicker and opening/closing a report in a loop is not the most efficient thing to do. Opening hidden might eliminate any flicker you might get, but again, if the report was opened based on a table, you'd open it once and have a break (section or page) below the bottom controls.

EDIT - I might add that the above works (except I chose not to actually print the pages). Also, in the 1st set of numbers in post 11, 15 would be 16 and in the 2nd set, 16 would be 17. I took it that the sequences were not correct.

[CJ_London]

So still no answer to my question. I don’t think you get what I’m asking about order or what needs to be saved to a csv file. And looks like others are struggling to understand as well. So think it better if I drop out.

As I said, you will need to use the mod and \ operators to determine page, row and column for each ticket number.

Page for example would be

((Ticketnum-1)\10)+1

Where 10 is the number of tickets per page

[WildBill]

Thank Everyone for your help, I think I can get it from here.

[June7]

Wrong link posted. See later post.