A voir également:
- Impression d'un form
- Module d'impression form, texte, image - Codes sources - Visual Basic / VB.NET (Imprimante)
- Impression d'une form en vb.net - Codes sources - Visual Basic / VB.NET (VB.NET)
- Une classe pour imprimer, à partir d'une form, d'une requête..... avec aperçu avant impression qprin - Codes sources - Visual Basic / VB.NET (Imprimante)
- Impression d'un form sur plusieurs pages ✓ - Forum - C# / .NET
- Impression d'un form au format paysage ✓ - Forum - VB.NET
14 réponses
cs_ITALIA
- Messages postés
- 2169
- Date d'inscription
- vendredi 20 avril 2001
- Statut
- Membre
- Dernière intervention
- 30 juin 2009
Printer.ScaleMode = 6 oubien VbMillimeters indique l'unité de mesure
Printer.ScaleMode = 6
Printer.PrintQuality = vbPRPQHigh ' Qualité pas obligatoire
Printer.CurrentX = 10 ' Position en X
Printer.CurrentY = 10 ' Position en Y
Printer.Print Text1.text
Printer.CurrentX = 10 ' Position en X
Printer.CurrentY = 20 ' Position en Y
Printer.Print Text2.text
............
.........
.......
......
....
...
l'origine de la feuille est en haut à Gauche
It@li@
Printer.ScaleMode = 6
Printer.PrintQuality = vbPRPQHigh ' Qualité pas obligatoire
Printer.CurrentX = 10 ' Position en X
Printer.CurrentY = 10 ' Position en Y
Printer.Print Text1.text
Printer.CurrentX = 10 ' Position en X
Printer.CurrentY = 20 ' Position en Y
Printer.Print Text2.text
............
.........
.......
......
....
...
l'origine de la feuille est en haut à Gauche
It@li@
cs_ITALIA
- Messages postés
- 2169
- Date d'inscription
- vendredi 20 avril 2001
- Statut
- Membre
- Dernière intervention
- 30 juin 2009
Tu peux essayer :
Private Sub Form_Click ()
Dim Msg ' Déclare la variable.
On Error GoTo ErrorHandler ' Définit la gestion
' des erreurs.
PrintForm ' Imprime la feuille.
Exit Sub
ErrorHandler:
Msg = "Impossible d'imprimer la feuille."
MsgBox Msg ' Affiche le message.
Resume Next
End Sub
It@li@
Private Sub Form_Click ()
Dim Msg ' Déclare la variable.
On Error GoTo ErrorHandler ' Définit la gestion
' des erreurs.
PrintForm ' Imprime la feuille.
Exit Sub
ErrorHandler:
Msg = "Impossible d'imprimer la feuille."
MsgBox Msg ' Affiche le message.
Resume Next
End Sub
It@li@
bremondpierrejean
- Messages postés
- 39
- Date d'inscription
- samedi 24 juillet 2004
- Statut
- Membre
- Dernière intervention
- 6 janvier 2007
IntelW >:)
ok merci, je vais tenter le coup
a+++++++
ok merci, je vais tenter le coup
a+++++++
bremondpierrejean
- Messages postés
- 39
- Date d'inscription
- samedi 24 juillet 2004
- Statut
- Membre
- Dernière intervention
- 6 janvier 2007
IntelW >:)
bon, merci quand même, mais le form est imprimé avec le fond et la zone de texte complète
je voudrais juste imprimer le texte des zones localisé là où il est sur le form
bon, merci quand même, mais le form est imprimé avec le fond et la zone de texte complète
je voudrais juste imprimer le texte des zones localisé là où il est sur le form
cs_ITALIA
- Messages postés
- 2169
- Date d'inscription
- vendredi 20 avril 2001
- Statut
- Membre
- Dernière intervention
- 30 juin 2009
je ne vois pas trop ce que tu veux ...
It@li@
It@li@
bremondpierrejean
- Messages postés
- 39
- Date d'inscription
- samedi 24 juillet 2004
- Statut
- Membre
- Dernière intervention
- 6 janvier 2007
IntelW >:)
ok : j'ai sur un form, une vingtaine de zone de texte répartis un peu sous une forme comme un arbre généalogique (x fils de y et z etc...) . je voudrais pouvoir imprimer le tout sous cette forme mais sans que l'on voit la structure de la zone de texte en elle même ...
exemple :
mr dupont grandpère
mr dupont père
mme dupont grandmère
mr dupont
etc
mme dupont
etc...
ce n'est pas évident à expliquer désolé ...
ok : j'ai sur un form, une vingtaine de zone de texte répartis un peu sous une forme comme un arbre généalogique (x fils de y et z etc...) . je voudrais pouvoir imprimer le tout sous cette forme mais sans que l'on voit la structure de la zone de texte en elle même ...
exemple :
mr dupont grandpère
mr dupont père
mme dupont grandmère
mr dupont
etc
mme dupont
etc...
ce n'est pas évident à expliquer désolé ...
cs_ITALIA
- Messages postés
- 2169
- Date d'inscription
- vendredi 20 avril 2001
- Statut
- Membre
- Dernière intervention
- 30 juin 2009
pourkoi ne pas rendre ce que tu veux invisible avant de lancer mon code et remettre en visible ensuite ???
It@li@
It@li@
cs_ITALIA
- Messages postés
- 2169
- Date d'inscription
- vendredi 20 avril 2001
- Statut
- Membre
- Dernière intervention
- 30 juin 2009
pour imprimer ce qu'il y a dans un text on peux faire :
Printer.Print Text1.text
It@li@
Printer.Print Text1.text
It@li@
bremondpierrejean
- Messages postés
- 39
- Date d'inscription
- samedi 24 juillet 2004
- Statut
- Membre
- Dernière intervention
- 6 janvier 2007
IntelW >:)
bon, je vais essayer printer.print text1.text, reste la localisation sur la feuille
merci
bon, je vais essayer printer.print text1.text, reste la localisation sur la feuille
merci
cs_ITALIA
- Messages postés
- 2169
- Date d'inscription
- vendredi 20 avril 2001
- Statut
- Membre
- Dernière intervention
- 30 juin 2009
Facile :
Printer.ScaleMode = 6
Printer.PrintQuality = vbPRPQHigh ' Qualité pas obligatoire
Printer.Font = "Tahoma" ' Police pas obligatoire
Printer.CurrentX = 0 ' Position en X
Printer.CurrentY = 5 ' Position en Y
Printer.FontSize = 10 ' Taille de la Police
apres tu peux mettre en gras ...souligné...italique........etc etc
It@li@
Printer.ScaleMode = 6
Printer.PrintQuality = vbPRPQHigh ' Qualité pas obligatoire
Printer.Font = "Tahoma" ' Police pas obligatoire
Printer.CurrentX = 0 ' Position en X
Printer.CurrentY = 5 ' Position en Y
Printer.FontSize = 10 ' Taille de la Police
apres tu peux mettre en gras ...souligné...italique........etc etc
It@li@
bremondpierrejean
- Messages postés
- 39
- Date d'inscription
- samedi 24 juillet 2004
- Statut
- Membre
- Dernière intervention
- 6 janvier 2007
IntelW >:)
merci, je vérifie. J'ai bien l'impression que c'est ça !!!
a++++++++
merci, je vérifie. J'ai bien l'impression que c'est ça !!!
a++++++++
cs_ITALIA
- Messages postés
- 2169
- Date d'inscription
- vendredi 20 avril 2001
- Statut
- Membre
- Dernière intervention
- 30 juin 2009
coches reponses accepté alors...
Merci
It@li@
Merci
It@li@
bremondpierrejean
- Messages postés
- 39
- Date d'inscription
- samedi 24 juillet 2004
- Statut
- Membre
- Dernière intervention
- 6 janvier 2007
IntelW >:)
Cela ne marche pas. Je peux imprimer deux textbox l'une sous l'autre mais si je veux faire de la mise en page ...
j'ai beau faire gaffe au scalemode
oups !!! pas doué le gars
Cela ne marche pas. Je peux imprimer deux textbox l'une sous l'autre mais si je veux faire de la mise en page ...
j'ai beau faire gaffe au scalemode
oups !!! pas doué le gars