Impression sur un prêt imprimer

Signaler
Messages postés
270
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
4 avril 2019
-
Messages postés
270
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
4 avril 2019
-
Bonjour à tous,

Comment faire pour imprimer par exemple un Nom, Prénom, Adresse etc...sur un imprimé et surtout à un endroit bien préci de l'imprimer et de plus en recto/verso.
Vraiment je trouve rien dans VB si vous aviez un petit outil maison ou un exemple très simple pour moi qui suit à la retraite j'ai un peu de mal à suivre...

Personne n'a pensé à faire un truc du genre, je scan mon imprimer.
J'affiche la chose à l'écran comme un format A4 et je calcul les positions en automatique de l'objet Printer X et Y.
Je m'étonne de ne pas trouver un petit truc de ce genre tellement pratique !!!

Je fais des petites choses pour ma CO-PRO en VB6 qui je trouve super comme outil avec Access.

MERCI D'AVANCE

tolt

4 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
74
Salut
C'est vrai que ce serait une bonne idée de développement et je n'ai jamais vu de telle applications.
Mais là, va falloir te le taper à la main en jouant sur le ScaleMode et les X/Y de commande d'impression ...

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Messages postés
270
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
4 avril 2019

OK mais j'aimerais comme je le dis dans mon message un peu d'aide avec des exemples bien précis...
Personne ne fait d'impression sur ce site ?

tolt
Messages postés
96
Date d'inscription
mardi 29 mars 2005
Statut
Membre
Dernière intervention
10 mars 2011
2
Bonjour, voici quelques éléments pour t'orienter:
Printer.Orientation = .. pour portrait ou paysage
Printer.ScaleMode = 7 'pour échelle en centimètres
Printer.DrawWidth = 2 'épaisseur de trait
Printer.FontName = "Times New Roman" 'choix de la police
Printer.Line (0.9, 0)-(11.9, 1.2), , B 'exemple de tracé de rectangle ou ligne diagonale si pas de B à la fin
Printer.ForeColor = QBColor(4) 'couleur de texte
Printer.FontSize = 16 'taille de police
Printer.PaintPicture fichier.Ico, 1.1, 0.2
'Definition des coordonnées d'impression
With Printer
    .CurrentX = X
    .CurrentY = Y
End With
Printer.print "Essai" pour envoyer les données à l'imprimante
printer.enddoc 'pour ejecter la feuille
pour recto/verso, je ne sais plus mais cela dépend surtout de l'imprimante.

...
en espérant que cela te permette de progresser.
NB : pour remplir un formulaire, le plus simple reste d'utiliser la règle pour repérer les coordonnées.
Messages postés
270
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
4 avril 2019

Merci pour vos messages, mais j'ai trouvé une astuce vraiment qui me convient et en plus qui marche formidablement bien.
Il suffit dans une form VB de mettre le font en blanc et de placer des labels aux positions voulus.Ensuite un simple form1.printform et le tour est joué...

Super sur des formulaires A4 qui tiennent sur une page comme dans mon ca.

Je pense que cette astuce va faire des heureux !!! En tout cas j'espére.

tolt