Two Sided Printing

[Thomas 1958]

Hello,


I am trying to use the Report Lable function to essentially print 6 Baseball cards on both sides. My plan would be to print one side then put the paper in again and print the other side.

The front Side looks like this and works great!
Fields with a 1 and 2 are printed on the FRONT

1st record 2nd Record 3rd Record
_________ ______
| Side1 | |Side 1 Etc......
| Town1 | |Town 1
| ID-1 | | ID-2 ID-3
|Side 2 |
| Town 2 |
------------
4th Record 5th Record 6th Record


The Back Side looks like this and works great!
Fields with a 3 and 4 are printed on the Back

1st record 2nd Record 3rd Record
_________ ______
| Side3 | |Side 3 Etc......
| Town3 | |Town 3
| ID-1 | | ID-2 ID-3
|Side 4 |
| Town 4 |
------------
4th Record 5th Record 6th Record



However, When you Flip the Paper, and print the other side, The ID's do not align
i.e. the front side is ID-1, and the back side is ID-3

My Table is setup as follows (No other Tables are involved in this function)
Waybills:
- Side1 Short Txt
- Town1 Short Txt
- Color1 Short Txt
- Side2 Short Txt
- Town2 Short Txt
- Color2 Short Txt
- Side3 Short Txt
- Town3 Short Txt
- Color3 Short Txt
- Side4 Short Txt
- Town4 Short Txt
- Color4 Short Txt

[June7]

Could you provide db for testing and analysis? Follow instructions at bottom of my post.

[Thomas 1958]

Car Cards - fourm.zip


Here is the DB, (I think)

[June7]

Might need temp table and some fancy VBA as demonstrated in https://www.accessforums.net/showthread.php?t=73256

I will keep looking at but might take days to figure out.

StrReverse([Side4Notes]) shows #ERROR because field is Null whereas StrReverse([Side2Notes]) does not because field has space. I would not insert space in field. Try:
StrReverse(Nz([Side4Notes]," "))
What is purpose of reversing strings?

If these are supposed to be baseball cards, why is table called Waybills?

How is Waybills data inserted to this table? Why this structure? If these sets of repetitive columns are not related data then really should be a record for each set.

If front page print order of card numbers is

15 16 17
18 19

then back page needs order of

17 16 15
--- 19 18

Note the blank space represented by dashes. This will require a blank "placeholder" record.

[Thomas 1958]

This is just a portion of the full database.. Typically No blank fields would be in the data.. but I will add the suggested code. It is actually for a model railroad, and yes they are waybills.. see picture as an example.
The data is generated somewhat random from town names and industries, Yards and Staging. Once the data is loaded there should be several hundred records.

What I forgot to mention is I am also using an Upside-down font... the picture shows the lower have behind the fold in the Waybill Holder. So that's why the text on the bottom half is reversed. You only see Half the card at a time. rotate it and you get a new view. Turn it over and you get two more views.
Your card ordering is correct..
Thanks for considering helping me with this challenge.

[June7]

So only 6 per page because you cut into 3 slips and fold between the two rows? Bottom third of page is waste?

[Thomas 1958]

To be honest, I was just trying to get the code to work and had not given much thought to how many would fit on a page... the cards are 2"x3", so we could get 9 on a page.

[June7]

Consider this.

[Thomas 1958]

This is FANTASTIC !! Still testing, but it looks perfect.
How Can I thank you enough!

[Thomas 1958]

Found a Bug;

countRecs = rsW.RecordCount + (3 - rsW.RecordCount Mod 9) although I am not sure how to fix it....

less than 9 records in Waybills, The back page does not track 1:1?
Over 9 records, you get an extra 3 blanks on the back page.

[June7]

Sorry, I must have done a typo edit after testing.

Should be Mod 3.

Try:

countRecs = rsW.RecordCount + IIf(rsW.RecordCount Mod 3 = 0, 0, 3 - rsW.RecordCount Mod 3)