Version imprimable
Bonjour ,
Je travaille sous vb express 2010 + win 7 + bdd acces et je suis en train de créer une petite application :
- je arrive a trouver le code pour imprimer un form mais je cherche un code pour imprimer tout simplement le contenu de form sans l'entre
- je cherche un code pour imprimer un formulaire
j'ai parcouru pas mal le forum et je ne trouve pas ma reponse ,
quelqu'un as une idée
merci
Bonjour,
Le plus simple est sans doute de télécharger un complément de VB Net = Microsoft.visualbasic.powerpacks.dll.- ]Ce module comprend plusieurs outils, dont notamment Printform, qui permet l'impression presque sans code d'un formulaire/
Bonjour ,
je cherche un lien pour télécharger un complément de VB Net = Microsoft.visualbasic.powerpacks.dll.
qui peut m'aide
Bonjour,
Allez voir ici :
http://msdn.microsoft.com/en-us/vstudio//bb735936.aspx
A+
Bonjour ,
ce bon j'ai installer Visual Basic Power Packs 3.0 mais comment le utiliser et ou se trouve??
merci
Bonjour,
Une demande plus explicite serait bienvenue.
Où se trouve ? Quoi ?
Comment utiliser ? N'y-a-t-il pas un fichier msi ? Alors, cliquez dessus.
Une fois ce pack installé dans VB Net, il faut cliquer sur Outils et rajouter les outils contenus dans ce pack.
Bonjour
après l'installation j'ai cliquer sur Outil puis Gestionnaire d'extensions
il m'affiche aucun extension installer
encors un peut d'aide
Sous VB2010 :
- Menu "Projet", "Propriétés de <Nom du projet>"
- Onglet "Références"
- Vérifier dans "Espaces de noms importés", si "Microsoft.VisualBasic.PowerPacks.Printing" est présent. si oui, le sélectionner.
- Dans le cas contraire, cliquer le bouton "Ajouter..."
- Dans l'onglet ".NET", rechercher et sélectionner "Microsoft.VisualBasic.PowerPacks.Vs".
Exemple de code ensuite :
Code:Dim pForm = New Microsoft.VisualBasic.PowerPacks.Printing.PrintForm
Bonjour,
Avant de mettre les références, il est nécessaires d'avoir les outils dans la boîte à outils qui se trouve à gauche de la fenêtre.
Pour cela, aller dans <Outils>, puis <Choisir des éléments de la boîte à outils>.
Il faut alors cocher dans la liste qui apparait : Datarepeater, etc..
Bonjour,
ce bon j'ai crée Datarepeater et j'ai déplacer le formulaire dans cette zone
et aussi j'ai ajouter Microsoft.VisualBasic.PowerPacks.Printing dans la Références
mais es ce que je déplace le bouton imprimer dans la zone de Datarepeater ou nn
l'osque je exécutée la form apparaitre avec un cadre de Datarepeater sans le contenu (formulaire)
le code du botton imprimer ne ça marche pas
et merciiiiii tt le mondeCode:
2
3
4
5
6
Bonjour,
J'avais cité datarepeater pour indiquer un contrôle figurant dans la pack.
Celui qui convient est le contrôle printform, qui permet l'impression du formulaire.
Ajouter le bouton d'impression avec le code :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' Cache le bouton Imprime, c'est mieux qu'il ne figure pas dans l'impression
Button1.Visible = False
' prévisualisation(mais il faut peut-être un contrôle printpreviewdialogdialog
PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview
' Imprime le formulaire
PrintForm1.Print()
' Restaure le bouton Imprime
Button1.Visible = True
End Sub
Bonjour,
l'osque je exécute mon application je remarque le contenu de de mon form form5 est qui continu Datarepeater est vide pour faire l’impression
http://www.developpez.net/forums/att...1&d=1353405886
et le code mon bouton imprimer
j'ai un msg erreur : PrintForm5 n'est pas déclarerCode:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' Cache le bouton Imprime, c'est mieux qu'il ne figure pas dans l'impression Button1.Visible = False ' prévisualisation(mais il faut peut-être un contrôle printpreviewdialogdialog PrintForm5.PrintAction = Printing.PrintAction.PrintToPreview ' Imprime le formulaire PrintForm5.Print() ' Restaure le bouton Imprime Button1.Visible = True End Sub
j'ai pas compris cet deux phrases :
J'avais cité datarepeater pour indiquer un contrôle figurant dans la pack.
Celui qui convient est le contrôle printform, qui permet l'impression du formulaire.
svp un peux de explication et merciiiii bien
Salut
peut etre ainsi
Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62Imports System.Drawing.Printing Public Class ClassImpression Private myimage As Bitmap Private thectrl As Control Private Function Capturectrl(ByVal ctrl As Control) As Bitmap Dim memoryImage As Bitmap Dim memoryGraphics As Graphics memoryImage = Nothing Dim mygraphics As Graphics = ctrl.CreateGraphics() Dim s As Size = ctrl.Size If TypeOf ctrl Is Form AndAlso DirectCast(ctrl, Form).FormBorderStyle <> FormBorderStyle.None Then memoryImage = New Bitmap(s.Width - 10, s.Height - (SystemInformation.FrameBorderSize.Width + 6 + SystemInformation.CaptionHeight), mygraphics) memoryGraphics = Graphics.FromImage(memoryImage) memoryGraphics.CopyFromScreen(0, (SystemInformation.FrameBorderSize.Width + 0 + SystemInformation.CaptionHeight), 0, 0, New Size(memoryImage.Width, memoryImage.Height), CopyPixelOperation.SourceCopy) Else memoryImage = New Bitmap(s.Width, s.Height, mygraphics) memoryGraphics = Graphics.FromImage(memoryImage) memoryGraphics.CopyFromScreen(ctrl.Left, ctrl.Top, 0, 0, New Size(memoryImage.Width, memoryImage.Height), CopyPixelOperation.SourceCopy) End If Return memoryImage End Function Public Function GetPreview() As Bitmap Return Capturectrl(thectrl) End Function Public Sub printdoc() Try Dim printdoc As New PrintDocument Dim ppd As New PrintPreviewDialog myimage = Capturectrl(thectrl) AddHandler printdoc.PrintPage, AddressOf printform 'paramètres de page Dim ps As New PageSettings ps.Landscape = False printdoc.DefaultPageSettings = ps 'indique à la prévisualisation le document à montrer ppd.Document = printdoc ppd.WindowState = FormWindowState.Maximized 'imprssion si ok If ppd.ShowDialog = Windows.Forms.DialogResult.OK Then ppd.Document.Print() End If Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub Private Sub printform(ByVal sender As Object, ByVal e As PrintPageEventArgs) Try e.Graphics.DrawImage(myimage, 0, 0) e.HasMorePages = False Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub Public Sub New(ByVal ctrl As Control) thectrl = ctrl End Sub End Class
Code:
2
3
4
5
Bonjour,
Je récapitule la mache à suivre, une fois que les contrôles du pack sont rajoutés à la bôiter à outils.
1)On ouvre un nouveau projet. Un formulaire apparaît.
2)On ajoute un contrôle printform (appelé printform1) et qui vient se positionner en dehors de la form1.
3)On ajoute un contrôle bouton (appelé bouton1) qui reçoit le code :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1.Visible = False
PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview
PrintForm1.Print()
Button1.Visible = True
End Sub
Le clic sur le bouton fait apparaître le formulaire à l'écran en prévisualisation ; pour l'imprimer, on clique sur le bouton imrimante du prévisu.
Aucun autre code n'est nécessaire.