Imprimer un lablel d'un usf

[jeffe]

bonjour à tous, je cherche à imprimer, depuis un USF uniquement un lablel.
actuellement, j'imprime la totalité de l'USF
auriez vous une idée
merci

 

[Guest]

Re : Imprimer un lablel d'un usf

Bonjour jeffe

A tester

With activeSheet ' ou autre feuille
    .range("A1")=Label1.Caption
    .PageSetup.PrintArea ="$A$1"
    .PrintPreview 'Ou PrintOut
End with

A+

 

[jeffe]

Re : Imprimer un lablel d'un usf

bonjour hasco , le forum
je vienns d'essayer, ça à l'air de fonctionner cepandant j'ai 2 questions
une resolue??, j'ai 2 labels à imprimer, sans passer par une formule, dans le code pour concatener ces 2 textes
j'essaie ça mais pas bien!!!

Range("A2") = Lb_nom.Caption 'And Lb_Num.Caption

merci

 

[jeffe]

Re : Imprimer un lablel d'un usf

bonjour hasco , le forum
je vienns d'essayer, ça à l'air de fonctionner cepandant j'ai 2 questions
une resolue??, j'ai 2 labels à imprimer, sans passer par une formule, dans le code pour concatener ces 2 textes
j'essaie ça mais pas bien!!!

Range("A2") = Lb_nom.Caption 'And Lb_Num.Caption

merci

 

[Guest]

Re : Imprimer un lablel d'un usf

Bonjour Jeffe,

& = opérateur de concaténation

Range("A2") = Lb_nom.Caption & " " & Lb_Num.Caption

Pour passer à la ligne:

Range("A2") = Lb_nom.Caption & vbNewLine &  Lb_Num.Caption

A+

 

[jeffe]

Re : Imprimer un lablel d'un usf

merci hasco, beaucoup je l'utilise en formule et y pense pas par macro
bonne journée à tous