Imprimer le contenue d'une listview

Télécharger le projet
Commenter

Description

Voilà ce code n'est pas de moi mais je tient à vous le faire partager car je sais qu'il n'en existe pas de ce genre a moin de faire des "bidouille". Aprés avoir chercher pendant des moi j'ai trouver comment imprimer une listview et en plus avec un aperçus avant impression

Source / Exemple : 


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

Conclusion :


J'ai regarder sur le site je n'est trouver de code aussi parfait que celui-ci dans le genre mais je sais aussi que beaucoup de gents recherche ce code alors voilà c pour vous. Et ces aussi ma 1ere contribution. Il est convertis en VS 2005
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.