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 WithEnd Sub