View Full Version : Mailing Labels


jthorn
11-27-2001, 04:26 PM
I have created labels using the label wizard. They look great on print, however, once I exit and re-enter the program, the labels only print in one column down the left had side of the page. I have re-done the wizard numerous times and it continues to happen. I use 2000. I know i could use Word, but I am creating these labels for the secretary to run and it would be too involved.
Does anyone have a suggestion?

jwindon
11-28-2001, 07:09 AM
You know...that happens to me ALL the time too. And I have never been able to figure out how to stop it.

What I did was just what you want to do. I created a mail merge document in Word that referenced my Access dbase. In the database, I put a command that opened that file. I haven't added the code to force the merge, but I have it around here somewhere.

To get things rolling quickly. Add a hyperlink to a form that IS the file of this mail merge. The secretary should be able to handle hitting the merge button in word a couple times.


When I find it, I'll post back.

jwindon
11-28-2001, 07:24 AM
Function Merge()

Dim oApp As Object

Set oApp = CreateObject("Word.Application")

oApp.Visible = True

With oApp

.Documents.Open "C:\My Documents\somewhere.doc"
.ActiveDocument.MailMerge.Execute
.ActiveDocument.PrintOut Background:=False
' Close the document without saving changes.
.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
' Quit Microsoft Word and release the object variable.
.Quit

Set oApp = Nothing


End With