Imprimer en vb

Version imprimable

Imprimer en vb

bonjour,:D
c'est un site remarquable pour trouver de l'aide sur la programmation
j'aurai besoin de votre aide
je fais un petit programme c'est un bloc note et le probleme c'est qu'il ne veut pas imprimer
voici le code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub ImprimerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImprimerToolStripMenuItem.Click cmd.PrinterSettings.Copies = 3 cmd.AllowCurrentPage = True cmd.AllowPrintToFile = True cmd.PrinterSettings.PrintToFile = False cmd.AllowSelection = True cmd.AllowSomePages = True If cmd.ShowDialog() = Windows.Forms.DialogResult.OK Then RichTextBox1.Text = "paramètres enregistrés." Else RichTextBox1.Text = "les paramètres n'ont pas été pris en compte." End If End Sub End Class
alors quand je teste le prog quand je clique sur imprimer la boite de dialogue s'ouvre, la je trouve les imprimante et quand je clique sur imprimer bin rien ne se passe
pouvez vous me dire pourquoi ?
merci d'avance,:ccool:

04/03/2010, 09h13
cybermaxs

Salut,

le problème de l'impression en dotnet, c'est qu'il faut se taper tout le travail. Les différents contrôles mis à disposition te permettent de sélectionner les imprimantes, configurer l'impression, ... bref de bien préparer ton impression. Mais au final, c'est à toi de réellement faire l'impression c'est à dire de faire la mise en forme en fonction du contenu ; j'avoue c'est pas toujours évident.

Pour cela, il y a l'objet PrintDocument et l'event PrintPage. En t'abonnement, tu devras faire le dessin par printPageEventArgs.Graphics.DrawString (par exemple pour une chaîne).

Si ton impression est simple, cela devrait suffire.
04/03/2010, 10h16
mactwist69

Tu peux aussi t'essayer à Crystal Report qui est pas mal (pas présent dans la toutes les versions de VS)

merci pour vos réponse

j'ai rajouté se code après end if

Code:

1
2
3
4
5
6
7
8
'Imprime en utilisant un gestionnaire d'erreurs pour intercepter les problemes
    try
    'déclare la variable imprimerdoc de type printdocument
    Dim imprimerdoc As New PrintDocument
    imprimerdoc.print()    'imprime le texte
        Catch ex As Exception
        End Try
    End Sub

mais la il m'imprime une page blanche
que faire je comprend pas trop bien

04/03/2010, 12h16
cybermaxs

Si tu besoin est juste d'imprimer une ligne de texte, ajoute alors un handler sur PrintDoc.PrintPage dans lequel tu vas faire un e.Graphics.DrawString(..).

Si tu n'ajoutes pas de handler c'est normal d'avoir une page vide, car c'est à toi de dire ce qu'il imprimer.

voici le nouveau code
Code:

1 2 3 4 5 6 7 8 9 10 'Imprime en utilisant un gestionnaire d'erreurs pour intercepter les problemes try 'déclare la variable imprimerdoc de type printdocument Dim imprimerdoc As New PrintDocument AddHandler imprimerdoc.PrintPage, AddressOf Me.imprimertexte imprimerdoc.print() 'imprime le texte Catch ex As Exception End Try ev.graphics.drawstring(RichTextBox1.Text) End Sub
le probleme c'est qu'il me souligne me.imprimertexte il me dit que imprimertexte n'est pas un membre de bloc note et quand je le remplace par richtextbox1 sa ne marche pas n'ont plus
en plus de sa il me dit que ev n'est pas déclarer

04/03/2010, 12h33
cybermaxs

Code:

ev.graphics.drawstring(RichTextBox1.Text)

est mal placé il doit être dans imprimertexte
04/03/2010, 13h02
Invité

euh la vraiment dsl :?
mais je doit remplacer cette phrase a la place de imprimetexte ???
04/03/2010, 13h17
cybermaxs

à voir tes questions, je pense que tu n'es pas expert en vb. je reformule :
il faut que tu attaches un event handler sur l'évènement PrintPage de l'objet PrintDocument. Dans cette méthode (event handler), tu effectues l'affichage, c'est à dire le e.Graphics.DrawString(...).

Encore une fois, j'espère que ce que tu as à imprimer est très simple ... car la gestion du rendu de l'impression n'est pas évident, surtout pour quelqu'un inexpérimenté.
04/03/2010, 13h32
Invité

