PrintForm

[rastafouette]

Bonjour à tous,

Encore une question à 10cts. J'ai cherché une réponse dans les fils existants mais j'ai rien toruvé.
Voilà :

J'utilise dans une UserForm ( un Label, un grand Textbox multiline, un bouton imprimer et un bouton ok) la commande suivante :

Private Sub CommandButton_Imprimer_Click()
    Me.PrintForm
End Sub

qui m'imprime la UserForm en entier.

Ma question est :
Comment puis-je imprimer uniquement le contenu de ma TextBox ?
(Avec si possible une mise en forme de mon choix, choix de police, taille....)

Merci à tous !

 

[Compte Supprimé 979]

Re : PrintForm

Salut Rastafouette

La seule solution pour moi est de mettre le contenu de ton TextBox dans une cellule d'une feuille prévue à cette effet !

Comme ça tu pourras appliquer la mise en forme que tu souhaites
Ensuite : ActiveSheet.PrintOut

A+

 

[rastafouette]

Re : PrintForm

Merci Bruno pour ta réponse.

Ce ne m'arrange pas trop de mettre mon contenu dans une sheet.
Je reste donc comme ça pour l'instant avec la prop AutoSize à True sur mon Textbox, comme ça tout s'imprime (sinon j'avais pas tout).

Salut Rastafouette

Non, je n'ai pas de rastas et non, je ne fouette pas non plus !

 

[MichelXld]

Re : PrintForm

bonsoir

Un exemple à tester en adaptant le port d'impression (LPT1)

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

bonne soirée
michel
Microsoft Excel MVP

 

[rastafouette]

Re : PrintForm

Merci Michel,

J'ai essayé mais j'ai une imprimante réseau au boulot.
J'ai mis son port avec "IP_xxx.xxx.xx.xx" à la place de "LPT1:" mais ça marche pas...

Une autre idée ?

 

[MichelXld]

Re : PrintForm

bonjour


on ne pourra pas trouver le nom de l'imprimante à ta place.
Tu peux le nom en utilisant

Debug.Print Application.ActivePrinter

et ensuite tu adaptes le résultat.
ça peut par exemple être

Open "Ne01:" For Output As #1

Open "[URL="file://nomserveur/refimprimante"]\\nomserveur\refimprimante[/URL]" For Output As #1

... etc ...


bonne journée
michel
Microsoft Excel MVP

 

[rastafouette]

Re : PrintForm

Ah mais je l'ai l'IP de l'imprimante, je ne l'ai pas diffusée ici c'est tout...

J'essaierai cet après midi d'autres noms pour les imprimantes.

Merci encore Michel