PrintOptions.PrintBitmaps

Property PrintBitmaps As Boolean

The PrintBitmaps property returns or sets whether bitmaps are printed.

The following code example creates a rectangle, fills the rectangle, and converts it to a bitmap. It then creates another rectangle, sets bitmaps to not print and sets vectors to print before printing the document.

Sub Test() 
 Dim s As Shape 
 With ActiveDocument 
   Set s = .ActiveLayer.CreateRectangle(2, 6, 8, 8) 
   s.Fill.UniformColor.RGBAssign 255, 0, 0 
   s.ConvertToBitmap , , , , 96 
   Set s = .ActiveLayer.CreateRectangle(4, 6, 8, 2) 
   .PrintSettings.Options.PrintBitmaps = False 
   .PrintSettings.Options.PrintVectors = True 
   .PrintOut 
 End With  
End Sub