PageCount

Syntax

NumPages% = RTF.PageCount(handle)

Description

Tel het totaal aantal bladzijden van een geopend documentcontainer met handle.

Parameter	Description
handle	Numeriek, referentie naar de met CreateHandle geopende documentcontainer.

See Also

CreateHandle.

Example

Sub Main

Dim h%, s%, Doc$

h% = RTF.CreateHandle() 'open een nieuwe container

s% = RTF.CreateHandle() 'open een nieuwe container (sjabloon)

Doc$ = "c:\testsjabloon.rtf"

If RTF.LoadFile(h%, Doc$) And RTF.LoadFile(h%, Doc$) Then

If RTF.InsertPage(h%, 3, s%, 2) = True Then

Debug.Print RTF.PageCount(h%)

End If

Debug.Print RTF.SaveFile(h%, "c:\testdoc.rtf")

RTF.CloseHandle h% 'sluit de container

End Sub