[VBA-E]Imprimer une zone de texte

Bonjour,

j'ai beau eu chercher j'ai pas trouvé de réponse a ma question :?

Est-ce quelqu'un sait comment, et si on peut, imprimer une zone de texte ?

Parce que ça m'a pas l'air possible en fait, j'ai regardé les propriétés d'une zone de texte je trouve rien a part un SelText mais je comprend pas comment il marche :?

Merci beaucoup pour vos réponses :)

bonjour

j'ai interprété (peut etre à tort) que tu souhaites imprimer le contenu d'un Textbox

Code:

---

1 2 3 4 5

Private Sub CommandButton1_Click() Open "LPT1:" For Output As #1 Print #1, TextBox1 Close #1 End Sub

---

bonne journée
michel

Merci pour ta réponse mais heuu ça marche pas :? :mrgreen:

C'est quoi le LPT1 c'est le port de l'imprimante qu'il faut mettre ? parce que moi c'est pas LPT1 mais une IP, mais meme avec l'IP ya rien qui sort :?

EDIT : je précise que en fait c'est une imprimante réseau :mrgreen:

Dans une feuille de calculs, la méthode printout n'existe pas pour une zone de texte (Shapes), non plus que pour un textbox (VBA97). Tu dois définir la zone d'impression de la position de ta zone de texte ou de ton textbox d'après la position des cellules sur lesquelle elle ou il se trouve ;)

Aurais-je oublier de préciser que ma textbox était dans un formulaire ? :oops:

Désolé, pour moi, une zone de texte...
LPT1 c'est si tu as une imprimante locale (contrairement à "réseau") ActivePrinter, c'est... :aie: l'imprimante active :mouarf:
Regarde dans l'aide à Printout ;) là, je vais me restaurer
A+

tu as PrintForm pour imprimer le formulaire...

Pour PrintOut, il me demande une expression et quand je regarde dans la liste a laquelle ça peut etre appliqué, ni le TextBox n'est présent, ni le fichier texte que j'ai créé :?

En fait j'ai écrit ça :

Code:

---

1 2 3 4 5 6 7

Private Sub CmdImprimer_Click() Open "Stats.txt" For Output As #1 Print #1, txtResultat 'printout("Stats.txt") MsgBox ("imprimé") Close #1 End Sub

---

Mais bon ça marche pas et je sais pas quoi mettre pour qu'il m'imprime le fichier Texte que j'ai créé :?

Merci en tout cas de vous pencher la dessus :)

Déjà, si tu ne donnes pas le chemin de ton fichier...
Ensuite, la syntaxe n'est pas "Printout Objet" mais Objet.printout
Mais oublie PrintOut puisque la syntaxe fournie par Silky fonctionne également en réseau

Code:

---

1 2 3

Open "\\OLAN\CCACX010" For Output As #1 Print #1, TextBox1 Close #1

---

Recherche le nom de ton imprimante avec

Code:

---

NomImprimante = Application.activeprinter

---

Fais attention, le nom que tu récupères ajoute "sur Ne0(n)", indication que tu dois supprimer
Ex : le nom de mon imprimante par défaut était "\\OLAN\CCACX010 sur Ne04:", nom que j'ai réduit à "\\OLAN\CCACX010"
où OLAN est le nom du réseau.
Tu dis si tu as une question ;)

Yes c'est bon ça marche merci beaucoup :D :)