IMPRIMER LE CONTENUE D'UNE LISTVIEW

Private Sub PrintOrPreviewListView(ByVal Preview As PrintPreview)
      ' create a strongly type collection of
      ' printstructure(columns)
      Dim ps As PrintStructureListView
      Dim col As New PrintListViewCollection

      ' print column 0 of grid
      ps = New PrintStructureListView
      ps.Column = 0
      ps.NumberDataColumnChars = 5
      ps.Alignment = Align.Center
      ps.PrintColumnWidth = 7
      col.Add(ps)

      ' print column 1 of grid
      ps = New PrintStructureListView
      ps.Column = 1
      ps.NumberDataColumnChars = 15
      ps.Alignment = Align.Left
      ps.PrintColumnWidth = 18
      col.Add(ps)

      ' print column 5 of grid
      ps = New PrintStructureListView
      ps.Column = 2
      ps.NumberDataColumnChars = 20
      ps.Alignment = Align.Left
      ps.PrintColumnWidth = 22
      col.Add(ps)

      ps = New PrintStructureListView
      ps.Column = 3
      ps.NumberDataColumnChars = 25
      ps.Alignment = Align.Left
      ps.PrintColumnWidth = 27
      col.Add(ps)

      ps = New PrintStructureListView
      ps.Column = 4
      ps.NumberDataColumnChars = 10
      ps.Alignment = Align.Right
      ps.PrintColumnWidth = 12
      col.Add(ps)

      ' set up print options
      Dim po As New PrintOptions
      po.CharsPerLine = CharsPerLine.CPL80
      po.ColHdr1 = "Col 1".PadRight(7) & _
                   "Column 2".PadRight(18) & _
                   "Column 3".PadRight(22) & _
                   "Column 4".PadRight(27) & _
                   "Column 5".PadRight(12)
      po.Portrait = PrintOrientation.Portrait
      po.Title = "My ListView Report"
      po.PrintOrPreview = Preview
      po.SubTitle = "This Report is ListView Columns 0-5"
      po.Boxed = True
      po.LeftMarginExtender = MarginExtender.OneHalfInch
      po.RightMarginExtender = MarginExtender.OneHalfInch
      po.TopMarginExtender = MarginExtender.OneHalfInch
      po.BottomMarginExtender = MarginExtender.OneHalfInch

      ' print the grid
      Dim pg As New CPrintGrid
      pg.PrintGrid(ListView1, col, po)

   End Sub