Thursday, February 25, 2016

Solution to Problem: Mail Merge to Specific Column of Labels

Mail Merge to Specific Column of Labels

I am using a mail merge to print a set of 5 labels.
Since my label sheet has 30 labels I would be able to get 6 sets with no waste.
A set of 5 labels may be printed by itself at any time.
     Is there any way in VBA to tell the application to print to any particular column? I have the code to ask a question of the user.
However, I am unable to find anywhere that I can set a specific column to print in.
Mark F.

Keys to the Problem Mail Merge to Specific Column of Labels

Download SmartPCFixer to Fix It (Free)

Macro to set the first label on a part sheet of labels for a label type mailmerge.  It is designed to work only if the data source is in the form of a table in a Word document.  If your data source is in any other format, you
can get it into a Word table by first using it with a directory type mail merge main document in which you insert the mergefields into the cells of a one row table.  When you execute that merge to a new document, the document will contain a table with a row
of data for each record in the data source.  Insert a row at the top of the table into which you insert the field names and then save that document and use it as the datasource for your label merge.
When you have the label mail merge main document set up with
the data source, run the following macro and it will ask you how many labels have been used on the sheet and take that into account when it executes the merge to a new document.
Then print that document onto label stock.
Dim MMMDoc As Document
Dim dsource As Document
Dim dtable As Table
Dim i As Long, j As Long
Set MMMDoc = ActiveDocument
With MMMDoc.MailMerge
    If .MainDocumentType = wdMailingLabels Then
        If .State = wdMainAndDataSource Then
            Set dsource = Documents.Open(.DataSource.Name)
            Set dtable = dsource.Tables(1)
            i = InputBox("Enter the number of labels that have already been used on the sheet.", "Set Starting Label")
            If IsNumeric(i) Then
                With dtable
                    For j = 1 To i
                        .Rows.Add BeforeRow:=.Rows(2)
                    Next j
                End With
            End If
            .Destination = wdSendToNewDocument
        End If
    End If
End With
dsource.Close wdDoNotSaveChanges

Windows Restore - Totally Fix All Errors including Mail Merge to Specific Column of Labels

  • Click on the Start button on the Taskbar.
  • Type "System Restore" (without quotes) in the Search box and hit Enter or,
  • Click on System Restore (when you see System Restore pop up  in the list of search results).
  • Make sure the "Recommended restore" radio button is checked on the restore utility window.
  • Click on Next and follow the instructions given.

Note: There is the option on the restore utility to select "Choose a different restore point". Unless you have a specific reason to select a different date and time than what Windows recommends, just select the recommended option stated in the steps above. If you choose to select another one, follow these steps:

Click on that desired date and time, and Windows 7 will perform a scan for any affected programs in that restore point.

Once completed, click Next and follow the instructions given.

Once you have selected the restore point, your system will start the restoring process, after which you will have to restart the system.

Recommended Method to Fix the Problem: Mail Merge to Specific Column of Labels:



How to Fix Mail Merge to Specific Column of Labels with SmartPCFixer?

1. Download SmartPCFixer . Install it on your system.  Click Scan, and it will perform a scan for your computer. The errors will be shown in the list.

2. After the scan is finished, you can see the errors and problems which need to be repaired.

3. The Repair part is done, the speed of your computer will be much higher than before and the errors have been fixed. You can also use other functions in SmartPCFixer. Like dll downloading, windows updating and print spooler error repair.

Related: Black hole Gap in Task Bar Windows 8 1 Pro asus drivers Getting Error code 0x80070015 when doing backup in Windows 7 asus mainboard driver download Metro Apps Still Not Lauching After April 8 Windows 8 1 Update asus motherboard drivers Silverlight Updates causing Windows 7 32bit system to hang at desktop asus support Starting in Oct 2012 My computer started shuting down at radom times I sometimes get a error box saying Microsoft Windows is not responding asus com System Restore vs Windows Backup asus drivers Windows Unexpected Shutdowns Need Help asus support Steps to One-Click Download and Update Asus Touchpad Drivers on Your Computer,Icon Deleted Nd Required,Computer After Infected By Fake Antivirus,Resource (web Proxy) Is Online But Isn't Responding To Connection Attempts,Using Drop.down Box In Word,Win 7 X64 32gb SDHC ReadyBoost Issue
Read More: Solution to Error: Cannot get Internet Explorer to work,How to Fix - \"System Repair Application has stopped working\"?,Fast Solution to Problem: Cant open in Excel 2010 files with office 2003 running in windows xp parallels on a macbook pro,Tech Support: Sending workbooks with formulas link to another workbook.,,Application Does Not Start in Windows 7,NTLDR is Missing. Press CTR + ALT + DEL to restart?,Apps keep crashing every time I click on the tile, what's wrong?,Why is windows experience index for graphics score is less than gaming graphics score?,MSE keeps detecting and quarantining trojan js/medfos.b, how to remove it permanently?

No comments:

Post a Comment