''
'' This code is part of Document Solutions for Word demos.
'' Copyright (c) MESCIUS inc. All rights reserved.
''
Imports System.IO
Imports GrapeCity.Documents.Word
Imports GrapeCity.Documents.Word.Layout

Public Class PasswordProtectPdf
    Function CreateDocx() As GcWordDocument
        Dim doc As GcWordDocument = New GcWordDocument()
        doc.Load(Path.Combine("Resources", "WordDocs", "ProcurementLetter.docx"))
        Return doc
    End Function

    Public Shared Function GetPdfOutputSettings() As PdfOutputSettings
        Dim settings = New PdfOutputSettings()
        Dim sh = settings.CreateSecurityHandler("password")
        sh.CopyContent = False
        sh.PrintingPermissions = GrapeCity.Documents.Pdf.Security.PrintingPermissions.Disabled
        sh.EditingPermissions = GrapeCity.Documents.Pdf.Security.EditingPermissions.Disabled
        Return settings
    End Function
End Class