Brevflet til seperate udprintninger

Når du brevfletter oprettes der automatisk flere sektioner - en pr. modtager. Du kan så udskrive de enkelte sektioner hver for sig vi nedenstående makro:

Sub UdskrivHverSektionForSigSelv()
   
    'Tæller sektioner
    svar = ActiveDocument.Sections.Count
   
    'Finder områderne, der skal udskrives
    If svar > 0 Then
        For n = 1 To svar
          ActiveDocument.Sections.Item(n).Range.Select
          Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend 'Så der ikke kommer en ekstra side ud
          Application.PrintOut Range:=wdPrintSelection
        Next n
    End If
End Sub

Koden virker, men jeg har problemer med at den udskriver en blank side til sidst ??

Det gjorde den også for mig - derfor satte jeg linien: "Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend" ind. Måske skal du forøge Count:=1 til 2 eller flere...

Det kan også være et versionsspørgsmål - hvilken version af Word bruger du?

Jeg bruger word2000

Mit forsøg med at skrive 'For n = 1 To svar - 1' ser ud til at fjerne den sidste blanke side, uden det dog er gennemtestet. Jeg har også opdaget et problem med at word tilsyneladende overser tvunget sideskift ?!?

OK så det var kun den aller sidste side, der kom for meget med - i min test var det en ekstra side på udprintning...

Min kode reagerer ikke på tvunget sideskift - kun på nye sektioner. Hvad mener du med at den overser de tvungne sideskift?

Hvis jeg indsætter et tvunget sideskift, udskriver den en streg og skriver 'Sideskift', istedet for at fortsætte med at udskrive på næste side.

Jeg har lige testet det hos mig og her virker det fint med tvungne sideskift - hmm. Har du opdateret din Word med de nyeste Service Realeses?

Du kunne også lige sende dokumentet (eller et testdokument) til mig, så tjekker jeg om det virker hos mig: rvejemad@sca.csc.com

Hvordan går det?

Jeg har været fuldt optaget af at bygge koden ind i en com add-in. Det ser ud til at virke, så der er point på vej....

Tak for hjælpen

MVH

JoBless

Tak for points *S*

Hej igen.....

Jeg er stødt på et problem. Koden medtager ikke sidehoved/sidefod.
Hvordan kan jeg løse dette?

Så må du bruge denne jeg lige har fundet på Google.com *S*

Sub UdskrivHverSektionForSigSelv()
    NrSec = ActiveDocument.Sections.Count
    For i = 1 To NrSec
        ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, _
        Pages:="s" & Str(i)
    Next
End Sub

rvm - rulez......

Kanon, tak for hjælpen (endnu en gang)

MVH

JoBless

Hulk hulk.............
Nu er en kvik bruger kommet på den ide at der skal laves et word dokument med flere spalter. Disse spalter oprettes åbentbart med sektions skift. Dette resulterer i at der udskriver en fandens masse dokumenter.....
Findes der en løsning på dette?