''' <summary>
''' Removes all unused characters from fonts of PDF document.
''' </summary>
''' <param name="pdfFilename">The filename of PDF document.</param>
''' <param name="resultFilename">The filename of resulting PDF document.</param>
Public Shared Sub PackAllFontsOfDocument(pdfFilename As String, resultFilename As String)
    Using document As New Vintasoft.Imaging.Pdf.PdfDocument(pdfFilename)
        ' pack all fonts using progress controller
        document.FontManager.PackAllFonts()
        ' pack and save document to new location
        document.Pack(resultFilename)
    End Using
End Sub

/// <summary>
/// Removes all unused characters from fonts of PDF document.
/// </summary>
/// <param name="pdfFilename">The filename of PDF document.</param>
/// <param name="resultFilename">The filename of resulting PDF document.</param>
public static void PackAllFontsOfDocument(string pdfFilename, string resultFilename)
{
    using (Vintasoft.Imaging.Pdf.PdfDocument document = new Vintasoft.Imaging.Pdf.PdfDocument(pdfFilename))
    {
        // pack all fonts using progress controller
        document.FontManager.PackAllFonts();
        // pack and save document to new location
        document.Pack(resultFilename);
    }
}