VerticalFlip Property

Microsoft Publisher Visual Basic

MsoTriState can be one of these MsoTriState constants.
msoCTrue Not used with this property.
msoFalse The shape has not been flipped around its vertical 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 vertical axis.

expression.VerticalFlip

expression    Required. An expression that returns one of the objects in the Applies To list.

ShowVerticalFlip property as it applies to the AdvancedPrintOptions object.

True to print a vertically mirrored image of the specified publication. The default is False. Read/write boolean.

expression.VerticalFlip

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 vertically 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

ShowAs 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 shpBall As Shape

    For Each shpBall In ActiveDocument.MasterPages.Item(1).Shapes
        If shpBall.HorizontalFlip = msoTrue Then shpBall.Flip msoFlipHorizontal
        If shpBall.VerticalFlip = msoTrue Then shpBall.Flip msoFlipVertical
    Next

End Sub
		

ShowAs 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