Windows Error Fixer: 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.

Thanks.

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
            .Execute
        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.