PageSize.Delete

Sub Delete()

Member of PageSize

The Delete property deletes a custom paper type.

The following code example deletes all page sizes that are not predefined, including custom page sizes:

Sub Test() 
 Dim ps As PageSizes 
 Dim d As Document 
 Dim p As PageSize 
 Set d = CreateDocument 
 Set ps = d.PageSizes 
 For Each p In ps 
  If Not p.BuiltIn Then 
   p.Delete 
  End If 
 Next p 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.