2 x 24 sider i word.....???

Når du brevfletter nummereres de 24 sider til den første modtager med nummer 1-24, og til den næste modtager også med nummer 1-24, med andre ord ingen af dine sider har et højere sidetal end 24, og derfor udskrives alle sider.
Når det kun er modtagere det drejer sig om, vil jeg foreslå at du fletter til den første - udskriver, fletter til den - udskriver.

= 2 modtagere det drejer sig om

Vælg den record du skal udskrive via Fletmenuen og tryk på udskriv til printer, her få du mulighed for kun at udskrive til den valgte record.

Du kan bruge nedennævte kode, men igen skal det være den aktuelle record.

With ActiveDocument.MailMerge
        .Destination = wdSendToPrinter
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
            .LastRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
        End With
        .Execute Pause:=False
    End With
End Sub

Der kan være tale om op til ca. 400 modtagere, så......

hov-sa: kan man ikke lave en løkke i din kode, så den sender alle records afsted som printjobs?

Nu har jeg ændret koden til:

ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstDataSourceRecord

For a = 1 To ActiveDocument.MailMerge.DataSource.RecordCount

    With ActiveDocument.MailMerge
        .Destination = wdSendToPrinter
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
            .LastRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
        End With
        .Execute Pause:=False
        .DataSource.ActiveRecord = wdNextDataSourceRecord
    End With

Next a


Burde dette ikke virke ok (det virker i en lille test, men jeg mener sådan overordnet funktionelt)?

MVH

JoBless

Jeg troede du skulle have skrevet enkelte records ud, og der skal du vide hvilke, men hvis du skal udskrive alle record i et fletdocument, viser en indspillet makroen dette:

With ActiveDocument.MailMerge
        .Destination = wdSendToPrinter
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
    End With
End Sub