Imprimer le contenue d'une listview

Soyez le premier à donner votre avis sur cette source.

Vue 17 243 fois - Téléchargée 2 288 fois

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

Ajouter un commentaire Commentaires
cs_amelie90 Messages postés 6 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 18 mai 2010
18 mai 2010 à 07:59
super code, maintenant en intégrant dans mon prog. et par simple clic de bouton (Imprimer), je veux imprimer le contenu de mon listview, quel partie du code je dois intégrer?
cs_amelie90 Messages postés 6 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 18 mai 2010
17 mai 2010 à 14:43
super code, maintenant en intégrant dans mon prog. et par simple clic de bouton (Imprimer), je veux imprimer le contenu de mon listview, quel partie du code je dois intégrer?
cs_amelie90 Messages postés 6 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 18 mai 2010
17 mai 2010 à 08:41
super code, maintenant en intégrant dans mon prog. et par simple clic de bouton (Imprimer), je veux imprimer le contenu de mon listview, quel partie du code je dois intégrer?
nono78220 Messages postés 181 Date d'inscription dimanche 3 décembre 2006 Statut Membre Dernière intervention 28 octobre 2010
27 avril 2010 à 02:08
Bonjour,

Le ode est interessant, cependant certaines parties apparaissent surlignées;
Par exemple : ps = New PrintStructureListView

Faut-il un imports ?

Merci d'avance
RISTY123 Messages postés 3 Date d'inscription jeudi 26 mars 2009 Statut Membre Dernière intervention 4 avril 2009
4 avril 2009 à 09:46
help , je suis novice en vba et j'aimerai bien utiliser ce code mais je sais pas dans quelle partie il faut le mettre : module, module de classe? DOIT t'on mettre un bouton imprimer qui puisse appeler (call) ce code ou bien?

AIDER MOI, merci d'avance
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.