PrintPostScript.JPEGQuality

Object Model Reference : Classes : P : PrintPostScript : Properties : PrintPostScript.JPEGQuality

PrintPostScript.JPEGQuality

Property JPEGQuality As Long

Description

The JPEGQuality property returns or specifies the quality of compressed bitmaps in a print job. To use this property, you must enable the JPEGCompression property (which allows for the compression).

VBA example

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. JPEG compression is disabled, and the document is printed. Then JPEG compression is enabled, the quality of the compression is set, and the document is printed 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