Discussion :

[jer35]

bonjour,

j'ai parcouru pas mal le forum et je ne trouve pas ma reponse ,

je voudrais tout simplement imprimer une form tel que l'on la voit a l'ecran ,

j' etudié ce document :http://plasserre.developpez.com/cour...-forms2#LX-H-1

je ne trouve pas ma reponse , je bute sur le PrintButton

quelqu'un as une idée

merci

[Danyel]

C'est ici : http://plasserre.developpez.com/cour...orms2#LX-H-1-f

[jer35]

bonjour Danyel,

oui merci , j'ai fait toute la manip mais il butte sur le printbutton,

moi, je veux cliquez sur un bouton et la form s'imprime,

manque t'il une fonction ou est ce un button special (pas trouvé d'autre)

[najoua01]

Bonjour,
tu peux travailler sur crystalreport ça fonctionne très bien
bonne courage

[Bob Langlade]

Le plus simple c'est d'utiliser le composant PrintForm (Visual Basic PowerPacks), le code suivant affiche un aperçu avec le titre de la form :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Imports Microsoft.VisualBasic.PowerPacks.Printing
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview
        PrintForm1.Print(Me, PrintForm.PrintOption.FullWindow)
    End Sub
 
End Class

[jer35]

Le plus simple c'est d'utiliser le composant PrintForm (Visual Basic PowerPacks), le code suivant affiche un aperçu avec le titre de la form :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Imports Microsoft.VisualBasic.PowerPacks.Printing
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview
        PrintForm1.Print(Me, PrintForm.PrintOption.FullWindow)
    End Sub
 
End Class

merci pour l'aide , j' ai un composant non declaré :

Erreur 1 Le nom 'PrintForm1' n'est pas déclaré.

et j'aurais souhaité avoir des renseignements sur Visual Basic PowerPacks)

[Danyel]

mais il butte sur le printbutton

Tu veux dire quoi par butter ?
Il suffit que tu prennes le code du tuto et tu le places dans l'evenement onclick de ton bouton ... je vois pas ou est le probleme ?

[jer35]

bonjour,
voici mon code en entier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
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
Imports Microsoft.VisualBasic.PowerPacks.Printing

Public Class Form1
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        End
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Hide()
        Form7.Show()
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Hide()
        Form2.Show()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.Hide()
        Form4.Show()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Hide()
        Form10.Show()
    End Sub

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

    End Sub

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

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        PrintForm1.PrintAction =Printing .PrintAction.PrintToPreview
        PrintForm1.Print(Me, PrintForm.PrintOption.FullWindow)

    End Sub
End Class

l'erreur :

Erreur 1 'PrintForm' est ambigu dans l'espace de noms 'Microsoft.VisualBasic.PowerPacks.Printing'.

est sur ce point

merci

[Bob Langlade]

Jer35, quelle version de vb utilises-tu ?

Car d'après l'aide en ligne, il y a eu une évolution du composant PrintForm

Remarks

The PrintForm component enables you to print an image of a form to a printer, to a print preview window, or to a file at run time. Its behavior replaces that of the PrintForm method in earlier versions of Visual Basic.

L'exemple que je t'ai donné fonctionne en VB 2010, après avoir glissé l'icône du composant PrintForm sur ta Form (Form1 dans mon cas).

Pour éviter l'imports, tu peux essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

PrintForm1.Print(Me, Microsoft.VisualBasic.PowerPacks.Printing.PrintForm.PrintOption.FullWindow)