HorizontalFlip Property [Publisher 2003 VBA Language Reference]

Article
07/11/2006

HorizontalFlip property as it applies to the Shape and ShapeRange objects.

MsoTriState

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

Applies to | AdvancedPrintOptions Object | Shape Object | ShapeRange Collection

Share via