| MsoTriState can be one of these MsoTriState constants. |
| msoCTrue Not used with this property. |
| msoFalse The shape has not been flipped around its horizontal axis. |
| msoTriStateMixed Indicates a combination of msoTrue and msoFalse for the specified shape range. |
| msoTriStateToggle Not used with this property. |
| msoTrue The shape has been flipped around its horizontal axis. |
expression.HorizontalFlip
expression Required. An expression that returns one of the objects in the Applies To list.
HorizontalFlip property as it applies to the AdvancedPrintOptions object.
True to print a horizontally mirrored image of the specified publication. The default is False. Read/write boolean.
expression.HorizontalFlip
expression Required. An expression that returns an AdvancedPrintOptions object.
Remarks
This property is only accessible if the active printer is a PostScript printer. Returns a run-time error if a non-PostScript printer is specified. Use the IsPostscriptPrinter property of the AdvancedPrintOptions object to determine if the specified printer is a PostScript printer.
This property is saved as an application setting and applied to future instances of Publisher.
This property corresponds to the Flip horizontally control on the Page Settings tab of the Advanced Print Settings dialog box.
This property is mostly used when printing to film on an imagesetter so that the image reads correctly when the emulsion side of the film is down (as when burning a press plate).
Example
As it applies to the Shape and ShapeRange objects.
This example restores each shape on the active publication to its original state if it has been flipped horizontally or vertically.
Sub Flipper()
Dim shpS As Shape
For Each shpS In ActiveDocument.MasterPages.Item(1).Shapes
If shpS.HorizontalFlip = msoTrue Then shpS.Flip msoFlipHorizontal
If shpS.VerticalFlip = msoTrue Then shpS.Flip msoFlipVertical
Next
End Sub
As it applies to the AdvancedPrintOptions object.
The following example determines if the active printer is a PostScript printer. If it is, the active publication is set to print as a horizontally and vertically mirrored, negative image of itself.
Sub PrepToPrintToFilmOnImagesetter()
With ActiveDocument.AdvancedPrintOptions
If .IsPostscriptPrinter = True Then
.HorizontalFlip = True
.VerticalFlip = True
.NegativeImage = True
End If
End With
End Sub