Printen Selectie

[ReilingJ]

Hallo,

ik heb de volgende code verzonnen om een selectie te printen:

Sub SelectRange()
    Dim selektie As Range

    Set selektie = ActiveDocument.Paragraphs(2).Range

    selektie.SetRange Start:=selektie.Start, _
        End:=ActiveDocument.Bookmarks("BMEindprint").End
    selektie.Select
    With ActiveDocument
       
    ActiveDocument.PrintOut , (selektie)
        
    End With

End Sub

Hierna krijg ik de een foutmelding, (selectie is groter dan 255 tekens). Echter als ik een printopdracht geef via het menu "afdrukken" waarbij deze selectie nog steeds is (ik haal even de printopdracht uit de code) geselecteerd, kan ik gewoon de selectie printen.

Wat moet ik aan mijn code veranderen om mijn selectie wel af te kunnen drukken? (wat komt er in de plaats van Set selektie = ActiveDocument.Paragraphs(2).Range

(Office 2003)

Groet Jan.

 

[ReilingJ]

Na gebruik van de help funktie zelf opgelost:

Sub SelectRange()
    Dim rngParagraph As Range

    Set rngParagraph = ActiveDocument.Paragraphs(2).Range

    rngParagraph.SetRange Start:=rngParagraph.Start, _
        End:=ActiveDocument.Bookmarks("BmEindeprint").Range.End
    rngParagraph.Select

    Application.PrintOut FileName:="", Range:=wdPrintSelection, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
End Sub

Groet, Jan