'''' This code is part of Document Solutions for Word demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.IOImports GrapeCity.Documents.WordImports 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 FunctionEnd Class