Tags: access, aquery, copies, database, ive, labels, labelswith, lables, microsoft, multiple, mysql, oracle, page, print, prints, sheet, sql, wizard

Labels - Multiple copies of same info

On Database » Microsoft Access

6,522 words with 4 Comments; publish: Fri, 06 Jun 2008 09:27:00 GMT; (250125.00, « »)

I need to print out a sheet of lables with the same information (from a

query) on one page. Ive tried the access wizard and it prints out labels

with different infomation on each label.

Help !

All Comments

Leave a comment...

  • 4 Comments
    • "Philip" <Philip.ms-access.todaysummary.com.discussions.microsoft.com> wrote in message

      news:1153DD8C-B511-43C0-A8B2-7A0BBC01402E.ms-access.todaysummary.com.microsoft.com...

      > I need to print out a sheet of lables with the same information (from a

      > query) on one page. Ive tried the access wizard and it prints out labels

      > with different infomation on each label.

      > Help !

      If there are a lot of them it would make sense to write some code. But for a

      one time usage where you may only need a page (printed as many times as you

      like) it may be simpler to put the information in a single row of an Excel

      spreadsheet, then drag it down for as many rows as there are labels on a

      page. Link the Excel spreadsheet to Access as you would any table (File ...

      Get External Data ... Link) and change the type to Excel. Then use the label

      wizard naming the Excel table as the recordsource.

      If you already have your data in Access, simply select the row and choose

      Tools ... Office Links ... Analyze with Excel to export the row of data to

      an Excel spreadsheet.

      Arvin Meyer, MCP, MVP

      Microsoft Access

      Free Access downloads:

      http://www.datastrat.com

      http://www.mvps.org/access

      #1; Fri, 06 Jun 2008 09:28:00 GMT
    • Thanks Arvin.

      It wouldnt be a one-off thing. We would be printing on a regular basis with

      different names.

      "Arvin Meyer" wrote:

      > "Philip" <Philip.ms-access.todaysummary.com.discussions.microsoft.com> wrote in message

      > news:1153DD8C-B511-43C0-A8B2-7A0BBC01402E.ms-access.todaysummary.com.microsoft.com...

      > If there are a lot of them it would make sense to write some code. But for a

      > one time usage where you may only need a page (printed as many times as you

      > like) it may be simpler to put the information in a single row of an Excel

      > spreadsheet, then drag it down for as many rows as there are labels on a

      > page. Link the Excel spreadsheet to Access as you would any table (File ...

      > Get External Data ... Link) and change the type to Excel. Then use the label

      > wizard naming the Excel table as the recordsource.

      > If you already have your data in Access, simply select the row and choose

      > Tools ... Office Links ... Analyze with Excel to export the row of data to

      > an Excel spreadsheet.

      > --

      > Arvin Meyer, MCP, MVP

      > Microsoft Access

      > Free Access downloads:

      > http://www.datastrat.com

      > http://www.mvps.org/access

      >

      >

      #2; Fri, 06 Jun 2008 09:29:00 GMT
    • Then you can build a table with the number of rows that there are lables and

      use it as a Cartesian product in a query. To explain: A Cartesian product is

      the result of 2 unjoined tables in SQL. If I have a table with 10 records,

      and another with 30 records and I add them both to the same query without

      creating a join, I get a result of 300 records. So what you can do is to

      create a query that returns a single row, then use that query and your table

      of, say 30 records to create a query that returns 30 records of the 1 row of

      data.

      Alternatively, you can use code that was developed by Ken Getz in his book

      the Access Developer's Handbook.

      http://www.amazon.com/exec/obidos/AS...cwtechnologies

      Arvin Meyer, MCP, MVP

      Microsoft Access

      Free Access downloads:

      http://www.datastrat.com

      http://www.mvps.org/access

      "Philip" <Philip.ms-access.todaysummary.com.discussions.microsoft.com> wrote in message

      news:1CDB24E9-6E46-4ED6-AF67-239C323E8C72.ms-access.todaysummary.com.microsoft.com...

      > Thanks Arvin.

      > It wouldnt be a one-off thing. We would be printing on a regular basis

      with[vbcol=seagreen]

      > different names.

      > "Arvin Meyer" wrote:

      a[vbcol=seagreen]

      labels[vbcol=seagreen]

      for a[vbcol=seagreen]

      you[vbcol=seagreen]

      Excel[vbcol=seagreen]

      ...[vbcol=seagreen]

      label[vbcol=seagreen]

      choose[vbcol=seagreen]

      to[vbcol=seagreen]

      #3; Fri, 06 Jun 2008 09:30:00 GMT
    • On Thu, 19 May 2005 02:20:03 -0700, Philip wrote:

      > I need to print out a sheet of lables with the same information (from a

      > query) on one page. Ive tried the access wizard and it prints out labels

      > with different infomation on each label.

      > Help !

      This will permit you to enter the number of times to repeat the

      labels, as well as skip missing label positions on an already used

      sheet.

      First make sure your label report properly prints 1 label per record.

      Then add a Report Header to the label report.

      Add 3 unbound text boxes to the header.

      1) Set the Control Source to:

      = [Skip how many]

      Name this control SkipCounter

      2) Leave the second control unbound.

      Name this control SkipControl

      3) Set the third control's Control Source to:

      =[Repeat how many]

      Name it RepeatCounter

      Next code the Report Header OnFormat event:

      Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As

      Integer)

      [SkipControl] = "Skip"

      Cancel = True

      End Sub

      =======

      Now code the Detail OnPrint Event:

      (Note that intMyPrint is Static!!)

      Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)

      Static intMyPrint As Integer

      If PrintCount <= [SkipCounter] And [SkipControl] = "Skip" Then

      Me.NextRecord = False

      Me.PrintSection = False

      intMyPrint = 0

      Else

      [SkipControl] = "No"

      Me.PrintSection = True

      Me.NextRecord = True

      intMyPrint = intMyPrint + 1

      If IsNull([RepeatCounter]) Then

      ElseIf intMyPrint Mod [RepeatCounter] = 0 Then

      Me.NextRecord = True

      intMyPrint = 0

      Else

      Me.NextRecord = False

      End If

      End If

      End Sub

      =========

      When you run the report, it will ask how many labels to skip, then how

      many times to repeat each label.

      Fred

      Please only reply to this newsgroup.

      I do not reply to personal email.

      #4; Fri, 06 Jun 2008 09:31:00 GMT