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