Citation:

Envoyé par cybermaxs

à voir tes questions, je pense que tu n'es pas expert en vb. dans le mille oui je ne suis pas un grand expert je reformule :
il faut que tu attaches un event handler sur l'évènement PrintPage de l'objet PrintDocument. Dans cette méthode (event handler), tu effectues l'affichage, c'est à dire le e.Graphics.DrawString(...).

Encore une fois, j'espère que ce que tu as à imprimer est très simple ... car la gestion du rendu de l'impression n'est pas évident, surtout pour quelqu'un inexpérimenté.

je vais éssayer se que tu me dit
normallement c'est un bloc note donc il faut juste qu'il imprime du texte
04/03/2010, 16h48
Invité

j'ai beau éssayer plusieurs chose mais non j'y arrive pas
pouvez vous me dire la solution
04/03/2010, 16h54
cybermaxs

en cherchant un peu ...
http://bidou.developpez.com/tutoriel...et/impression/

merci je l'avait déja trouvé se site mais s'en faire vraiment attention
j'ai éssayer avec se nouveau code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim doc As New PrintDocument
        Dim pagesetup As New PageSetupDialog
        With pagesetup
            .Document = doc
            .ShowDialog(Me)
        End With
        With Me.RichTextBox1
            .Text = doc.PrinterSettings.PrinterName & vbCrLf
            .Text = .Text = "nb de copies:"
            doc.PrinterSettings.Copies.ToString()
            .Text = .Text = "assemblées:"
            doc.PrinterSettings.Collate.ToString()
            .Text = .Text = "couleur :"
            doc.DefaultPageSettings.Color.ToString()
            .Text = .Text = "orientation:"
            IIf(doc.DefaultPageSettings.Landscape.ToString, "paysage", "portrait")
            .Text = .Text = "format:"
            doc.DefaultPageSettings.PaperSize.ToString()
 
        End With
    End Sub

mais le probleme est toujours le meme il m'affiche une boite de dialogue mais sa n'imprime pas

05/03/2010, 09h17
cybermaxs

Tout est dans le doc, avec un exmple page 25.

bonjour,
voila mon nouveau code

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub ImprimerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImprimerToolStripMenuItem.Click
        'Imprime en utilisant un gestionnaire d'érreurs pour intercepter les problemes
        Try
            ' déclare la variable imprimerdoc de type printDocument
            Dim ImprimerDoc As New PrintDocument
            AddHandler ImprimerDoc.PrintPage, AddressOf Me.ImprimerTexte
            ImprimerDoc.Print()      ' imprime le texte
        Catch ex As Exception    ' intercepte les exceptions d'impression
            MessageBox.Show("Désolé, il y a un probleme d'impression", ex.ToString())
        End Try

et aussi

Code:

1
2
3
4
5
6
Private Sub ImprimerTexte(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
        'Utilise drawstring pour créer le texte dans un object graphics
        ev.Graphics.DrawString(RichTextBox1.Text, New Font("Arial", 11, FontStyle.Regular), Brushes.Black, 120, 120)
        'indique que ceci est la derniere page a imprimer
        ev.HasMorePages = False
    End Sub

le code marche j'arrive a imprimer mais le souci c'est que
il imprime pas les couleur ni la différence de police
je sais pas comment faire pour résoudre sa

05/03/2010, 21h16
cybermaxs

Oui c'est précisement ce dont je t'ai parlé. Tu utilises un composant de texte riche avec mise en forme.
Cette méthode d'impression t'oblige à tout gérer tout seul : la couleur, la pole, ... via le DrawString(...).
05/03/2010, 21h52
Invité

donc il faut que je change de methode alors ?
mais après sa risque de devenir complexe parce que tu ma dit que
la gestion du rendu de l'impression n'est pas évident
06/03/2010, 09h25
cybermaxs

Oui cette méthode est complexe à mettre en oeuvre. Le mieux dans ton cas maintenant que je connais un peu mieux le problème, est d'essayer de trouver un composant qui fera ce travail pour toi.
06/03/2010, 10h18
Invité

merci pour ton aide
je vais marquer résolu au post parce que maintenaint j'arrive a avoir une boite de dialogue et d'imprimer aussi
je vérrait par la suite pour optimisé cette impression
:ccool: