RTF Object
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
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
End If
 
Debug.Print RTF.SaveFile(h%, "c:\testdoc.rtf")
 
RTF.CloseHandle h% 'sluit de container
 
End Sub