[Word/VBA] Probleem met mail merge

[Verwijderd]

Ik heb hier een macro (word 2k), die een bepaald bestand importeerd & de output op het scherm toverd in sticker formaat. 2 baans stickers, dus 2 addressen naast elkaar. Het probleem is dat op de computer waar de stickers worden uitgedraaid je
idd 2 addressen naast elkaar ziet staan, echter deze computer is bezig dood te gaan. En moet dus naar een andere computer worden overgeheveld. Op andere computers staan er echter 3 addressen naast elkaar, dus dit klopt niet
De office installaties zijn op beide pc's gelijk, misschien ligt het aan de printer instellinge?

De macro schrijver is niet meer aanwezig in bedrijf

MACRO:
-----------

Sub COMMISSIE()
'
' COMMISSIE Macro
' Macro opgenomen op 15-3-2001 door Jan de Haan
'
ActiveDocument.MailMerge.MainDocumentType = wdMailingLabels
ActiveDocument.MailMerge.OpenDataSource Name:="K:\commexp\COMM.DBF", _
ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:= _
"DSN=dBASE-bestanden;DBQ=K:\commexp;DefaultDir=K:\commexp\;DriverId=533;MaxBufferSize=2048;PageTimeout=5;" _
, SQLStatement:="SELECT * FROM COMM.DBF", SQLStatement1:=""
Application.MailingLabel.DefaultPrintBarCode = False
Application.MailingLabel.CreateNewDocument Name:="", Address:="", AutoText _
:="ExtraEtikettenMaken1", LaserTray:=wdPrinterDefaultBin
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.MailAsAttachment = False
.MailAddressFieldName = ""
.MailSubject = ""
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=True
End With
End Sub

[whoami]

Lees even de P&W Quickstart, en doorneem even de puntjes die daarin staan. Zo kan je een duidelijker topic openen.
Je zegt niet wat het prbleem precies is, wat er niet werkt etc...

Verder is Got geen 'post-je-probleem-code-en-we-fixen-het-voor-je' dienst. Debug het programma misschien ook eens, kijk wat er gebeurt en ga het dan gaan aanpassen.