I checked the Forum and other sources and couldn
![]() |
Patch reliability is unclear. Unless you have an immediate, pressing need to install a specific patch, don't do it. |
SIGN IN | Not a member? | REGISTER | PLUS MEMBERSHIP |
-
Printing Multiple Labels per Sheet (A2K)
Home » Forums » AskWoody support » Productivity software by function » MS Access and database help » Printing Multiple Labels per Sheet (A2K)
- This topic has 17 replies, 4 voices, and was last updated 18 years, 9 months ago.
Viewing 1 reply threadAuthorReplies-
WSHansV
AskWoody Lounger -
WSAGMCon
AskWoody Lounger -
WSHansV
AskWoody LoungerAugust 20, 2006 at 10:56 am #1025444You could add a Yes/No field ysnPrinted to the table, and base the report on a query that selects the first ten records for which ysnPrinted = No.
In the code used to open the report, check whether there are enough records in the query, and issue a warning if there aren’t.
After the report has been opened, offer the option to set ysnPrinted to Yes.See the attached crude demo.
-
WSAGMCon
AskWoody LoungerAugust 20, 2006 at 12:12 pm #1025446Hans,
Thanks again. I’ll try your version and also attempt to do one where there is no need for the user to say yes or no, but “AUTOMATICALLY” print when it reaches 10. Manual intervention would only be necessary at the end of the whole session when everyone is finished or when the application is closed.
As a point of interest and a bit of forewarning. This is going to be done on a two-drawer printer where one drawer will be selected for labels and the other one for one page Warranty Reports which will be ‘AUTOMATICALLY” printed when generated by pre-determined conditions. Hoo Haw!
Stay tuned.
-
WSAGMCon
AskWoody LoungerAugust 20, 2006 at 12:58 pm #1025452Hans,
Let the games continue.
The records that are being created are based on a query, [qry CNMstr].
The size of the file is continually be incremented by the number of records added, and is currently sitting at 3094.
Based on your code and using my labels:
Private Sub cmdLabels_Click()
Dim intCount As Integer
Dim strSQL As String
intCount = DCount(“*”, “qry CNMstr”)
If intCount = 0 Then
MsgBox “There are no labels to be printed.”, vbInformation
Exit Sub
ElseIf intCount < 10 Then
If MsgBox("There are fewer than ten labels to be printed." & vbCrLf & _
"Do you want to print them anyway?", _
vbQuestion + vbYesNo + vbDefaultButton2) = vbNo Then
Exit Sub
End If
End If
DoCmd.OpenReport "rpt LogIn – Label", acViewPreview
If MsgBox("Do you want to mark the labels as printed?", _
vbQuestion + vbYesNo) = vbYes Then
strSQL = "UPDATE [qry CNMstr] SET ysnPrinted = True"
DoCmd.RunSQL strSQL, True
End If
End SubHad I said Yes,
I would have printed out 3094 labels.
Where did I go wrong?
-
WSHansV
AskWoody Lounger -
WSAGMCon
AskWoody Lounger -
WSladyengr
AskWoody LoungerAugust 21, 2006 at 8:44 pm #1025642Sorry to butt in, but I have had this same issue. I solved it with a Dymo thermal label printer. Set the label report page setup property to print to “specific printer” (meaning the Dymo) and leave the warranty sheet as the LaserJet default printer. This way no 1 person would have to wait for several other people to get their work done before they could get their output. The printers are cheap (especially on eBay). I just replaced one for $80, including shipping. The one I replaced had been in service for 3 years. Pro is never changing ink/toner. Only con I can think of is that the labels do come in a roll – print one and tear it off with the little metal teeth (just like with aluminum foil). If several labels come out in quick succession you actually have to tear or cut the backing paper OR just peel off the label you need.
Hope that helps – sure solved my dilemna years ago!
Kathi -
WSAGMCon
AskWoody LoungerAugust 21, 2006 at 10:26 pm #1025655Kathi!
Thanks kindly for “butting” in. Having been there and done that and solved your similar problem, I appreciate your helping me out. Suggestions and clues like yours are never considered to be “butting” in. I really appreciate your insights. If only I could comment further with respect to these great straight lines thrown my way…..
Seriously, thanks again and cheers,
-
-
-
-
WSMarkLiquorman
AskWoody LoungerAugust 20, 2006 at 10:59 am #1025445-
WSAGMCon
AskWoody LoungerAugust 20, 2006 at 12:17 pm #1025447Mark,
Thanks for the input. Yes, all and sundry have their little front ends ( on the computer ) and all have a button which currently would print one label at at time. All I need do with this little fella is add the “Are you up to 10 yet?” logic. That sounded simple, didn’t it?
Worse case scenario in all of this is some type of label printer that prints out 1 label at a time whenever their record is saved. Certainly not continuous form dot-matrix which is right up their with punched cards, but a laser-like quality printer. Know of any?
Cheers,
-
WSMarkLiquorman
AskWoody LoungerAugust 20, 2006 at 12:50 pm #1025451Actually, I was thinking of a button that would manually print all labels. That is, if they enterred 8 labels and had no more, they would then click the “Print Now” button and all 8 would print-out. They wouldn’t have to do anything when the 10th label was input, the system would automatically print a sheet of labels.
There are are specialty label printers out there that would allow you to economically print 1 label at a time. Labels come on a roll.
-
WSAGMCon
AskWoody LoungerAugust 20, 2006 at 1:05 pm #1025453Sorry Mark,
Once more have I miscontrued you folks due to minimal description. I should have mentioned that I assumed it would be labels on a roll, but providing laser printer-like quality. Sorry about that.
As you can gather by my response to Hans, that the thick is plottening. It would have to be the last labels Not Printed since the last print job. This means of course that I should have put a ” Gee, I’ve already been printed” indicator on my file. I’ve done that somewhere in my distant past, so I’d best go looking for it.
Unless of course you have an easier more logical suggestion.
Thanks again,
-
WSMarkLiquorman
AskWoody Lounger -
WSAGMCon
AskWoody LoungerAugust 20, 2006 at 4:11 pm #1025459 -
WSMarkLiquorman
AskWoody LoungerAugust 20, 2006 at 4:31 pm #1025461No! No! No! When I say a temporary table, I mean a table who contents are temporary. The user has no involvement in this at all. As info for each label is entered, an record is added into the table. Each time an entry is written to this table, you merely have to do a DCount to find out how many records are there. If there are 10, then print labels and Delete contents of table (just pop a msgbox asking user something like “Did labels print OK?” before you actually delete the records).
-
WSAGMCon
AskWoody LoungerAugust 20, 2006 at 4:47 pm #1025463Hi Mark,
Panic easily, don’t I.
It sounds close to an ideal solution. That’s the good news. The bad news is, and I have no problem in admitting this, as this is another of countless areas I’ve never dealt with in using Access, I have absolutely no clue as to how to do this based on some of the code reflected above that I’m dealing with. If it’s not too much to ask, a small bit of code or sample database would be more than appreciated. Sorry about the imposition,
-
-
-
Viewing 1 reply thread -

