'' 
'' このコードは、DioDocs for PDF のサンプルの一部として提供されています。
'' © MESCIUS inc. All rights reserved.
'' 
Imports System.IO
Imports System.Drawing
Imports GrapeCity.Documents.Pdf
Imports GrapeCity.Documents.Text

Public Class MakeLinearized
    Public Function CreatePDF(ByVal stream As Stream) As Integer
        ' 任意のリニアライズされていない PDF を読み込みます。
        Using fs = File.OpenRead(Path.Combine("Resources", "PDFs", "CompleteJavaScriptBook.pdf"))
            Dim doc = New GcPdfDocument()
            doc.Load(fs)

            ' PDF をリニアライズして保存します。
            doc.Save(stream, SaveMode.Linearized)

            '#_3 Done:
            Return doc.Pages.Count
        End Using
    End Function
End Class