impression code barre

impossible d imprimer en visual basic.net un code barre alors que je reussis a l afficher à l ecran !!
voici le code utilisé :

pour l affichage :
Me.label1.Font = New System.Drawing.Font("Code 128", 96.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(2, Byte))

pour l impression :
e.Graphics.DrawString(label1.Text, New System.Drawing.Font("code 128", 96.0!, FontStyle.Regular, GraphicsUnit.Point, CType(2, Byte)), Brushes.Black, 15, 50)

quelqu un a t il une idée sur l erreur commise

merci d avance

alainc

Il faut utiliser un PrintDocument et un PrintDialog (ici j'utilise aussi un PrintPreviewDialog pour voir ce que ça aurait imprimé: je ne veux pas user de papier et de toute façon le fonctionnement est similaire)

Voici le code utilisé:

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

' Ton texte et tes paramètres
Me.Label1.Font = New System.Drawing.Font("Code 128", 96.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(2, Byte))

End Sub

Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

' On place ici le contenu à imprimer
e.Graphics.DrawString(Label1.Text, New System.Drawing.Font("code 128", 96.0!, FontStyle.Regular, GraphicsUnit.Point, CType(2, Byte)), Brushes.Black, 15, 50)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

' Aperçu

PrintPreviewDialog1.Document = PrintDocument1

PrintPreviewDialog1.UseAntiAlias = True ' en option

Try

AddHandler PrintDocument1.PrintPage, AddressOf Me.PrintDocument1_PrintPage

Dim margins As New Printing.Margins(50, 50, 50, 50) ' en option

PrintDocument1.DefaultPageSettings.Margins = margins ' en option

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

PrintPreviewDialog1.ShowDialog()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

' Imprimer

Dim d As DialogResult

PrintDialog1.Document = PrintDocument1

d = PrintDialog1.ShowDialog()

If d = DialogResult.OK Then

Try

AddHandler PrintDocument1.PrintPage, AddressOf Me.PrintDocument1_PrintPage

Dim margins As New Printing.Margins(50, 50, 50, 50) ' en option

PrintDocument1.DefaultPageSettings.Margins = margins ' en option

PrintDocument1.Print()

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End If

End Sub

merci pour le code, mais mon probleme reste entier
au lieu de m imprimer (ou afficher, avec ton code) un code a barre il m imprime des caractères
dans mon exemple, je veux imprimer "1234RA C" en code 128
et il m imprime "I,BERA Caî"
est ce ma police qui n est pas bonne ??
pourtant l affichage de Label1 est correct !

alainc

Peut-être la police n'est pas bonne:
>>Je viens de la télécharger sur [ Lien ], je l'ai testé sur word, elle marche très bien.

Ou alors c'est un problème au niveau du jeu de caractères (gdicharset)???.
Selon le logiciel Code 128 (il m imprime "I,BERA Caî") il s'agit de la chaine de code, il est fourni avec une source VB 5.00, en étudiant le code...

Sinon, j'ai trouvé çà aussi: [ Lien ]

Sur ce, bonne chance!

ça marche aussi pour moi sous word et si j ouvre le fichier de la police et que je l imprime tout est ok !!
par contre, je ne reussi toujours pas à l éditer avec mon programme
merci quand meme pour ton aide

alainc