PrintPostScript.JPEGCompression property - Developer Area

API Documentation > CorelDRAW > 2022-v24 > PrintPostScript > IPrnVBAPrintPostScript

PrintPostScript.JPEGCompression property

Specifies whether JPEG compression should be used on bitmaps

Syntax:

Property Get JPEGCompression() As Boolean
Property Let JPEGCompression(ByVal Value As Boolean)

Remarks:

The JPEGCompression property returns or specifies a Boolean (True or False) value that indicates whether to compress bitmaps for a print job.

You can use the PrintPostScript.JPEGQuality property to specify the quality of the compression.

Examples:

The following VBA example creates a rectangle, an ellipse, and a polygon. It fills each of them with a texture fill and converts them to bitmaps. Before the document is printed, it disables JPEG compression. It then enables JPEG compression, specifies the quality of the compression, and prints the document again.

Sub Test()
  Dim shRect As Shape
  Set shRect = ActiveLayer.CreateRectangle(1.114882, 10.078268, 3.030787, 8.485827, 0, 0, 0, 0)
  Dim shEllipse As Shape
  Set shEllipse = ActiveLayer.CreateEllipse(4.075827, 7.540315, 6.016614, 5.375591, 90#, 90#, False)
  Dim shPolygon As Shape
  Set shPolygon = ActiveLayer.CreatePolygon(5.842445, 2.912283, 7.758343, 0.44898, 5, 1, 1, False, 50, 100)
  With shPolygon.Fill.ApplyTextureFill("Alien Eyes", "Samples 9")
    .SetProperties 3281, 2, 0, 150, 25, 1, CreateRGBColor(25, 0, 73), CreateRGBColor(229, 255, 0), 0
    .MaximumTileWidth = 2049
    .TransformWithShape = True
    .MirrorFill = False
    .TileOffsetType = cdrTileOffsetRow
    .TileOffset = 0
    .Resolution = 300
    .RotationAngle = 0#
    .SkewAngle = 0#
    .TileHeight = 2.228083
    .TileWidth = 1.822134
    .OriginX = 0#
    .OriginY = 0#
  End With
  shPolygon.ConvertToBitmap , , , False, 150
  With shEllipse.Fill.ApplyTextureFill("Disco Nightmare", "Samples 9")
    .SetProperties 4641, 0, 100, 0, 100, CreateRGBColor(51, 0, 204), CreateRGBColor(255, 102, 0), 0
    .MaximumTileWidth = 2049
    .TransformWithShape = True
    .MirrorFill = False
    .TileOffsetType = cdrTileOffsetRow
    .TileOffset = 0
    .Resolution = 300
    .RotationAngle = 0#
    .SkewAngle = 0#
    .TileHeight = 2.164724
    .TileWidth = 1.940787
    .OriginX = 0#
    .OriginY = 0#
  End With
  shEllipse.ConvertToBitmap , , , False, 150
  With shRect.Fill.ApplyTextureFill("Solder", "Samples 9")
    .SetProperties 19195, 60, 0, 75, 25, 100, 50, 50, CreateRGBColor(25, 25, 255), CreateRGBColor(0, 0, 0), CreateRGBColor(255, 255, 255), 0
    .MaximumTileWidth = 2049
    .TransformWithShape = True
    .MirrorFill = False
    .TileOffsetType = cdrTileOffsetRow
    .TileOffset = 0
    .Resolution = 300
    .RotationAngle = 0#
    .SkewAngle = 0#
    .TileHeight = 2.662362
    .TileWidth = 1.84126
    .OriginX = 0.000008
    .OriginY = 0.000004
  End With
  shRect.ConvertToBitmap , , , False, 150
  With ActiveDocument
    .PrintSettings.PostScript.JPEGCompression = False
    .PrintOut
    .PrintSettings.PostScript.JPEGCompression = True
    .PrintSettings.PostScript.JPEGQuality = 100
    .PrintOut
  End With
End Sub

Version Information:

CorelDRAW:	X7.4, X7, X7.6, X8, 2017, 2018, 2019, 2019.2, 2020, 2021, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25
Corel PHOTO-PAINT:	X7.4, X7, X7.6, X8, 2017, 2018, 2019, 2019.2, 2020, 2021, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25
Corel DESIGNER:	X7, 2017.1, 20.1, 2019.2, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25