Jump to content
getule

imprimer via vb.net

Recommended Posts

voici une procédure simple pour imprimer un gatagridview via excel (vb.net) source : http://forum.diafdz.com

[color=#008200][font=Consolas]' on importe [/font][/color]
[left][font=Consolas]Imports Microsoft.Office.Interop[/font]

[font=Consolas] 'la procédure pour imprimer[/font]
[font=Consolas] Sub imprimer()[/font]
[font=Consolas]        Dim xlApp As Excel.Application                           ' Application excel[/font]
[font=Consolas]        Dim xlBook As Excel.Workbook                          ' Classeur excel[/font]
[font=Consolas]        Dim xlSheet As Excel.Worksheet                       ' Feuille excel[/font]

[font=Consolas]        xlApp = CType(CreateObject("Excel.Application"), Excel.Application)[/font]

[font=Consolas]        xlBook = xlApp.Workbooks.Open("D:\MonRepertoire\Monfichier.xls")[/font]
[font=Consolas]        xlSheet = CType(xlBook.Worksheets(1), Excel.Worksheet)  [/font]
[font=Consolas]        Try[/font]
[font=Consolas]     ' ici on compte le nombre de lignes et de colonnes du datatable[/font]
[font=Consolas]            Dim nbrLigne As Integer = Me.DataGridView1.Rows.Count - 1[/font]
[font=Consolas]            Dim nbrColon As Integer = Me.DataGridView1.Columns.Count - 1[/font]
[font=Consolas]            Dim x, y As Integer[/font]
[font=Consolas]           For x = 1 To nbrColon[/font]
[font=Consolas]                                               ' Pour chaque colonne et chaque ligne on transfert les données [/font]
[font=Consolas]                                               ' On commence par la ligne 7 et la colonne 2 pour laisser un espace      [/font]
[font=Consolas]                For y = 0 To nbrLigne[/font]
[font=Consolas]                    xlSheet.Cells(y + 7, x + 1) = Me.Vente_FactureDataGridView.Item(x, y).Value [/font]
[font=Consolas]                Next[/font]
[font=Consolas]            Next[/font]

[font=Consolas]            ' ici on affiche les résultat dans excel[/font]
[font=Consolas]            xlSheet.Application.Visible = True[/font]
[font=Consolas]            xlSheet.PrintPreview()[/font]

[font=Consolas]  ' on peut sauvegarder notre document sur le disque[/font]
[font=Consolas]            ' xlSheet.SaveAs("D:\MonRep\" Monfichier.xls")[/font]

[font=Consolas]            xlApp.DisplayAlerts = False[/font]
[font=Consolas]            ' on quitte l'application et on détruit les objets[/font]
[font=Consolas]            xlApp.Quit()[/font]
[font=Consolas]            xlSheet = Nothing[/font]
[font=Consolas]            xlBook = Nothing[/font]
[font=Consolas]            xlApp = Nothing[/font]

[font=Consolas]        Catch ex As Exception[/font]
[font=Consolas]            xlApp.DisplayAlerts = False[/font]
[font=Consolas]            xlApp.Quit()[/font]
[font=Consolas]            xlSheet = Nothing[/font]
[font=Consolas]            xlBook = Nothing[/font]
[font=Consolas]            xlApp = Nothing[/font]
[font=Consolas]        End Try[/font]
[/left]


[font=Consolas]    End Sub[/font]

 

on peut aussi faire plus de choses (en insérant le Numero de facture, le nom du client etc...)

exemple

[font=Consolas]xlSheet.Cells(4, 4) = " FACTURE N° : " & Me.Label1.Text[/font]
[left][font=Consolas]xlSheet.Cells(1, 6) = Me.Label2.Text[/font][/left]


[font=Consolas]xlSheet.Cells(2, 4) = " DOIT A : " & Me.Label3.Text[/font]

Edited by getule

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.




  • Posts

    • Sans oublier votre numéro de compte ccp si vous l'avez pas en tête.  
    • Le projet de plateforme en commun pour les deux solutions (CIB et Edahabia) est prévu depuis longtemps mais ils n'ont pas pu le réaliser car le niveau de norme de la poste été supérieur à ceux des banques, ce qui causait un problème. Les banques travaillent cet aspect justement dans ce but, je ne sais pas ou ils en sont au jour d'aujourd'hui.
    • Bonsoir, La carte est envoyé a la poste selon le code postal indiqué lors de sa commande. Il faut partir a la poste ayant le bon code postal indiqué. Généralement c'est un guichet spécial, il faut juste demander à l'entrée quel guichet s'occupe des livraisons de cartes et faire la queue   tu devras fournir une pièce d'identité puis signer et poser tes empreinte attestant que tu as récupéré la carte. Et voila.
    • Bonsoir, Passer par DHL n'est aucunement une garantie de livraison sans passer par la douane. Ils peuvent très bien leur demander de payer une taxe sur le produit acheté que tu devras payer dans le cas ou tu voudrais le récupérer. Je déconseille fortement l'achat de produit de grande valeur pour une livraison en Algérie. Le mieux serais de se le faire livrer par quelqu'un venant en Algérie. Bonne chance
×
×
  • Create New...