Discussion :

[illight]

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

[SilkyRoad]

bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[illight]

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

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

[ouskel'n'or]

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

[illight]

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

[ouskel'n'or]

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

[SfJ5Rpw8]

tu as PrintForm pour imprimer le formulaire...

[illight]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Recherche le nom de ton imprimante avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[illight]

Yes c'est bon ça marche merci beaucoup