PrintPostScript.JPEGQuality

Property JPEGQuality As Long

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

The following 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, sets 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