The following VBA example creates a rectangle, fills the rectangle, and converts it to a bitmap. It then creates another rectangle. Finally, before printing the document, it specifies not to print bitmaps but to print vectors.
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