using Spire.Pdf;
using Spire.Pdf.Conversion.Compression;

namespace CompressPdf
{
class Program
{
static void Main(string[] args)
{
//Load a PDF document while initializing the PdfCompressor object
PdfCompressor compressor = new PdfCompressor("C:\\Users\\Administrator\\Desktop\\ToCompress.pdf");

//Get text compression options
TextCompressionOptions textCompression = compressor.Options.TextCompressionOptions;

//Compress fonts
textCompression.CompressFonts = true;

//Unembed fonts
//textCompression.UnembedFonts = true;

//Get image compression options
ImageCompressionOptions imageCompression = compressor.Options.ImageCompressionOptions;

//Set the compressed image quality
imageCompression.ImageQuality = ImageQuality.High;

//Resize images
imageCompression.ResizeImages = true;

//Compress images
imageCompression.CompressImage = true;

//Save the compressed document to file
compressor.CompressToFile("Compressed.pdf");
}
}
}

【VB.NET】

Imports Spire.Pdf
Imports Spire.Pdf.Conversion.Compression

Namespace CompressPdf
Class Program
Shared Sub Main(ByVal args() As String)
'Load a PDF document while initializing the PdfCompressor object
Dim compressor As PdfCompressor = New PdfCompressor("C:\\Users\\Administrator\\Desktop\\ToCompress.pdf")

'Get text compression options
Dim textCompression As TextCompressionOptions = compressor.Options.TextCompressionOptions

'Compress fonts
textCompression.CompressFonts = True

'Unembed fonts
textCompression.UnembedFonts = True

'Get image compression options
Dim imageCompression As ImageCompressionOptions = compressor.Options.ImageCompressionOptions

'Set the compressed image quality
imageCompression.ImageQuality = ImageQuality.High

'Resize images
imageCompression.ResizeImages = True

'Compress images
imageCompression.CompressImage = True

'Save the compressed document to file
compressor.CompressToFile("Compressed.pdf")
End Sub
End Class
End Namespace

歡迎下載|體驗更多E-iceblue產品