IMPRIMER LE CONTENU D'UNE TEXTBOX
Ahmed
-
9 janv. 2001 à 11:32
fra1ft Messages postés 35 Date d'inscription mercredi 7 mai 2003 Statut Membre Dernière intervention 24 septembre 2012 - 2 nov. 2007 à 09:59
fra1ft Messages postés 35 Date d'inscription mercredi 7 mai 2003 Statut Membre Dernière intervention 24 septembre 2012 - 2 nov. 2007 à 09:59
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
https://codes-sources.commentcamarche.net/source/196-imprimer-le-contenu-d-une-textbox
2 nov. 2007 à 09:59
Lisez dans mon précédent post:
'2eme section d'impression
vari = "Texte: " & Form1.ComboBox1.Text & vbCrLf
et non vari = vari & "blabla...
Désolé!!!
2 nov. 2007 à 09:55
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?
6 févr. 2007 à 22:10
5 juil. 2006 à 10:02
Merci pour ce code ! ;)
6 avril 2006 à 17:39
11 juin 2004 à 15:34
11 juin 2004 à 15:33
Mais pensez aux retours à la ligne, sinon vous imprimerez seulement sur une ligne !
27 sept. 2003 à 18:24
3 sept. 2003 à 21:39
25 mai 2002 à 15:41
A la place de poster tout suite, complete ton code puis poste apres ;)
18 mai 2001 à 16:47
9 mai 2001 à 15:34
merci d'avance .
13 janv. 2001 à 16:05
merci
9 janv. 2001 à 11:32
Quels sont les controles a utiliser pour bien reussir l´impression ?
Merci pour l´eclaircissement !