IMPRIMER LE CONTENU D'UNE TEXTBOX

Signaler
-
Messages postés
35
Date d'inscription
mercredi 7 mai 2003
Statut
Membre
Dernière intervention
24 septembre 2012
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/196-imprimer-le-contenu-d-une-textbox

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 ! ;)
Afficher les 14 commentaires