IL SEMBLE QUE VOUS UTILISEZ ADBLOC POUR BLOQUER LA PUBLICITÉ, AUCUNE PUB INTRUSIVE SUR FDZ ET PAS DE POPUP
FDZ EST GRATUIT DONC MERCI DE DÉSACTIVER VOTRE ADBLOCK ET DE BIEN VOULOIR PARTICIPER ET JOUER LE JEU


PAR SUITE D'ABUS LES SERVEURS CCCAM ET ABONNEMENT NE SONT PAS TOLÉRÉS SUR LE FORUM


Affichage des résultats 1 à 1 sur 1
Share |

Discussion: imprimer via vb.net

  1. #1
    Date d'inscription
    juin 2009
    Messages
    31
    Remerciements
    0
    Remercié 0 fois dans 0 messages
    Pouvoir de réputation
    0

    Par défaut imprimer via vb.net

    voici une procédure simple pour imprimer un gatagridview via excel (vb.net) source : http://forum.diafdz.com
    Code:
    ' on importe 
    Imports Microsoft.Office.Interop 'la procédure pour imprimer Sub imprimer() Dim xlApp As Excel.Application ' Application excel Dim xlBook As Excel.Workbook ' Classeur excel Dim xlSheet As Excel.Worksheet ' Feuille excel xlApp = CType(CreateObject("Excel.Application"), Excel.Application) xlBook = xlApp.Workbooks.Open("D:\MonRepertoire\Monfichier.xls") xlSheet = CType(xlBook.Worksheets(1), Excel.Worksheet) Try ' ici on compte le nombre de lignes et de colonnes du datatable Dim nbrLigne As Integer = Me.DataGridView1.Rows.Count - 1 Dim nbrColon As Integer = Me.DataGridView1.Columns.Count - 1 Dim x, y As Integer For x = 1 To nbrColon ' Pour chaque colonne et chaque ligne on transfert les données ' On commence par la ligne 7 et la colonne 2 pour laisser un espace For y = 0 To nbrLigne xlSheet.Cells(y + 7, x + 1) = Me.Vente_FactureDataGridView.Item(x, y).Value Next Next ' ici on affiche les résultat dans excel xlSheet.Application.Visible = True xlSheet.PrintPreview() ' on peut sauvegarder notre document sur le disque ' xlSheet.SaveAs("D:\MonRep\" Monfichier.xls") xlApp.DisplayAlerts = False ' on quitte l'application et on détruit les objets xlApp.Quit() xlSheet = Nothing xlBook = Nothing xlApp = Nothing Catch ex As Exception xlApp.DisplayAlerts = False xlApp.Quit() xlSheet = Nothing xlBook = Nothing xlApp = Nothing End Try
    End Sub
    on peut aussi faire plus de choses (en insérant le Numero de facture, le nom du client etc...)
    exemple
    Code:
    xlSheet.Cells(4, 4) = " FACTURE N° : " & Me.Label1.Text
    xlSheet.Cells(1, 6) = Me.Label2.Text
    xlSheet.Cells(2, 4) = " DOIT A : " & Me.Label3.Text
    Dernière modification par getule ; 28/10/2011 à 17h51.

Discussions similaires

  1. Imprimer avec un crayon de papier
    Par gunners dans le forum Actu - News High-Tech
    Réponses: 0
    Dernier message: 12/02/2012, 09h02

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •  
[Auto utilitaire DZ] [Webimag] [Algérie Info] [Guide Algérie] [Mosquée ALBADR MEAUX] [Photographe MARIAGE]

is PageRank Checking Icon