impression d'une form

Version imprimable

15/11/2010, 20h01
jer35

impression d'une form

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
15/11/2010, 23h53
Danyel

C'est ici : http://plasserre.developpez.com/cour...orms2#LX-H-1-f
16/11/2010, 07h25
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)
16/11/2010, 11h50
najoua01

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

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:

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

Citation:
Envoyé par 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:

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é :

Citation:

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

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

16/11/2010, 22h35
jer35

je navigue pas mal et j'arrive a avancer le smilblick :

apres avoir installé visual basic power packs , inserer les references , mis le printform , voici mon message d'erreur :

Citation:

Erreur 1 'PrintForm' est ambigu dans l'espace de noms 'Microsoft.VisualBasic.PowerPacks.Printing'.
16/11/2010, 22h38
Danyel

Citation:

Envoyé par jer35

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 ?

bonjour,
voici mon code en entier :

Code:

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 :

Citation:

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

est sur ce point

merci

17/11/2010, 12h23
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

Citation:

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:

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

bonjour Bob Langlade et merci pour les réponses

ma version est visual basic 2008 express et j'installe la 2010

j'ai refait les manip et toujours le meme souci,:cry:
Code:

1 2 3 4 5 6 7 8 Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click PrintForm2.PrintAction = Printing.PrintAction.PrintToPreview PrintForm2.Print(Me, Microsoft.VisualBasic.PowerPacks.Printing.PrintForm.PrintOption.FullWindow) End Sub End Class
la liste d'erreurs:

Citation:

Erreur 1 'PrintForm' est ambigu dans l'espace de noms 'Microsoft.VisualBasic.PowerPacks.Printing'. C:\Users\jerome\Documents\LOGICIEL VB2008\LOGICIEL\Form1.Designer.vb 42 29 LOGICIEL
Erreur 2 'PrintForm' est ambigu dans l'espace de noms 'Microsoft.VisualBasic.PowerPacks.Printing'. C:\Users\jerome\Documents\LOGICIEL VB2008\LOGICIEL\Form1.Designer.vb 263 37 LOGICIEL
Erreur 3 'PrintForm' est ambigu dans l'espace de noms 'Microsoft.VisualBasic.PowerPacks.Printing'. C:\Users\jerome\Documents\LOGICIEL VB2008\LOGICIEL\Form1.Designer.vb 264 37 LOGICIEL
Erreur 4 'PrintForm' est ambigu dans l'espace de noms 'Microsoft.VisualBasic.PowerPacks.Printing'. C:\Users\jerome\Documents\LOGICIEL VB2008\LOGICIEL\Form1.vb 35 30 LOGICIEL

17/11/2010, 21h48
Bob Langlade

Jerome,

Tu pourrais essayer de créer un nouveau projet avec seulement un composant PrintForm (PrintForm1 une fois instancié), une Form et un bouton contenant le code que je t'ai donné, pour voir si le problème de viendrait pas de références à d'autres espaces de nom.

Je pense que la différence d'évolution pour les PowerPacks vient du passage de 2005 à 2008 plus que de 2008 à 2010.
18/11/2010, 22h00
jer35

Citation:

Envoyé par Bob Langlade

Jerome,

Tu pourrais essayer de créer un nouveau projet avec seulement un composant PrintForm

effectivement , sa marche la commande seul,
j' ai refait ma premiere form de mon petit logiciel avec le printform, sa marche,
donc je suis repartie a refaire tout mon petit logiciel (13 form),tant pis , mais du moment que sa marche .

juste une autre question , il y a un code specifique pour la mise en page .

merci pour l'aide , c'est super sympa

Jérôme

Il n'est pas nécessaire de refaire toutes les autres forms s'il n'y a que celle là qui posait problème.

Tu peux réutiliser tes forms dans ton nouveau projet en allant dans l'explorateur de solutions, en faisant un clic droit sur ton projet puis ajouter/Elément existant...

Pour la mise en page, s'il s'agit des marges (1 cm) :
Code:

1 2 3 4 5 6 With PrintForm1.PrinterSettings.DefaultPageSettings.Margins .Top = 1 / 2.54 * 100 .Left = 1 / 2.54 * 100 .Bottom = 1 / 2.54 * 100 .Right = 1 / 2.54 * 100 End With
Sinon l'aide en ligne est toujours disponible, il suffit de cliquer sur une commande et d'appuyer sur [F1]

20/11/2010, 22h32
jer35

bonjour Bob Langlade

merci beaucoup pour votre aide,
j'ai bien avancé dans le developpement de mon logiciel,

il s'agit d'un petit de calcul pour definir les puissances des motorisations de tout le materiel de convoyages pour l'industrie céréalieres.

de plus, j'ai associé mon logiciel de dessin en 3d avec ,

j' ai pas encore bien reussi pour la mise en page ,j' ai pas trouvé ou mettre le code, mais je persevere et fouine sur le net

encore merci Bob Langlade

jérome