Impression avec vb
infogirls
Messages postés
15
Date d'inscription
vendredi 26 novembre 2010
Statut
Membre
Dernière intervention
4 novembre 2011
-
1 déc. 2010 à 10:04
satamoni1982 Messages postés 37 Date d'inscription vendredi 24 mars 2006 Statut Membre Dernière intervention 27 janvier 2011 - 18 déc. 2010 à 00:15
satamoni1982 Messages postés 37 Date d'inscription vendredi 24 mars 2006 Statut Membre Dernière intervention 27 janvier 2011 - 18 déc. 2010 à 00:15
A voir également:
- Impression avec vb
- Vider spooler impression - Forum Delphi / Pascal
- Vb net substring ✓ - Forum VB.NET
- Vb vba - Forum VB.NET
- Vb access - Conseils pratiques -Visual Basic / VB.NET
- C to vb ✓ - Forum VB.NET
4 réponses
infogirls
Messages postés
15
Date d'inscription
vendredi 26 novembre 2010
Statut
Membre
Dernière intervention
4 novembre 2011
1 déc. 2010 à 10:07
1 déc. 2010 à 10:07
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)
cs_Jaboun
Messages postés
3
Date d'inscription
dimanche 28 mars 2010
Statut
Membre
Dernière intervention
11 décembre 2010
3 déc. 2010 à 22:49
3 déc. 2010 à 22:49
tu peut utilisé CrystalReport pour imprimer les états en (Visual Studio 2008) c'est facile
ouidad02
Messages postés
46
Date d'inscription
dimanche 27 décembre 2009
Statut
Membre
Dernière intervention
5 octobre 2011
17 déc. 2010 à 16:44
17 déc. 2010 à 16:44
comment
satamoni1982
Messages postés
37
Date d'inscription
vendredi 24 mars 2006
Statut
Membre
Dernière intervention
27 janvier 2011
18 déc. 2010 à 00:15
18 déc. 2010 à 00:15
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
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
