nvb23
salut c difficile a expliquer mais j'utilise visual studio 2005 et le code qui se trouve ci-dessous devrait imprimer un fichier dont le nom est donnee par une textbox "txtfile.text" et l'evenement btnprint_click() devrait l' imprimer mais l'imprimante imprime le bon nombre de page mais elles sont vides et le fichier est bien mis dans la file de l'imprimante ALORS je sais pas pourquoi ca n'imprime rien?
merci de m'aider:
voici le code:
Imports
System.Windows.Forms.OpenFileDialog Imports
Microsoft.Office.Interop Imports
System.Drawing.Printing Public
Class Form1
Private Sub txtouvrir_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles txtouvrir.Click'ouvrir le fichierIf txtfile.Text = ""ThenMsgBox(
"?")ElseDim wrd AsNew Word.ApplicationDim wDoc AsNew Word.Documentwrd.Visible =
TruewDoc = wrd.Documents.Open(txtfile.Text)
EndIfEndSubPrivateSub btnbrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbrowse.Click
Dim op AsNew OpenFileDialog
With op
.InitialDirectory = "Desktop"'répertoire de départ
.Filter =
"Word document files (*.doc)|*.doc"' on travaille sur les fichiers word.Multiselect =
False'sélectionner 1 seul fichier.CheckFileExists =
True'Message si nom de fichier qui n'existe pas.'Permet d'ouvrir uniquement un fichier qui existe; CheckPathExists peut aussi être utilisé. .ValidateNames =
True'n'accepte que les noms valides (win 32).AddExtension =
True'ajoute une extension au nom s'il n'y en a pasEndWithIf op.ShowDialog = Windows.Forms.DialogResult.OK Then'L'utilisateur a bien cliqué sur okMe.txtfile.Text = op.FileNameEndIfEndSubDim pd1 AsNew PrintDialog'definit une boite de dialogue demandant a l'utilisateur de choisir une imprimante et diverses optionsDim pd2 AsNew Printing.PrintDocument'definit un composant permettant d'imprimer un fichier PrivateSub Btnprint_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles Btnprint.ClickIf txtfile.Text = ""ThenMsgBox(
"aucun fichier a imprimer")ElseIf pd1.ShowDialog = Windows.Forms.DialogResult.OK Thenpd2.PrinterSettings.PrinterName = pd1.PrinterSettings.PrinterName
'definit pour pd2 l'imprimante qui devra imprimer (correspond a celle choisit dans pd1)pd2.DocumentName = txtfile.Text
'fichier a imprimerMsgBox(pd2.PrinterSettings.PrintFileName.ToString)
pd2.Print()
'impressionEndIfEndIfEndSubEnd
Class