Imprimer le contenu d'une textbox

Soyez le premier à donner votre avis sur cette source.

Snippet vu 20 900 fois - Téléchargée 78 fois

Contenu du snippet

Soit une Feuille (Form1) qui contient une TextBox (Text1) et un bouton (Imprimer).
On imprime le contenu de Text1 de la façon suivante :

Source / Exemple :


'code affecté au bouton "Imprimer"

Private Sub Imprimer_Click()
vari = Form1.Text1.Text
With Printer
    .Font = "Times New Roman" 
    ' Police d'impression
    .FontSize = 10 
    ' taille de police d'impression
    .PrintQuality = 300 
    'qualité d'impression 300 DPI
    .CurrentX = 1000  'position du curseur
    .CurrentY = 1000  'au début de l'impression
End With
Printer.Print vari; PrinterPage
Printer.EndDoc
End Sub

Conclusion :


Ce code est incomplet, mais il donne une idée de ce qu'il faut faire... Je n'ai pas le temps de le compléter.

A voir également

Ajouter un commentaire

Commentaires

Messages postés
35
Date d'inscription
mercredi 7 mai 2003
Statut
Membre
Dernière intervention
24 septembre 2012

Dommage que nous ne puissions éditer notre post...
Lisez dans mon précédent post:

'2eme section d'impression
vari = "Texte: " & Form1.ComboBox1.Text & vbCrLf

et non vari = vari & "blabla...
Désolé!!!
Messages postés
35
Date d'inscription
mercredi 7 mai 2003
Statut
Membre
Dernière intervention
24 septembre 2012

Hello @ all!
Donc, si je comprend bien, j'ai deux possibilitées principales pour imprimer le contenu de mon form:

Private Sub Imprimer_Click()
vari = Form1.Text1.Text & vbCrLf
vari = vari & "Texte: " & Form1.ComboBox1.Text & vbCrLf
vari = vari & "C`était un exemple"
With Printer
.Font = "Times New Roman"
' Police d'impression
.FontSize = 10
' taille de police d'impression
.PrintQuality = 300
'qualité d'impression 300 DPI
.CurrentX = 1000 'position du curseur
.CurrentY = 1000 'au début de l'impression
End With
Printer.Print vari; PrinterPage
Printer.EndDoc
End Sub

ou:

Private Sub Imprimer_Click()
'1ere section d'impression
vari = Form1.Text1.Text & vbCrLf
With Printer
.Font = "Times New Roman"
' Police d'impression
.FontSize = 10
' taille de police d'impression
.PrintQuality = 300
'qualité d'impression 300 DPI
.CurrentX = 1000 'position du curseur
.CurrentY = 1000 'au début de l'impression
End With
Printer.Print vari; PrinterPage
Printer.EndDoc
'2eme section d'impression
vari = vari & "Texte: " & Form1.ComboBox1.Text & vbCrLf
vari = vari & Form1.UserForm1.Label1.Caption & "<= This is a result"
vari = vari & "C`était un exemple"
With Printer
.Font = "Verdana, Bold"
' Police d'impression
.FontSize = 14
' taille de police d'impression
.PrintQuality = 300
'qualité d'impression 300 DPI
.CurrentX = 200 'position du curseur
.CurrentY = 800 'au début de l'impression
End With
Printer.Print vari; PrinterPage
Printer.EndDoc
End Sub

Me trompe-je?
Messages postés
30
Date d'inscription
dimanche 22 janvier 2006
Statut
Membre
Dernière intervention
1 avril 2010

Cool la source !
Messages postés
26
Date d'inscription
mardi 21 novembre 2000
Statut
Membre
Dernière intervention
17 novembre 2007

Simple et fonctionnel !

Merci pour ce code ! ;)
Messages postés
1
Date d'inscription
jeudi 6 avril 2006
Statut
Membre
Dernière intervention
6 avril 2006

votre code ca marche pas il m donne des erreurs j'ai besoin de ce code
Afficher les 14 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.