none
Impression des documents Word sur VB.NET RRS feed

  • Question

  • Bonjour

    je veux imprimer un document Word directement a partir de mon application que je développe sur VB.NET mais toujours j'y arrive plus.

    vos idées seront les bienvenues.

    merci

    jeudi 10 mai 2007 08:43

Réponses

  • Salut

    Je bosse sur un truc du genre en se moment, mais avec Excel, mais je pense que s'est la même chose.

     

    voici mon exemple :

    Imports Microsoft.Office.Interop

     ' Ajoute les references Microsoft Office 11.0 Object Library + Microsoft Excel 11.0 Object Library ou Microsoft Word 11.0 Object Library

     

    Private Sub ButtonImprimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonImprimer.Click

    Me.Cursor = Cursors.WaitCursor

    If My.Computer.FileSystem.FileExists("C:\TonFichier.xls") Then ' Verifi si le fichier xls existe

    OuvrirExcel()

    'Recherche_Cellule()

    appxls.Application.Worksheets("Feuil1").printOut(copies:=1, Collate:=True)

    FermerExcel()

    Else

    Me.Cursor = Cursors.Default

    MessageBox.Show("Le fichier n'a pas été trouvé.", "Error Open Excel", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

    End If

    End Sub

     

    Sub OuvrirExcel()

    appxls = New Excel.Application 'Microsoft.Office.Interop.Excel.Application

    appxls.Visible = False  ' N ouvre pas le fichier , si tu mets True ouvre le fichier

    book = appxls.Workbooks.Open("C:\TonFichier.xls")

    End Sub

     

    Sub FermerExcel()

    Try

    book.Close(True, , )

    appxls.Quit()

    book = Nothing

    appxls = Nothing

    Catch ex As Exception

    Finally

    Me.Cursor = Cursors.Default

    End Try

    End Sub

     

    J'espère que ça va t'aider

    vendredi 11 mai 2007 08:50

Toutes les réponses

  • aucune idee ?
    jeudi 10 mai 2007 14:06
  • Salut

    Je bosse sur un truc du genre en se moment, mais avec Excel, mais je pense que s'est la même chose.

     

    voici mon exemple :

    Imports Microsoft.Office.Interop

     ' Ajoute les references Microsoft Office 11.0 Object Library + Microsoft Excel 11.0 Object Library ou Microsoft Word 11.0 Object Library

     

    Private Sub ButtonImprimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonImprimer.Click

    Me.Cursor = Cursors.WaitCursor

    If My.Computer.FileSystem.FileExists("C:\TonFichier.xls") Then ' Verifi si le fichier xls existe

    OuvrirExcel()

    'Recherche_Cellule()

    appxls.Application.Worksheets("Feuil1").printOut(copies:=1, Collate:=True)

    FermerExcel()

    Else

    Me.Cursor = Cursors.Default

    MessageBox.Show("Le fichier n'a pas été trouvé.", "Error Open Excel", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

    End If

    End Sub

     

    Sub OuvrirExcel()

    appxls = New Excel.Application 'Microsoft.Office.Interop.Excel.Application

    appxls.Visible = False  ' N ouvre pas le fichier , si tu mets True ouvre le fichier

    book = appxls.Workbooks.Open("C:\TonFichier.xls")

    End Sub

     

    Sub FermerExcel()

    Try

    book.Close(True, , )

    appxls.Quit()

    book = Nothing

    appxls = Nothing

    Catch ex As Exception

    Finally

    Me.Cursor = Cursors.Default

    End Try

    End Sub

     

    J'espère que ça va t'aider

    vendredi 11 mai 2007 08:50
  • merci pour ta réponse,

    ca semble interessant, le seul soucie que je trouve est que mon code ne reconnait plus l'importation qu'on fait par Imports Microsoft.Office.Interop

    tu peux m'expliquer davance comment integrer l'objet Office 11 dans l'application ? le reste je crois qu'il est plus simple

    lundi 14 mai 2007 22:45
  • c'est bon j'ai reussit a le faire

    merci bien de m'avoir aidé

    j'ai testé ton code il marche 10/10

    il me reste a faire la meme chose avec Word (ce qui m'interesse le plus) et je pense que ca va bien marcher

    merci encore salut

    lundi 14 mai 2007 23:02
  • As tu reussi avec Word ???

     

    mercredi 16 mai 2007 20:42
  • ouai ca a ete tres facil !! j'ai just changé le mot excel par Word

    merci encore pour ton aide

    jeudi 17 mai 2007 09:35