Meilleur auteur de réponses
Impression des documents Word sur VB.NET

Question
-
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 SubSub OuvrirExcel()
appxls = New Excel.Application 'Microsoft.Office.Interop.Excel.Application
appxls.Visible =
False ' N ouvre pas le fichier , si tu mets True ouvre le fichierbook = appxls.Workbooks.Open("C:\TonFichier.xls")
End Sub
Try
book.Close(
True, , )appxls.Quit()
book =
Nothingappxls =
Nothing Catch ex As Exception Finally Me.Cursor = Cursors.Default End Try End SubJ'espère que ça va t'aider
Toutes les 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 SubSub OuvrirExcel()
appxls = New Excel.Application 'Microsoft.Office.Interop.Excel.Application
appxls.Visible =
False ' N ouvre pas le fichier , si tu mets True ouvre le fichierbook = appxls.Workbooks.Open("C:\TonFichier.xls")
End Sub
Try
book.Close(
True, , )appxls.Quit()
book =
Nothingappxls =
Nothing Catch ex As Exception Finally Me.Cursor = Cursors.Default End Try End SubJ'espère que ça va t'aider
-
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
-
-
-