Placer le texte sur un objet printer x,y

Commenter

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

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 (cs_Alex001)