Voici un tout petit tutorial pour imprimer une cas texte
Source / Exemple :
Private Sub Form_Load()
Contenu.Text = "Voici votre texte imprimé sur une feuille !
End Sub
-----
Private Sub CmdImprimer_Click()
Printer.Print 'initialisation de l'imprimante
Printer.Print Contenu.Text
Printer.EndDoc
End Sub
Conclusion :
- Explications : La syntaxe est plutôt simple et c'est tant mieux pour nous ;) .
La première ligne de la procédure : Printer.Print, est nécéssaire à l'initialisation de l'imprimante. Si on ne place pas cette ligne, l'impression restera en suspend jusqu'à la fermeture de votre programme.
Ensuite on imprime le texte de la TextBox "Contenu" avec : Printer.Print Contenu.Text .
Pour finir : Printer.EndDoc marque la fin de l'impression.
Vous pouvez tester votre programme... n'oubliez pas d'allumer l'imprimante ;) !
12 juin 2007 à 17:25
12 juin 2007 à 17:17
Je réagis parce qu'il me semble qu'il y a peut-être une mauvaise compréhension des "paramètres"
Je vous cite
Printer.CurrentX = 20 'marge gauche
Printer.CurrentY = 25 'marge droite
Mais ne serait-ce pas plutôt
Printer.CurrentX = 20 'marge gauche
Printer.CurrentY = 25 'marge HAUTE
Bien à vous,
Programmix
12 juin 2007 à 12:48
Ca doit ressembler à quelque chose comme cà :
Remplacer Printer.Print Recherche.Twest.Text; PrinterPage par :
Dim tmp() as String
tmp = split(Recherche.Twest.Text, vbcrlf)
Dim i as integer
for i = 0 to UBound(tmp)
Printer.CurrentX = 20 'marge gauche
Printer.CurrentY = 25 'marge droite
Printer.Print tmp(i)
next i
12 juin 2007 à 11:51
aurais tu l'extrème amabilité de m'envoyer la ligne de code
et où il faut la placer.
voici les lignes que j'ai déja :
Printer.FontSize = Recherche.Twest.FontSize
Printer.Font = Recherche.Twest.Font
Printer.ScaleMode = vbMillimeters
Printer.ScaleLeft = 25 'indique la marge gauche de toute les lignes A TESTER
'Pour la 1ere ligne
Printer.CurrentX = 20 'marge gauche
Printer.CurrentY = 25 'marge droite
msg = MsgBox("Voulez vous imprimer votre recherche maintenant", vbYesNo, "Impression")
If msg = vbNo Then
MsgBox "Impression annulé", vbExclamation, ""
GoTo fin:
Else
Printer.Print Recherche.Twest.Text; PrinterPage
Printer.EndDoc
End If
fin:
Un grand merci à toi de prendre en charge les débutants en difficultés.
11 juin 2007 à 11:02
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.