DrawToFile Method

Syntax

Public Sub DrawToFile( _
   ByVal FilePath As String _
) 

[VBScript] 

    Dim MyDocument
    Set MyDocument = WScript.CreateObject( "DynamicPDF.Document" )
    Dim MyPage
    Set MyPage = MyDocument.AddPage()
    Dim MyDir
    MyDir = CreateObject( "Scripting.FileSystemObject" ).GetFolder(".").Path
    Dim MyImportedPageArea
    Set MyImportedPageArea = MyPage.AddImportedPageArea( MyDir & "\PDFs\fw9AcroForm_03.pdf", 1, 0, 0, 50 )
    MyImportedPageArea.Contents.ClipLeft = 10
    MyImportedPageArea.Contents.ClipTop = 10
    MyImportedPageArea.Contents.ClipRight = 10
    MyImportedPageArea.Contents.ClipBottom = 10
    MyDocument.DrawToFile( "DrawFile.pdf" )
    Set MyPage = Nothing
    Set MyDocument = Nothing