Share via

IncludeRouteSummary property

  • Article

Returns or sets whether route summary information—distance, total travel time, driving time, and cost—is printed on a separate page. Read/write Boolean.

Applies to

Objects:  PageSetup

Syntax

object.IncludeRouteSummary

Parameters

Part Description
object Required. An expression that returns a PageSetup object.

Example

    Sub IncludeRouteSummaryInPrintOut()


  Dim objApp As New MapPoint.Application
  Dim objMap As MapPoint.Map
  Dim objRoute As MapPoint.Route


  'Set up the application
  Set objMap = objApp.ActiveMap
  Set objRoute = objMap.ActiveRoute
  objApp.Visible = True
  objApp.UserControl = True


  'Create a route
  objRoute.Waypoints.Add objMap.FindResults("Seattle, WA").Item(1)
  objRoute.Waypoints.Add objMap.FindResults("Spokane, WA").Item(1)
  objRoute.Calculate


  'Include the route summary in the printout
  objMap.PageSetup.IncludeRouteSummary = True
  objMap.PrintOut PrintArea:=geoPrintDirections


  End Sub

Note  This sample code is specific for use in MapPoint North America; it is for illustration purposes only.