Records afdrukken

[Road Dogz]

Hoi,

Ik probeer door middel van een macro alle records af te druk in word (afdruk samenvoegen) maar hij blijft lussen bij de laatste record (drukt laatste record telkens opnieuw af). Iemand een idee wat er fout is?

Dim ver As Integer
ver = 1

Do While ver = 1

ActiveDocument.PrintOut
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord

If ActiveRecord = wdLastRecord Then

ActiveDocument.PrintOut
ver = 0

Else
End If
Loop

End Sub

 

[snb]

activedocument.mailmerge.execute
activedocument.printout true

geeft het door jou gewenste effekt.

commentaar op je code

Sub tst()
  With .MailMerge.DataSource
    Do until .ActiveRecord = wdLastRecord
      ActiveDocument.PrintOut
      .ActiveRecord = wdNextRecord
    Loop
  End With
End Sub