Aller au contenu
Règlement du forum ×
IPTV et arnaques ×

imprimer via vb.net


getule

Messages recommandés

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]

Modifié par getule
Lien vers le commentaire
Partager sur d’autres sites

Rejoindre la conversation

Vous pouvez publier maintenant et vous inscrire plus tard. Si vous avez un compte, connectez-vous maintenant pour publier avec votre compte.

Invité
Répondre à ce sujet…

×   Collé en tant que texte enrichi.   Coller en tant que texte brut à la place

  Seulement 75 émoticônes maximum sont autorisées.

×   Votre lien a été automatiquement intégré.   Afficher plutôt comme un lien

×   Votre contenu précédent a été rétabli.   Vider l’éditeur

×   Vous ne pouvez pas directement coller des images. Envoyez-les depuis votre ordinateur ou insérez-les depuis une URL.

  • Messages

    • Je confirme que Max_OTT et Raptor76 sont des personnes TRES sérieuses et sympas . Je suis abonné avec Max_OTT avec le serveur King depuis 2 mois et tout fonctionne parfaitement . Et comme vous le savez , j'en ai essayé des tonnes de serveurs qui ne marchaient pas !!! King , c'est un poil moins en VOD mais en qualité en direct , je n'ai JAMAIS eu la moindre coupure pendant les matchs de foot que ce soit de la L1 sur Prime en FHD ou des GROS matchs de Champions league sur Canal+ en 4K AUCUNE coupure .
    • Je ne vais pas le donné maintenant je vais attendre que l'événement ce poursuivre un peut d'abord ta quoi comme modem? Oui le fix marche bien avec la fibre mais pas de signale los pas d'internet 
    • @popmpopm tu as fais comment pour accéder au mode superadmin? j'ai pas bien compris le truc avec le numéro fixe.. de base c'était telecomadmin/admintelecom pour le huawei mais maintenant ca marche plus..
    • Enfin le superadmin ... Enfin tous les option  Je pense que le nom d'utilisateur et mot de passe de la connexion est le numéro de téléphone du fix avancé par 3 lettres et la même chose pour mp c'est ce que j'ai trouvé.. Je bidouille mais sans internet il mon installé le modem sans signal los mais le fix marche bizarre le technicien ma dit d'attendre 1 heure mais après 5 heure y'a rien j'ai appelé le 12 il mon dit que si elle ne serait pas activé par votre agence alors demain en va l'activé mais moi j'ai un doute lui même a appelé le 12 il ont dit que le signale ne pas stable alors m'a dit que peut être il ya du la poussière il a sifflet un peut dans le trou de la boîte 🤣🤣 moi ma conclusion c'est du bricolage tous ca je vais le contacté dimanche avant que ligne soit rétabli sinon je vais resté avec une connection de batata ellah yej3al el khir  
×
×
  • Créer...