Placer le texte sur un objet printer x,y

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 754 fois - Téléchargée 57 fois

Contenu du snippet

Quand vous souhaiter imprimer un texte sur un emplacement bien précis sur une feuille A4 cela pose parfois des problémes surtout quand ont changes de modéle d'imprimante, voici une astuce pour imprimer du texte ou image sur une feuille prés imprimer !

Source / Exemple :


'créer une form1 avec un boutton config pour afficher form2 ci-dessous :form2.show modal,form1

'créer une feuille avec 2 zone de text "haut.text ; gauche.text" et 5 boutton 

Private Sub ok_Click()
    MG = gauche.Text 'marge de gauche
    MH = haut.Text 'marge du haut
    
Open App.Path + "\Config.cfg" For Output As #1
    Write #1, MG 'marge de gauche
    Write #1, MH 'marge du haut
Close #1

    
End Sub

Private Sub Form2_Load()
    
Left = (Screen.Width - Width) \ 2
Top = (Screen.Height - Height) \ 2

'permet de récupérer les valeurs 
    Open App.Path + "\Config.cfg" For Input As #1
    Input #1, MG
    Input #1, MH
    Close #1

    gauche.Text = MG 'zone text enabled=false
    haut.Text = MH 'zone text enabled=false
    
End Sub

Private Sub HLBBttn2_Click()
    i = gauche.Text
    If i = "" Then i = O
    i = Int(i) + 1
    gauche.Text = i
    g$ = i
    gauche.ToolTipText = g + " mm."
End Sub

Private Sub HLBBttn3_Click()
    i = gauche.Text
    If i = "" Then i = O
    i = Int(i) - 1
    gauche.Text = i
    g$ = i
    gauche.ToolTipText = g + " mm."
End Sub

Private Sub HLBBttn4_Click()
    i = haut.Text
    If i = "" Then i = O
    i = Int(i) - 1
    haut.Text = i
    g$ = i
    haut.ToolTipText = g + " mm."
End Sub

Private Sub HLBBttn5_Click()
    i = haut.Text
    If i = "" Then i = O
    i = Int(i) + 1
    haut.Text = i
    g$ = i
    haut.ToolTipText = g + " mm."
End Sub

'maintenant le code d'impression que vous coller sur le click d'un boutton sur une form principal avec une zone de texte qui contient le texte que vous voullez imprimer... 

Open App.Path + "\config.cfg" For Input As #1
    Input #1, MG 'recupére les valeurs
    Input #1, MH
Close #1

    Printer.CurrentX = 0 + MG
    Printer.CurrentY = 0 + MH
    Printer.FontSize = 12
    Printer.ScaleMode = 6    'mm.

printer.print form1.text1.text 'imprime la zone de text de form1
printer.endoc

'donc dans votre projet vous devez avoir créer une form principal et une 2éme form "config"

Conclusion :


cela vous permet d'ajouter une fenêtre option sur un projet qui demande à imprimer du text sur un document prés imprimé. @+

A voir également

Ajouter un commentaire

Commentaires

Dalida
Messages postés
6764
Date d'inscription
mardi 14 mai 2002
Statut
Contributeur
Dernière intervention
11 janvier 2016
-
il ne me reste plus qu'à espérer que les 16 autres ne sont pas comme ça!
cs_Steff
Messages postés
34
Date d'inscription
vendredi 9 novembre 2001
Statut
Membre
Dernière intervention
29 mars 2007
-
Sur ce forum, il y a beaucoup de sources intéressantes, mais les zip semblent être en option.
Quand vous faites des forms avec deux contrôle ok, mais des forms avec 5 boutons, deux zones de textes, une mise en page..... Ne serait-ce pas plus simple de donner un zip plutôt qu'un texte disant faite une form avet un textbox nommé.....
cs_Alex001
Messages postés
32
Date d'inscription
mercredi 25 juillet 2001
Statut
Membre
Dernière intervention
20 janvier 2009
-
C'est vrais que c'est plus simple ...
Mais un des objectifs de ce site c'est d'être ludique et l'apprentissage se traduit par le faite de lire le code et d'essayer de le comprendre afin d'utiliser la même technique et logique dans sont propre projet.

Moi, au debut de ma formation, je faisait du copier coller d'un projet que j'avais telecharger, au bout du compte mon projet fonctionnait, il reagissait comme je le voulais mais moi j'avais pas retenue l'essentiel et 1 mois plus tard impossibles de refaire mon soft je suis obliger de refaire du copier coller et adapter le code, maintenant et depuis de nombreuses années car cette histoire date de VB4 , je travaille avec des news group notament public.fr.vbnet et les telechargements d'exemple je me limite uniquement a comprendre le fonctionnement , fini les copier coller , c'est vrais qu'ont gagne du temps mais la mémoire de notre cerveau n'enregistre pas donc j'ais choisi de perdre du temps et d'augmenter ma connaissance. voilà pourquoi et des que c'est possible je n'ajoute pas de ZIP , je pense que c'est mieux ainsi .

PS: regarde la liste de mes sources et compare le nombre de sources avec Zip...

by et bon Dev.
ALEX001
cs_Steff
Messages postés
34
Date d'inscription
vendredi 9 novembre 2001
Statut
Membre
Dernière intervention
29 mars 2007
-
Salut Alex,

Perso, ca me dérange pas trop non plus de voir les sources sur le site.
Le problème c'est que je suis au boulot (je suis développeur VC++, VB, Pascal..). Quand je cherche un truc sur VBfrance, c'est pour le tester imméiatement. J'ai pas le temps de reconstruire le frame.
Ton projet me plaisait bien et je l'aurais bien testé, mais non, je ne prend pas car il me faut du rapide.

;-) @+
Steff

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.