Plus Membership
Donations from Plus members keep this site going. You can identify the people who support AskWoody by the Plus badge on their avatars.
AskWoody Plus members not only get access to all of the contents of this site -- including Susan Bradley's frequently updated Patch Watch listing -- they also receive weekly AskWoody Plus Newsletters (formerly Windows Secrets Newsletter) and AskWoody Plus Alerts, emails when there are important breaking developments.
Get Plus!
Welcome to our unique respite from the madness.
It's easy to post questions about Windows 11, Windows 10, Win8.1, Win7, Surface, Office, or browse through our Forums. Post anonymously or register for greater privileges. Keep it civil, please: Decorous Lounge rules strictly enforced. Questions? Contact Customer Support.
Search Newsletters
Search Forums
View the Forum
Search for Topics
Recent Topics
-
Migrating from win10 to win11, instructions coming?
by
astro46
5 hours, 46 minutes ago -
Device Eligibility for Apple 2026 Operating Systems due this Fall
by
PKCano
7 hours, 15 minutes ago -
Recommended watching : Mountainhead movie
by
Alex5723
11 hours, 40 minutes ago -
End of support for Windows 10
by
Old enough to know better
8 hours, 59 minutes ago -
What goes on inside an LLM
by
Michael Covington
3 hours, 40 minutes ago -
The risk of remote access
by
Susan Bradley
1 hour, 45 minutes ago -
The cruelest month for many Office users
by
Peter Deegan
8 hours, 19 minutes ago -
Tracking protection and trade-offs in Edge
by
Mary Branscombe
13 hours, 54 minutes ago -
Supreme Court grants DOGE access to confidential Social Security records
by
Alex5723
20 hours, 31 minutes ago -
EaseUS Partition Master free 19.6
by
Alex5723
7 hours, 42 minutes ago -
Microsoft : Edge is better than Chrome
by
Alex5723
1 day, 9 hours ago -
The EU launched DNS4EU
by
Alex5723
1 day, 22 hours ago -
Cell Phone vs. Traditional Touchtone Phone over POTS
by
280park
1 day, 12 hours ago -
Lost access to all my networked drives (shares) listed in My Computer
by
lwerman
2 days, 3 hours ago -
Set default size for pasted photo to word
by
Cyn
2 days, 9 hours ago -
Dedoimedo tries 24H2…
by
Cybertooth
1 day, 22 hours ago -
Windows 11 Insider Preview build 27871 released to Canary
by
joep517
3 days, 8 hours ago -
Windows 11 ad from Campaign Manager in Windows 10
by
Jim McKenna
1 day, 1 hour ago -
Small desktops
by
Susan Bradley
2 hours, 28 minutes ago -
Totally disable Bitlocker
by
CWBillow
2 days, 2 hours ago -
Phishers extract Millions from HMRC accounts..
by
Microfix
3 days, 6 hours ago -
Windows 10 22H2 Update today (5 June) says up-to-date but last was 2025-04
by
Alan_uk
4 days, 12 hours ago -
Thoughts on Malwarebytes Scam Guard for Mobile?
by
opti1
2 days, 7 hours ago -
Mystical Desktop
by
CWBillow
4 days, 16 hours ago -
Meta and Yandex secretly tracked billions of Android users
by
Alex5723
3 days, 21 hours ago -
MS-DEFCON 2: Do you need that update?
by
Susan Bradley
1 day, 8 hours ago -
CD/DVD drive is no longer recognized
by
WSCape Sand
5 days, 7 hours ago -
Windows 11 24H2 Default Apps stuck on Edge and Adobe Photoshop
by
MikeBravo
5 days, 10 hours ago -
North Face and Cartier customer data stolen in cyber attacks
by
Alex5723
5 days, 8 hours ago -
What is wrong with simple approach?
by
WSSpoke36
3 days, 6 hours ago
Recent blog posts
Key Links
Want to Advertise in the free newsletter? How about a gift subscription in honor of a birthday? Send an email to sb@askwoody.com to ask how.
Mastodon profile for DefConPatch
Mastodon profile for AskWoody
Home • About • FAQ • Posts & Privacy • Forums • My Account
Register • Free Newsletter • Plus Membership • Gift Certificates • MS-DEFCON Alerts
Copyright ©2004-2025 by AskWoody Tech LLC. All Rights Reserved.