Impression avec vb

Signaler
Messages postés
15
Date d'inscription
vendredi 26 novembre 2010
Statut
Membre
Dernière intervention
4 novembre 2011
-
Messages postés
37
Date d'inscription
vendredi 24 mars 2006
Statut
Membre
Dernière intervention
27 janvier 2011
-
salut je cherche comment imprimer le contenu d'une forme vb.net

4 réponses

Messages postés
15
Date d'inscription
vendredi 26 novembre 2010
Statut
Membre
Dernière intervention
4 novembre 2011

j'ai une forme qui contient plusieurs textbox et buttons et je cherche comment imprimer le contenu de tous les textbox et quelque buttons pas tous (vb.net 2008)
Messages postés
3
Date d'inscription
dimanche 28 mars 2010
Statut
Membre
Dernière intervention
11 décembre 2010

tu peut utilisé CrystalReport pour imprimer les états en (Visual Studio 2008) c'est facile
Messages postés
46
Date d'inscription
dimanche 27 décembre 2009
Statut
Membre
Dernière intervention
5 octobre 2011

comment
Messages postés
37
Date d'inscription
vendredi 24 mars 2006
Statut
Membre
Dernière intervention
27 janvier 2011

bonsoir
Puisque tu veut seul des bouton Pas tous . tu besoin de charge les information(textbox,command..) dans un fichier txt externe ex:

Open "C:\data.txt" For Output As #1
Write #1, " Contenu de form "
Write #1,Command1.caption ; Text1
Write #1,Label1.caption ;Text2
Write #1,"Prix";Text3
Write #1,"Prix";Text4

///Ajouter un Richtextbox et nommé le MonRTf et commonDialg et nommé le
MonDialog

MonRTF.LoadFile ("c:\data.txt")

///les donnee seront affiché sur ritchtextbox
///creation function imprimé

Function ImprimeRTF(LeDialog As CommonDialog, LeRtf As RichTextBox) As Boolean
On Local Error GoTo Error_Handler:
With LeDialog
.CancelError = True
.Flags = cdlPDReturnDC + cdlPDNoPageNums

If LeRtf.SelLength = 0 Then
.Flags = .Flags + cdlPDAllPages
Else
.Flags = .Flags + cdlPDSelection
End If
.ShowPrinter

Printer.Print ""
LeRtf.SelPrint .hDC
Printer.EndDoc
ImprimeRTF = True
End With

Exit Function
Error_Handler:
If Err <> cdlCancel Then
ImprimeRTF = False
MsgBox "Erreur " & Err & "; " & Error
End If

End Function

////cree une bouton de command "imprimé" et ajouter :
ret = ImprimeRTF(MonDialog, MonRTF)

je te donne seul la methode