Imprimer le contenu d'une textbox

Commenter

Contenu du snippet

Soit une Feuille (Form1) qui contient une TextBox (Text1) et un bouton (Imprimer).
On imprime le contenu de Text1 de la façon suivante :

Source / Exemple : 


'code affecté au bouton "Imprimer"

Private Sub Imprimer_Click()
vari = Form1.Text1.Text
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

Conclusion :


Ce code est incomplet, mais il donne une idée de ce qu'il faut faire... Je n'ai pas le temps de le compléter.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (JCLK)